From 878f64f00c9781086df2f6b332fb089a57457e90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 16 Sep 2023 08:17:44 +0200 Subject: [PATCH] Add total debt display to -info. --- src/members-print.scm | 22 +++++++++++++++++----- 1 file changed, 17 insertions(+), 5 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 4dc2690..e97a555 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -372,12 +372,24 @@ (list (ansi-string "\t" #:magenta #:bold "Debtors:") (format "~A" (length debtor-mrs)) (table->string - (members-attrs-table debtor-mrs - brmember-format - (list "Name" "Balance" "Last Payment") - (list "~N" "\t~B" "~L")) + (append + (members-attrs-table debtor-mrs + brmember-format + (list "Name" "Balance" "Last Payment") + (list "~N" "\t~B" "~L")) + (list + (list + "Total" + (format + "\t~A" + (foldr + (lambda (v a) + (+ (member-total-balance v) a)) + 0 + debtor-mrs))))) #:border '(((#:bottom #:right light) ... (#:bottom light)) - ((#:right light) ... none) ...) + ((#:right light) ... none) ... + ((#:top #:right light) ... (#:top light))) #:ansi-reset? #t))) )) #:border '(((#:bottom #:right light) ... (#:bottom light))