d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display markers for tab+caret

This commit is contained in:
Devine Lu Linvega 2024-05-27 20:12:52 -07:00
parent 372976e425
commit 58e4c6a0a7
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gui/notepad/src/assets.tal
View File

@ -15,6 +15,9 @@
0000 00ff 00ff 00ff 00ff 00ff 00ff 0000 ] 0000 00ff 00ff 00ff 00ff 00ff 00ff 0000 ]
&c [ &c [
0000 00fe 00fe 00fe 00fe 00fe 00fe 0000 ] 0000 00fe 00fe 00fe 00fe 00fe 00fe 0000 ]
@marker-icn [
0000 0000 0000 4060 7060 4000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 ]
@close-icn @close-icn
0000 00ff 8080 8080 8080 8080 80ff 0000 0000 00ff 8080 8080 8080 8080 80ff 0000
0000 00ef 202f 202f 202f 202f 20ef 0000 0000 00ef 202f 202f 202f 202f 20ef 0000

21
gui/notepad/src/notepad.tal
View File

@ -519,16 +519,18 @@ JMP2r
JMP2r JMP2r
@char-addr ( char -- addr* ) @char-addr ( prev char -- addr* )
DUP #7e GTH ?&missing DUP #7e GTH ?&missing
DUP #20 LTH ?&blank DUP #20 LTH ?&blank
#20 SUB DUP2 #093e EQU2 ?&marker
NIP #20 SUB
#00 SWP #50 SFT2 ;font/glyphs ADD2 #00 SWP #50 SFT2 ;font/glyphs ADD2
JMP2r JMP2r
&blank POP ;font/glyphs JMP2r &blank POP2 ;font/glyphs JMP2r
&missing POP ;error-icn JMP2r &missing POP2 ;error-icn JMP2r
&marker POP2 ;marker-icn JMP2r
@char-width ( char -- width* ) @char-width ( char -- width* )
@ -649,7 +651,7 @@ JMP2r
get-page get-page
&while &while
( draw char ) ( draw char )
LDAk char-addr .Screen/addr DEO2 DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2 .Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector ) ( draw selector )
@ -713,6 +715,7 @@ JMP2r
.Mouse/x DEI2 ,draw-cursor/x STR2 .Mouse/x DEI2 ,draw-cursor/x STR2
.Mouse/y DEI2 ,draw-cursor/y STR2 .Mouse/y DEI2 ,draw-cursor/y STR2
.Screen/addr DEO2 .Screen/addr DEO2
( >> )
@draw-cursor ( color -- ) @draw-cursor ( color -- )
@ -725,6 +728,14 @@ JMP2r
( (
@|stdlib ) @|stdlib )
@<phex> ( short* -: )
SWP /b
&b ( byte -: )
DUP #04 SFT /c
&c ( byte -: )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
@load-theme ( -- ) @load-theme ( -- )
;&path .File/name DEO2 ;&path .File/name DEO2