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

Add to total table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:37:53 +02:00
parent 606a208237
commit 70e33d21d1
3 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
members-print.scm
View file

@ -329,10 +329,15 @@
(list "Member" "Fees" "Credit" "Payments" "Balance")
(map
(lambda (mr)
(let ((balances (member-balances mr)))
(let* ((balance (member-balance mr))
(fees (dict-ref balance 'fees))
(credit (dict-ref balance 'credit))
(payment (dict-ref balance 'payment)))
(list (member-nick mr)
(sprintf "\t~A" (member-fees-total mr))
(sprintf "\t~A" (member-credit-total mr))
(sprintf "\t~A" fees)
(sprintf "\t~A" credit)
(sprintf "\t~A" payment)
(sprintf "\t~A" (- (+ credit payment) fees))
)))
(sort (filter-members-by-predicate MB member-active?) member<?)))
#:col-border #t #:row0-border #t)))