brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Skip dokuwiki checks if no dokuwiki is loaded.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 21:48:16 +02:00
parent c4f81dacbe
commit 697dcd24db
2 changed files with 39 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-print.scm
View file

@ -136,11 +136,13 @@
(mailman (list (list "Mailing Lists"
(string-intersperse (brmember-mailman mr) "\n"))))
(dokuwiki (if (ldict-contains? mr 'dokuwiki)
(list (list "DokuWiki"
(format "Groups: ~A\nEmail: ~A"
(brmember-sub-ref mr 'dokuwiki 'groups)
(brmember-sub-ref mr 'dokuwiki 'email)
)))
(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 (ansi-string #:red "DokuWiki")
(ansi-string #:red "---")))))
(result (filter identity (append head body mailman dokuwiki))))