From cc1edb35370fb200ffa85a727e5476356bae8ee8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 26 Jun 2023 22:08:50 +0200 Subject: [PATCH] Highlight mismatching email. --- src/members-print.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 85d8fe9..bee75f3 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -141,11 +141,14 @@ (list (list "DokuWiki" (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 (list (format "Groups: ~A" groups) - (format "Email: ~A" + (format (if (equal? email memail) + "Email: ~A" + (ansi-string #:red "Email: ~A")) email)) "\n"))))) (list (list (ansi-string #:red "DokuWiki")