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

Total payments in member format.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 20:37:30 +02:00
parent d5f8c1b962
commit 6c6d382c22
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -336,7 +336,7 @@ util-format.import.scm: $(UTIL-FORMAT-SOURCES)
BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \ BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \
brmember.import.scm bank-account.import.scm \ brmember.import.scm bank-account.import.scm \
members-fees.import.scm members-fees.import.scm members-payments.import.scm
brmember-format.o: brmember-format.import.scm brmember-format.o: brmember-format.import.scm
brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES) brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES)

5
src/brmember-format.scm
View file

@ -38,7 +38,8 @@
util-dict-list util-dict-list
brmember brmember
bank-account bank-account
members-fees) members-fees
members-payments)
;; Member formatting function for general use. ;; Member formatting function for general use.
(define (brmember-format fmt mr) (define (brmember-format fmt mr)
@ -73,6 +74,8 @@
(sprintf "~A" (member-fees-total mr))) (sprintf "~A" (member-fees-total mr)))
((#\C) ; Total credit manually written ((#\C) ; Total credit manually written
(sprintf "~A" (member-credit-total mr))) (sprintf "~A" (member-credit-total mr)))
((#\P) ; Total payments made
(sprintf "~A" (member-payments-total mr)))
((#\~) "~")) ((#\~) "~"))
resl)) resl))
(loop (cdr fmtl) (loop (cdr fmtl)