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

Highlight mismatching email.

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

7
src/members-print.scm
View file

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