brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

New member format ~E.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 15:00:24 +01:00
parent 3c4ebedbb3
commit dd0e572676
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
member-record.scm
View file

@ -49,6 +49,7 @@
(chicken base)
(chicken string)
(chicken sort)
(chicken format)
dictionary
period
testing
@ -161,6 +162,11 @@
((#\N) (mr-ref mr 'nick))
((#\I) (number->string (mr-ref mr 'id)))
((#\S) (number->string (member-suspended-months mr)))
((#\E)
(let ((n (length (mr-ref mr member-file-error-symbol '()))))
(if (<= n 2)
""
(sprintf "[~A]" (- n 2)))))
((#\~) "~"))
resl))
(loop (cdr fmtl)