From 8a3c81279793c8cb7a8d48f08e36feef41662022 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Jun 2024 20:21:05 +0200 Subject: [PATCH] One more column. --- src/members-print.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/members-print.scm b/src/members-print.scm index 1957047..360e316 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -553,6 +553,7 @@ (list (list-ref member 0) (list-ref member 1) "---" + (sprintf "\t~A" (list-ref member 2)) (sprintf "\t~A" (list-ref member 3)) (sprintf "\t~A" (list-ref member 4)) @@ -571,6 +572,7 @@ (payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances))) (total (- (+ credit payment) fees))) (list (list (ansi-string #:bold "Total") + "" "" (ansi-string "\t" #:bold (sprintf "~A" fees)) (ansi-string "\t" #:bold (sprintf "~A" credit))