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

One more column.

Browse source
This commit is contained in:
Dominik Pantůček 2024-06-11 20:21:05 +02:00
parent ce74a8962d
commit 8a3c812797
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/members-print.scm
View file

@ -553,6 +553,7 @@
(list (list-ref member 0) (list (list-ref member 0)
(list-ref member 1) (list-ref member 1)
"---" "---"
(sprintf "\t~A" (list-ref member 2)) (sprintf "\t~A" (list-ref member 2))
(sprintf "\t~A" (list-ref member 3)) (sprintf "\t~A" (list-ref member 3))
(sprintf "\t~A" (list-ref member 4)) (sprintf "\t~A" (list-ref member 4))
@ -571,6 +572,7 @@
(payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances))) (payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances)))
(total (- (+ credit payment) fees))) (total (- (+ credit payment) fees)))
(list (list (ansi-string #:bold "Total") (list (list (ansi-string #:bold "Total")
""
"" ""
(ansi-string "\t" #:bold (sprintf "~A" fees)) (ansi-string "\t" #:bold (sprintf "~A" fees))
(ansi-string "\t" #:bold (sprintf "~A" credit)) (ansi-string "\t" #:bold (sprintf "~A" credit))