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))) (print-member-source (car mb)))
(loop (cdr mb))))) (loop (cdr mb)))))
((fees) ((fees)
(newline)
(print (print
(table->string (table->string
(cons (cons
(list "Member" "Fees") (list "Member" "Fees" "Credit")
(map (map
(lambda (mr) (lambda (mr)
(list (member-nick 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<?))) (sort (filter-members-by-predicate MB member-active?) member<?)))
#:col0-border #t #:row0-border #t))) #:col-border #t #:row0-border #t)))
) )

7
member-fees.scm
View file

@ -35,6 +35,7 @@
member-calendar->years-table member-calendar->years-table
member-calendar->fees member-calendar->fees
member-fees-total member-fees-total
member-credit-total
) )
(import scheme (import scheme
@ -138,4 +139,10 @@
(foldl + 0 (member-calendar->fees (foldl + 0 (member-calendar->fees
(member-calendar mr)))) (member-calendar mr))))
;; Total credit manually recorded in member record
(define (member-credit-total mr)
(let* ((credit (member-record-info mr 'credit '()))
(amounts (map car credit)))
(foldl + 0 amounts)))
) )