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

Highlight incorrect dokuwiki group membership.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:51:09 +02:00
parent 47ddc157bd
commit fb400aa5d2
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/members-print.scm
View file

@ -144,11 +144,13 @@
(email (brmember-sub-ref mr 'dokuwiki 'email))
(memail (brmember-info mr 'mail #f)))
(string-intersperse
(list (format "Groups: ~A"
(list (format (if (brmember-dokuwiki-groups-ok? mr)
"Groups: ~A"
(ansi-string #:red "Groups: ~A" #:default))
groups)
(format (if (equal? email memail)
"Email: ~A"
(ansi-string #:red "Email: ~A"))
(ansi-string #:red "Email: ~A" #:default))
email))
"\n")))))
(list (list (ansi-string #:red "DokuWiki")