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

Extract info about dokuwiki users.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 22:05:05 +02:00
parent 697dcd24db
commit b71cfd23a2
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/members-print.scm
View file

@ -138,11 +138,16 @@
(dokuwiki (if (ldict-contains? mr 'dokuwiki) (dokuwiki (if (ldict-contains? mr 'dokuwiki)
(if (eq? (ldict-ref mr 'dokuwiki) #t) (if (eq? (ldict-ref mr 'dokuwiki) #t)
(list #f) (list #f)
(list (list "DokuWiki" (list
(format "Groups: ~A\nEmail: ~A" (list "DokuWiki"
(brmember-sub-ref mr 'dokuwiki 'groups) (let ((groups (brmember-sub-ref mr 'dokuwiki 'groups))
(brmember-sub-ref mr 'dokuwiki 'email) (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") (list (list (ansi-string #:red "DokuWiki")
(ansi-string #:red "---"))))) (ansi-string #:red "---")))))
(result (filter identity (append head body mailman dokuwiki)))) (result (filter identity (append head body mailman dokuwiki))))