From cf7ca5be572bcb90e13cc1fbe20c841fb34c53c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 19 Nov 2023 21:32:31 +0100
Subject: [PATCH] Add dokuwiki problems 2 to summary email.

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

diff --git a/src/notifications.scm b/src/notifications.scm
index d60ed00..afe2835 100644
--- a/src/notifications.scm
+++ b/src/notifications.scm
@@ -242,12 +242,24 @@
 		      "  "
 		      (string-intersperse
 		       (map car dwpu)
+		       ", ")))))
+	  (dwmu (find-members-by-predicate mb (compose not brmember-dokuwiki-groups-ok?)))
+	  (dw2-lst
+	   (if (null? dwmu)
+	       '()
+	       (list ""
+		     "Members in wrong dokuwiki group(s):"
+		     (string-append
+		      "  "
+		      (string-intersperse
+		       (map brmember-nick dwmu)
 		       ", "))))))
      (append income-lst
 	     unpaired-lst
 	     debtors-lst
 	     boring-lst
 	     dw-lst
+	     dw2-lst
 	     (list ""
 		   "--"
 		   "Brmlab Hackerspace Members Database"