From 64ca870a529e4a5ca48c4661086a3ecdbaed0083 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 11 May 2023 09:12:55 +0200
Subject: [PATCH] Add member format attributes list.

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

diff --git a/src/brmember-format.scm b/src/brmember-format.scm
index 67b40bb..7cc83a1 100644
--- a/src/brmember-format.scm
+++ b/src/brmember-format.scm
@@ -78,6 +78,8 @@
 			      (sprintf "~A" (member-payments-total mr)))
 			     ((#\B) ; Current balance
 			      (sprintf "~A" (member-total-balance mr)))
+			     ((#\A) ; Flags (attributes) list
+			      (sprintf "~A" (brmember-flags mr)))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)