M etc/cream.uf2 => etc/cream.uf2 +0 -0
M src/assets.tal => src/assets.tal +2 -2
@@ 30,8 30,8 @@
0000 0000 0000 0000 0000 0000 0000 0000
@font
-0000 0000 0000 0000 000f 0800 0000 0000
-0000 0000 0000 0000 0000 0000 0000 0000
+0808 0808 0808 0808 080f 0808 0808 0808
+0808 0808 0808 0808 0808 0808 0808 0808
0402 0509 0606 0803 0505 0806 0306 0206
0703 0707 0707 0707 0707 0303 0406 0407
0908 0707 0706 0607 0703 0407 070a 0708
M src/left.tal => src/left.tal +4 -0
@@ 317,6 317,9 @@ BRK
( a ) LIT2r 0000
&hor
LDAk #0a EQU ,&hor-end JCN
+ LDAk ;phex/b JSR2 #2018 DEO
+ LDAk ;get-width JSR2 ;phex JSR2 #0a18 DEO
+
LDAk ;get-width JSR2 STH2 ADD2r
LTH2kr STHr ,&hor-end JCN
INC2 LDAk ,&hor JCN
@@ 446,6 449,7 @@ JMP2r
@get-width ( char -- width* )
+ DUP #7e GTH ,&special JCN
.textarea/highlight LDZ ,&skip-highlight JCN
[ LIT ". ] EQUk NIP ,&special JCN
[ LIT ", ] EQUk NIP ,&special JCN