From 6aab5d9fcfc71f033a8ec7743585170f58a8feea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 19:50:38 +0200 Subject: [PATCH] Print mailing lists. --- src/members-print.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/members-print.scm b/src/members-print.scm index e60f112..562941a 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -137,7 +137,9 @@ (list (ansi-string #:red #:bold (symbol->string k)) (ansi-string #:red #:bold "---"))))))) sikeys)) - (result (filter identity (append head body)))) + (mailman (list (list "Mailing Lists" + (string-intersperse (member-mailman mr) ", ")))) + (result (filter identity (append head body mailman)))) (table->string result #:table-border #f #:row-border #t #:col-border #t #:ansi #t))) ;; Prints nicely formatted table