From 87ae2849230d0476a59bd2c21b6171be70baed64 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 15 Jun 2023 16:02:19 +0200 Subject: [PATCH] Workaround for SGR resets at the end of the cell. --- src/members-fees.scm | 8 ++++---- src/members-print.scm | 1 + 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/members-fees.scm b/src/members-fees.scm index 0bf64ec..2a6c12d 100644 --- a/src/members-fees.scm +++ b/src/members-fees.scm @@ -104,12 +104,12 @@ (if e (if (member 'existing (cadr e)) (if (member 'suspended (cadr e)) - (ansi-string #:bgdarkgrey "\xc2\xa0\xc2\xa0\x1b[0m") ; Suspended + (ansi-string #:bgdarkgrey "\xc2\xa0\xc2\xa0") ; Suspended (if (member 'destroyed (cadr e)) - (ansi-string #:bgblack "\xc2\xa0\xc2\xa0\x1b[0m") ; Destroyed + (ansi-string #:bgblack "\xc2\xa0\xc2\xa0") ; Destroyed (if (member 'student (cadr e)) - (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0\x1b[0m") ; Student - (ansi-string #:bggreen "\xc2\xa0\xc2\xa0\x1b[0m")))) ; Normal + (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0") ; Student + (ansi-string #:bggreen "\xc2\xa0\xc2\xa0")))) ; Normal "\xc2\xa0\xc2\xa0") ; Nonexistent - should not happen "\xc2\xa0\xc2\xa0")) ; Nonexistent diff --git a/src/members-print.scm b/src/members-print.scm index a62858f..d240b61 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -143,6 +143,7 @@ (member-payments->table mr) (member-calendar->table mr)) ) + #:ansi #t #:row0-border #t #:col-border #t)) (let* ((balance (member-balance mr))