From 8bb12c6e68b94f3fd24227f228a90efbc9dab09a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 20 Mar 2023 19:26:39 +0100
Subject: [PATCH] Highlight suspended title.

---
 members-base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/members-base.scm b/members-base.scm
index 4d13e3e..e7bd619 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -324,7 +324,7 @@
 			 (lambda (mr)
 			   (>= (member-suspended-months mr) 24)))))
 	(when (not (null? suspended2))
-	  (print "  Suspended for at least 24 months: "
+	  (print (ansi #:magenta) "  Suspended for at least 24 months: " a:default
 		 (member-records->string (sort suspended2 member<?) "~N (~S)"))))
       (when (not (null? invalid-mrs))
 	(print a:error "  Invalid Id (" (length invalid-mrs) "): "