From a9f5fc74e4e6cf3c9576a63960618bd719bc2841 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 9 Feb 2024 14:51:26 +0100
Subject: [PATCH] Add members expiring soon to the summary email.

---
 src/notifications.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/src/notifications.scm b/src/notifications.scm
index bd31e9e..7c13482 100644
--- a/src/notifications.scm
+++ b/src/notifications.scm
@@ -158,6 +158,23 @@
 		(list ""
 		      "Unpaired transactions:")
 		(unpaired-table mb #:border-style 'ascii))))
+	  (soonexps (sort
+		     (find-members-by-predicate
+		      mb
+		      (brmember-suspended-for 21 24))
+		     brmember<?))
+	  (soonexps-lst
+	   (if (null? soonexps)
+	       #f
+	       (list ""
+		     (format "Expiring members (~A): ~A"
+			     (length soonexps)
+			     (string-intersperse
+			      (map
+			       (lambda (mr)
+				 (brmember-format "~N (~S)" mr))
+			       soonexps)
+			      ",")))))
 	  (debtors (sort
 		    (members-to-notify mb 1)
 		    brmember<?))
@@ -254,6 +271,7 @@
 		       ", "))))))
      (append income-lst
 	     unpaired-lst
+	     soonexps-lst
 	     debtors-lst
 	     boring-lst
 	     dw-lst