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