brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use non-breaking spaces for calendar.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 15:51:33 +02:00
parent 874750e483
commit a038a97223
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-fees.scm
View file

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

2
src/sgr-list.scm
View file

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