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

Workaround for SGR resets at the end of the cell.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 16:02:19 +02:00
parent a038a97223
commit 87ae284923
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/members-fees.scm
View file

@ -104,12 +104,12 @@
(if e (if e
(if (member 'existing (cadr e)) (if (member 'existing (cadr e))
(if (member 'suspended (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)) (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)) (if (member 'student (cadr e))
(ansi-string #:bgyellow "\xc2\xa0\xc2\xa0\x1b[0m") ; Student (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0") ; Student
(ansi-string #:bggreen "\xc2\xa0\xc2\xa0\x1b[0m")))) ; Normal (ansi-string #:bggreen "\xc2\xa0\xc2\xa0")))) ; Normal
"\xc2\xa0\xc2\xa0") ; Nonexistent - should not happen "\xc2\xa0\xc2\xa0") ; Nonexistent - should not happen
"\xc2\xa0\xc2\xa0")) ; Nonexistent "\xc2\xa0\xc2\xa0")) ; Nonexistent

1
src/members-print.scm
View file

@ -143,6 +143,7 @@
(member-payments->table mr) (member-payments->table mr)
(member-calendar->table mr)) (member-calendar->table mr))
) )
#:ansi #t
#:row0-border #t #:row0-border #t
#:col-border #t)) #:col-border #t))
(let* ((balance (member-balance mr)) (let* ((balance (member-balance mr))