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] 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))