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
mbase-info
mbase-stats
mbase-add-unpaired

20
src/members-print.scm
View file

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