From 6c6d382c22e54ac8cfb880a568bf93ef07776bb6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 10 May 2023 20:37:30 +0200 Subject: [PATCH] Total payments in member format. --- src/Makefile | 2 +- src/brmember-format.scm | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Makefile b/src/Makefile index ae2f2ce..df7c5d4 100644 --- a/src/Makefile +++ b/src/Makefile @@ -336,7 +336,7 @@ util-format.import.scm: $(UTIL-FORMAT-SOURCES) BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.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.import.scm: $(BRMEMBER-FORMAT-SOURCES) diff --git a/src/brmember-format.scm b/src/brmember-format.scm index 7a29ee9..2420421 100644 --- a/src/brmember-format.scm +++ b/src/brmember-format.scm @@ -38,7 +38,8 @@ util-dict-list brmember bank-account - members-fees) + members-fees + members-payments) ;; Member formatting function for general use. (define (brmember-format fmt mr) @@ -73,6 +74,8 @@ (sprintf "~A" (member-fees-total mr))) ((#\C) ; Total credit manually written (sprintf "~A" (member-credit-total mr))) + ((#\P) ; Total payments made + (sprintf "~A" (member-payments-total mr))) ((#\~) "~")) resl)) (loop (cdr fmtl)