From 44ba97fc7ba5f31d49d7b789d7bff0c164f56fb9 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:07:51 +0100
Subject: [PATCH] Add dokuwiki problems to summary email.

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

diff --git a/src/notifications.scm b/src/notifications.scm
index b0b6b30..d60ed00 100644
--- a/src/notifications.scm
+++ b/src/notifications.scm
@@ -227,11 +227,27 @@
 		 #:border '(((#:bottom #:right light) ... (#:bottom light))
 			    ((#:right light) ... none)
 			    ...)
-		 )))))
+		 ))))
+	  (dwpu (filter (lambda (dwu)
+			  (or (member "member" (list-ref dwu 3))
+			      (member "council" (list-ref dwu 3))
+			      (member "admin" (list-ref dwu 3))))
+			(ldict-ref mb 'dokuwiki)))
+	  (dw-lst
+	   (if (null? dwpu)
+	       '()
+	       (list ""
+		     "DokuWiki users (non-members) in wrong group(s):"
+		     (string-append
+		      "  "
+		      (string-intersperse
+		       (map car dwpu)
+		       ", "))))))
      (append income-lst
 	     unpaired-lst
 	     debtors-lst
 	     boring-lst
+	     dw-lst
 	     (list ""
 		   "--"
 		   "Brmlab Hackerspace Members Database"