@@ 9,7 9,7 @@ SRC="src/left.tal"
DST="bin/left.rom"
CPY="$HOME/roms"
-ARG="src/left.tal"
+ARG="untitled.txt"
APPID="hundredrabbits/left:uxn"
@@ 322,7 322,6 @@ BRK
&ver-end
POP2r
( goto x )
- #00 .textarea/fixed STZ
( b ) .Mouse/x DEI2 .scroll/x LDZ2 ADD2 #0090 SUB2 STH2
( a ) LIT2r 0000
&hor
@@ 819,7 818,6 @@ JMP2r
.selection/from LDZ2 get-current-marker
get-marker ;walk-color/scope STA2
#00 ;walk-color/c STA
- #00 .textarea/fixed STZ
( paint )
#0010 .scroll/x LDZ2 SUB2 #0080 ADD2 .Screen/x DEO2
#0020 .Screen/y DEO2
@@ 831,7 829,6 @@ JMP2r
GTH2k ?&l
&end
POP2 POP2
- #00 .textarea/fixed STZ
!draw-scrollbar
( .. )
@@ 868,8 865,6 @@ JMP2r
@walk-color ( addr* -- addr* color )
.textarea/highlight LDZ ?&skip
- LDAk LIT "[ NEQ ?&no-fixed-start #01 .textarea/fixed STZ &no-fixed-start
- LDAk LIT "] NEQ ?&no-fixed-end #00 .textarea/fixed STZ &no-fixed-end
LDAk LIT ") EQU ?&comment-end
[ LIT &c $1 ] ?&comment
LDAk LIT "( EQU ?&comment
@@ 892,8 887,7 @@ JMP2r
@draw-ufx ( char color -- )
;&color STA
-
- DUP #20 SUB #5e GTH ?draw-special
+ DUP #0a EQU ?draw-space
( width ) DUP get-chrw NIP
( addr* ) SWP get-chr
@@ 918,20 912,14 @@ JMP2r
JMP2r
-@draw-special ( char -- )
+@draw-space ( c -- )
- [ #09 ] NEQk NIP ?&no-tab
- POP #0e ;tab-icn !draw-ufx/seg
- &no-tab
- [ #0a ] NEQk NIP ?&no-linebreak
- POP #07 ;linebreak-icn draw-ufx/seg
- .Screen/y DEI2k #0010 ADD2 ROT DEO2
- #0010 .scroll/x LDZ2 SUB2 #0080 ADD2 .Screen/x DEO2
- JMP2r
- &no-linebreak
- POP #08 ;checkered-icn !draw-ufx/seg
+ POP
+ #00 ;linebreak-icn draw-ufx/seg
+ .Screen/y DEI2k #0010 ADD2 ROT DEO2
+ #0010 .scroll/x LDZ2 SUB2 #0080 ADD2 .Screen/x DEO2
-( .. )
+JMP2r
@draw-scrollbar ( -- )
@@ 1018,19 1006,24 @@ JMP2r
@get-chr ( c -- addr* )
- .textarea/fixed LDZ ?&fixed
- #00 SWP #20 SUB #50 SFT2 ;font/glyphs ADD2
+ DUP #09 EQU ?&tab
+ #20 SUB
+ DUP #5f GTH ?&unknown
+ #00 SWP #50 SFT2 ;font/glyphs ADD2
JMP2r
&fixed #00 SWP #20 SUB #40 SFT2 ;font-mono/glyphs ADD2 JMP2r
+ &tab POP ;tab-icn JMP2r
+ &unknown POP ;checkered-icn JMP2r
@get-chrw ( c -- width* )
- .textarea/fixed LDZ ?&fixed
+ DUP #7f GTH ?&unknown
#0000 ROT ;font ADD2 LDA
JMP2r
&fixed #0000 ROT ;font-mono ADD2 LDA JMP2r
+ &unknown POP #0008 JMP2r
@get-strw ( str* -- width* )