Sorted members in summary emails.

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)
 	       '()