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

Print the credit as well.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 14:36:30 +02:00
parent 9cfd4e21e1
commit a48d521b94
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
bbstool.scm
View file

@ -185,15 +185,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print-member-source (car mb)))
(loop (cdr mb)))))
((fees)
(newline)
(print
(table->string
(cons
(list "Member" "Fees")
(list "Member" "Fees" "Credit")
(map
(lambda (mr)
(list (member-nick mr)
(sprintf "\t~A" (member-fees-total mr))))
(sprintf "\t~A" (member-fees-total mr))
(sprintf "\t~A" (member-credit-total mr))
))
(sort (filter-members-by-predicate MB member-active?) member<?)))
#:col0-border #t #:row0-border #t)))
#:col-border #t #:row0-border #t)))
)