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

Deprecate mbase-info outside mbase module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 19:51:46 +02:00
parent 7dd3eb1586
commit 9f4b5cba1b
2 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/mbase.scm
View file

@ -50,7 +50,6 @@
mbase-update-by-id mbase-update-by-id
mbase-update mbase-update
mbase-info
mbase-stats mbase-stats
mbase-add-unpaired mbase-add-unpaired

20
src/members-print.scm
View file

@ -253,14 +253,16 @@
;; Prints nicely aligned members base info ;; Prints nicely aligned members base info
(define (print-members-base-table mb) (define (print-members-base-table mb)
(let* ((bi (mbase-info mb)) (let* ((total-count (length
(all-mrs (ldict-ref bi 'total)) (find-members-by-predicate mb brmember-usable?)))
(invalid-mrs (ldict-ref bi 'invalid)) (invalid-mrs (find-members-by-predicate
(active-mrs (ldict-ref bi 'active)) mb
(suspended-mrs (ldict-ref bi 'suspended)) (compose not is-4digit-prime? brmember-id)))
(destroyed-mrs (ldict-ref bi 'destroyed)) (active-mrs (find-members-by-predicate mb brmember-active?))
(student-mrs (ldict-ref bi 'students)) (suspended-mrs (find-members-by-predicate mb brmember-suspended?))
(problem-mrs (ldict-ref bi 'problems)) (destroyed-mrs (find-members-by-predicate mb brmember-destroyed?))
(student-mrs (find-members-by-predicate mb brmember-student?))
(problem-mrs (find-members-by-predicate mb brmember-has-problems?))
(debtor-mrs (sort (debtor-mrs (sort
(members-to-notify mb 3) (members-to-notify mb 3)
brmember<?)) brmember<?))
@ -269,7 +271,7 @@
mb mb
(brmember-suspended-for 21 24)) (brmember-suspended-for 21 24))
brmember<?))) brmember<?)))
(print "Known members: " (length all-mrs)) (print "Known members: " total-count)
(newline) (newline)
(print (print
(table->string (table->string