Add boring members to notification email.

src/notifications.scm

@@ -168,10 +168,39 @@
 			    debtors))
 		 #:border-style 'ascii
 		 #:col-border #t
+		 #:row0-border #t))))
+	  (boring (find-members-by-predicate mb (compose not member-to-notify?)))
+	  (boring-lst
+	   (if (null? boring)
+	       '()
+	       (append
+		(list ""
+		      "Other active members:")
+		(table->list
+		 (cons (list "Id" "Member" "Type" "Balance" "Last payment")
+		       (map (lambda (mr)
+			      (list (brmember-id mr)
+				    (brmember-nick mr)
+				    (if (brmember-student? mr)
+					'student
+					'normal)
+				    (format "\t~A" (member-total-balance mr))
+				    (let* ((payments (brmember-payments mr))
+					   (tr (if (null? payments)
+						   #f
+						   (car (reverse payments)))))
+				      (if tr
+					  (bank-transaction-date tr)
+					  "-"))
+				    ))
+			    boring))
+		 #:border-style 'ascii
+		 #:col-border #t
 		 #:row0-border #t)))))
      (append income-lst
 	     unpaired-lst
 	     debtors-lst
+	     boring-lst
 	     (list ""
 		   "--"
 		   "Brmlab Hackerspace Members Database"