From 99ce80127aefbf144e8780c212177349dd88a9d9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 3 Apr 2023 19:52:28 +0200 Subject: [PATCH] Print totals like JendaSAP. --- src/members-print.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/src/members-print.scm b/src/members-print.scm index aebe8c4..ddd1140 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -403,6 +403,21 @@ total)) ))))) #:col-border #t #:row0-border #t #:ansi #t)) + (print "Credit: " + (foldl + 0 + (map (lambda (member) + (list-ref member 5)) + members))) + (print "Advance: " + (foldl + 0 + (map (lambda (member) + (max 0 (list-ref member 5))) + members))) + (print "Debt: " + (foldl + 0 + (map (lambda (member) + (min 0 (list-ref member 5))) + members))) ) )