From 9ee80bb5c97a8c8e1726e7da141b956d62cc8a0d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 17 Apr 2023 22:40:31 +0200 Subject: [PATCH] Preliminary ascii table in email. --- src/notifications.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/notifications.scm b/src/notifications.scm index 99ad780..81322ab 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -46,7 +46,9 @@ configuration util-time members-fees - mbase) + mbase + members-print + table) ;; Prints email to the console (define (print-notification-email em) @@ -129,9 +131,8 @@ (append (list "" "Unpaired transactions:") - (map (lambda (tr) - (format " ~A" tr)) - unpaired))))) + (parameterize ((*table-border-style* 'ascii)) + (unpaired-table mb)))))) (append income-lst unpaired-lst)))