From b71cfd23a23d8698ae59a5d3438676124ac99e44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 26 Jun 2023 22:05:05 +0200 Subject: [PATCH] Extract info about dokuwiki users. --- src/members-print.scm | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 7e42a2a..85d8fe9 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -138,11 +138,16 @@ (dokuwiki (if (ldict-contains? mr 'dokuwiki) (if (eq? (ldict-ref mr 'dokuwiki) #t) (list #f) - (list (list "DokuWiki" - (format "Groups: ~A\nEmail: ~A" - (brmember-sub-ref mr 'dokuwiki 'groups) - (brmember-sub-ref mr 'dokuwiki 'email) - )))) + (list + (list "DokuWiki" + (let ((groups (brmember-sub-ref mr 'dokuwiki 'groups)) + (email (brmember-sub-ref mr 'dokuwiki 'email))) + (string-intersperse + (list (format "Groups: ~A" + groups) + (format "Email: ~A" + email)) + "\n"))))) (list (list (ansi-string #:red "DokuWiki") (ansi-string #:red "---"))))) (result (filter identity (append head body mailman dokuwiki))))