From 1bb73b6948668250fda07f81e909c7a02be8c782 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 18:12:45 +0200
Subject: [PATCH] Sorted members in summary emails.

---
 src/notifications.scm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/src/notifications.scm b/src/notifications.scm
index 2199e2f..ec2c56d 100644
--- a/src/notifications.scm
+++ b/src/notifications.scm
@@ -39,6 +39,7 @@
 	 (chicken base)
 	 (chicken format)
 	 (chicken string)
+	 (chicken sort)
 	 brmember
 	 util-mail
 	 util-dict-list
@@ -141,7 +142,9 @@
 		(list ""
 		      "Unpaired transactions:")
 		(unpaired-table mb #:border-style 'ascii))))
-	  (debtors (members-to-notify mb 1))
+	  (debtors (sort
+		    (members-to-notify mb 1)
+		    brmember<?))
 	  (debtors-lst
 	   (if (null? debtors)
 	       '()
@@ -169,11 +172,13 @@
 		 #:border-style 'ascii
 		 #:col-border #t
 		 #:row0-border #t))))
-	  (boring (find-members-by-predicate
-		   mb
-		   (lambda (mr)
-		     (and (brmember-active? mr)
-			  (not (member-to-notify? mr))))))
+	  (boring (sort
+		   (find-members-by-predicate
+		    mb
+		    (lambda (mr)
+		      (and (brmember-active? mr)
+			   (not (member-to-notify? mr)))))
+		   brmember<?))
 	  (boring-lst
 	   (if (null? boring)
 	       '()