From c700619aca52ace723c32696e523bb892b85976d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 10 May 2023 20:39:51 +0200
Subject: [PATCH] Support for total member balance.

---
 src/brmember-format.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/brmember-format.scm b/src/brmember-format.scm
index 2420421..67b40bb 100644
--- a/src/brmember-format.scm
+++ b/src/brmember-format.scm
@@ -76,6 +76,8 @@
 			      (sprintf "~A" (member-credit-total mr)))
 			     ((#\P) ; Total payments made
 			      (sprintf "~A" (member-payments-total mr)))
+			     ((#\B) ; Current balance
+			      (sprintf "~A" (member-total-balance mr)))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)