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

Use new predicates and show students.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-28 19:56:03 +02:00
parent da29baa991
commit 5ceec258f9
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bbstool.scm
View file

@ -173,7 +173,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
((problems) ((problems)
(let loop ((mb MB)) (let loop ((mb MB))
(when (not (null? mb)) (when (not (null? mb))
(when (or (member-has-issues? (car mb)) (when (or (member-has-problems? (car mb))
(member-has-highlights? (car mb))) (member-has-highlights? (car mb)))
(newline) (newline)
(print-member-table (car mb)) (print-member-table (car mb))

1
members-base.scm
View file

@ -357,6 +357,7 @@
identity identity
(list (list "Type" "Count" "List") (list (list "Type" "Count" "List")
(members-table-row a:success "Active:" active-mrs "~N~E") (members-table-row a:success "Active:" active-mrs "~N~E")
(members-table-row a:highlight "Students:" student-mrs "~N~E")
(members-table-row a:warning "Suspended:" suspended-mrs "~N~E") (members-table-row a:warning "Suspended:" suspended-mrs "~N~E")
(members-table-row a:warning "Destroyed:" destroyed-mrs "~N~E") (members-table-row a:warning "Destroyed:" destroyed-mrs "~N~E")
(let ((suspended2 (filter-members-by-predicate (let ((suspended2 (filter-members-by-predicate