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
members-base.scm
View file

@ -309,11 +309,11 @@
(destroyed-mrs (dict-ref bi 'destroyed))
(student-mrs (dict-ref bi 'students)))
(print a:success " Active (" (length active-mrs) "): " a:default
(member-records->string (sort active-mrs member<?)))
(member-records->string (sort active-mrs member<?) "~N~E"))
(print a:warning " Suspended (" (length suspended-mrs) "): " a:default
(member-records->string (sort suspended-mrs member<?)))
(member-records->string (sort suspended-mrs member<?) "~N~E"))
(print a:warning " Destroyed (" (length destroyed-mrs) "): " a:default
(member-records->string (sort destroyed-mrs member<?)))
(member-records->string (sort destroyed-mrs member<?) "~N~E"))
(print a:highlight " Students (" (length student-mrs) "): " a:default
(member-records->string (sort student-mrs member<?)))
(let ((suspended2 (filter-members-by-predicate