From 901c47229233626ccbee8af2a37135c73a7dd30e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 15 Jun 2023 23:01:30 +0200 Subject: [PATCH] Fix all members table keyword args. --- src/members-print.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index 7503a46..7a0c624 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -337,14 +337,15 @@ brmember-format (list "Name" "Balance" "Last Payment") (list "~N" "\t~B" "~L")) - #:ansi #t - #:row0-border #t - #:col-border #t))) + #:border '(((#:bottom #:right light) ... (#:bottom light)) + ... + ((#:right light) ... none)) + #:ansi-reset? #t))) )) - #:ansi #t - #:row-border #t - #:col-border #t - ))) + #:border '(((#:bottom #:right light) ... (#:bottom light)) + ... + ((#:right light) ... none)) + #:ansi-reset? #t))) (let ((pmrs (find-members-by-predicate mb brmember-has-problems?))) (when (not (null? pmrs)) (newline)