Print mailing lists.

This commit is contained in:
Dominik Pantůček 2023-04-06 19:50:38 +02:00
parent 262c67a3b9
commit 6aab5d9fcf

View file

@ -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