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

Member sorting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 12:44:41 +01:00
parent 59a52fb0d9
commit 8564056320
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
members-base.scm
View file

@ -308,23 +308,23 @@
(destroyed-mrs (dict-ref bi 'destroyed))
(student-mrs (dict-ref bi 'students)))
(print a:success " Active (" (length active-mrs) "): " a:default
(member-records->string active-mrs))
(member-records->string (sort active-mrs member<?)))
(print a:warning " Suspended (" (length suspended-mrs) "): " a:default
(member-records->string suspended-mrs))
(member-records->string (sort suspended-mrs member<?)))
(print a:warning " Destroyed (" (length destroyed-mrs) "): " a:default
(member-records->string destroyed-mrs))
(member-records->string (sort destroyed-mrs member<?)))
(print a:highlight " Students (" (length student-mrs) "): " a:default
(member-records->string student-mrs))
(member-records->string (sort student-mrs member<?)))
(let ((suspended2 (filter-members-by-predicate
suspended-mrs
(lambda (mr)
(>= (member-suspended-months mr) 24)))))
(when (not (null? suspended2))
(print " Suspended for at least 24 months: "
(member-records->string suspended2 "~N (~S)"))))
(member-records->string (sort suspended2 member<?) "~N (~S)"))))
(when (not (null? invalid-mrs))
(print a:error " Invalid Id (" (length invalid-mrs) "): "
(member-records->string invalid-mrs "~N (~I)")
(member-records->string (sort invalid-mrs member<?) "~N (~I)")
a:default)))))
;; Prints the stats in format used by gnuplot.