From a038a972238a30897b4b0fe9a4ad16214d5b011b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 15 Jun 2023 15:51:33 +0200 Subject: [PATCH] Use non-breaking spaces for calendar. --- src/members-fees.scm | 12 ++++++------ src/sgr-list.scm | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/members-fees.scm b/src/members-fees.scm index a0055f8..0bf64ec 100644 --- a/src/members-fees.scm +++ b/src/members-fees.scm @@ -104,14 +104,14 @@ (if e (if (member 'existing (cadr e)) (if (member 'suspended (cadr e)) - (ansi-string #:bgdarkgrey "__\x1b[0m") ; Suspended + (ansi-string #:bgdarkgrey "\xc2\xa0\xc2\xa0\x1b[0m") ; Suspended (if (member 'destroyed (cadr e)) - (ansi-string #:bgblack "~~\x1b[0m") ; Destroyed + (ansi-string #:bgblack "\xc2\xa0\xc2\xa0\x1b[0m") ; Destroyed (if (member 'student (cadr e)) - (ansi-string #:bgyellow "__\x1b[0m") ; Student - (ansi-string #:bggreen "__\x1b[0m")))) ; Normal - "__") ; Nonexistent - should not happen - "__")) ; Nonexistent + (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0\x1b[0m") ; Student + (ansi-string #:bggreen "\xc2\xa0\xc2\xa0\x1b[0m")))) ; Normal + "\xc2\xa0\xc2\xa0") ; Nonexistent - should not happen + "\xc2\xa0\xc2\xa0")) ; Nonexistent ;; Converts the entry into the fee (define (member-calendar-entry->fee e) diff --git a/src/sgr-list.scm b/src/sgr-list.scm index cc18c3d..474973b 100644 --- a/src/sgr-list.scm +++ b/src/sgr-list.scm @@ -480,7 +480,7 @@ (test-equal? sgr-token-neutralize (sgr-token-neutralize '("Hello\b" . 6)) '("Hello" . 5)) - (let ((ts "\x1b[41m \x1b[49m")) + (let ((ts "\x1b[41m \x1b[0m")) (test-equal? string->sgr-list/words:sgr-list->string (sgr-list->string (string->sgr-list/words ts))