From ce74a8962db38042647c385a6cfe4a297c282363 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Jun 2024 20:12:16 +0200 Subject: [PATCH 1/2] Add current fee column. --- src/members-print.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/members-print.scm b/src/members-print.scm index 2591238..1957047 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -541,6 +541,7 @@ (cons (list (ansi-string #:bgblue #:brightyellow #:bold "Member") (ansi-string #:bgblue #:brightyellow #:bold "Status") + (ansi-string #:bgblue #:brightyellow #:bold "Current") (ansi-string #:bgblue #:brightyellow #:bold "Fees") (ansi-string #:bgblue #:brightyellow #:bold "Credit") (ansi-string #:bgblue #:brightyellow #:bold "Payments") @@ -551,6 +552,7 @@ (let ((total (list-ref member 5))) (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)) 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 2/2] 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))