From bc5db8db9966909841950ac963ab586d913318d2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Jun 2024 21:33:12 +0200 Subject: [PATCH] Current totals. --- src/members-print.scm | 5 +++-- src/texts.scm | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 47478dc..33d0869 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -576,10 +576,11 @@ (let* ((fees (foldl + 0 (map (lambda (b) (ldict-ref b 'fees)) balances))) (credit (foldl + 0 (map (lambda (b) (ldict-ref b 'credit)) balances))) (payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances))) - (total (- (+ credit payment) fees))) + (total (- (+ credit payment) fees)) + (current-total (foldl + 0 (map (lambda (m) (list-ref m 7)) members)))) (list (list (ansi-string #:bold "Total") "" - "" + (ansi-string "\t" #:bold (sprintf "~A" current-total)) (ansi-string "\t" #:bold (sprintf "~A" fees)) (ansi-string "\t" #:bold (sprintf "~A" credit)) (ansi-string "\t" #:bold (sprintf "~A" payment)) diff --git a/src/texts.scm b/src/texts.scm index 2bd8193..d6781f4 100644 --- a/src/texts.scm +++ b/src/texts.scm @@ -39,7 +39,7 @@ (chicken format)) ;; Short banner - (define banner-line "HackerBase 1.16.2 (c) 2023-2024 Brmlab, z.s.") + (define banner-line "HackerBase 1.17-dev (c) 2023-2024 Brmlab, z.s.") ;; Banner source with numbers for ANSI CSI SGR (define banner-source "