fix small rendering bug with statusbar

This commit is contained in:
~d6 2024-07-06 15:33:54 -04:00
parent 6e3e5f5c81
commit 0b372d2e85
1 changed files with 6 additions and 3 deletions

View File

@ -144,9 +144,9 @@
#0004 .config/tab-width STZ2
#0003 .config/tab-adjust STZ2
#00 .config/insert-tabs STZ
( #3333 .config/color STZ2 )
#3333 .config/color STZ2
( #3133 .config/red STZ2 )
#3033 .config/color STZ2
( #3033 .config/color STZ2 )
#3033 .config/red STZ2
;data .buffer/offset STZ2
@ -1145,7 +1145,7 @@
( draw the full statusbar )
@draw-statusbar ( -> )
move-to-statusbar
emit-color-reverse
emit-color-reverse-nonbold
LIT2r 2018 .term/cols LDZ2 #0001 ( cols i [2018] )
&loop LTH2k ?&done DEOkr INC2 !&loop
@ -1366,6 +1366,9 @@
@emit-color-reverse-bold ( -> )
LIT2 00 "m LIT2 "7 "; LIT2 "1 "; .config/color LDZ2 !ansi-emit
@emit-color-reverse-nonbold ( -> )
LIT2 00 "m LIT2 "7 "; .config/color LDZ2 LIT2 "; "0 !ansi-emit
@draw-all ( -> )
term-erase-all
#0000 #0000 term-move-cursor