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

Show problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 21:38:59 +02:00
parent 5858e8dd86
commit 22b43f35ed
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/members-print.scm
View file

@ -203,7 +203,8 @@
(active-mrs (ldict-ref bi 'active)) (active-mrs (ldict-ref bi 'active))
(suspended-mrs (ldict-ref bi 'suspended)) (suspended-mrs (ldict-ref bi 'suspended))
(destroyed-mrs (ldict-ref bi 'destroyed)) (destroyed-mrs (ldict-ref bi 'destroyed))
(student-mrs (ldict-ref bi 'students))) (student-mrs (ldict-ref bi 'students))
(problem-mrs (ldict-ref bi 'problems)))
(print "Known members: " (length all-mrs)) (print "Known members: " (length all-mrs))
(newline) (newline)
(print (print
@ -223,6 +224,9 @@
(if (null? suspended2) (if (null? suspended2)
#f #f
(members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)"))) (members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)")))
(if (null? problem-mrs)
#f
(members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E"))
)) ))
#:ansi #t #:ansi #t
#:row-border #t #:row-border #t