neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improved symbols search

This commit is contained in:
Devine Lu Linvega 2024-03-11 12:03:41 -07:00
parent 9a98887da6
commit abcc43690d
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/left.tal
View File

@ -1422,21 +1422,24 @@
;blinker-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEO
<draw-symbol-bubble>
INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until
( ) walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
<draw-symbol-fill>
walk-blank #0001 SUB2
( members )
&>l ( -- )
LDAk DUP #00 NEQ SWP [ LIT "@ ] NEQ AND ?{
POP2 ,&anchor LDR2 .Screen/x DEO2
LDAk [ LIT "@ ] EQU ?&end
LDAk ?{
&end POP2 ,&anchor LDR2 .Screen/x DEO2
#20 !<draw-symbol-frame> }
LDAk #20 GTH ?{
INC2k LDA2 #21 LTH SWP [ LIT "& ] NEQ ORA ?{
LDAk #20 LTH ?{
LDAk [ LIT "& ] NEQ ?{
[ LIT2 &anchor $2 ] .Screen/x DEO2
INC2 INC2 #01 draw-symbol-key walk-blank LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
INC2 #01 draw-symbol-key walk-blank
( ) LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
<draw-symbol-fill>
walk-blank #0001 SUB2 !&>l }
}
walk-blank !&>l }
walk-word }
INC2 !&>l
@<draw-symbol-frame> ( flip -- )

2
untitled.txt
View File

@ -5,7 +5,7 @@ a very long line that doesn't quite display on a single screen to test the scrol
@delete ( -- )
[ LIT2 &name $2 ]
[ LIT &field -default ]
has-length ?&block
has-length ?&block [ LIT "@ ]
get-from INC2k get-eof NEQ2 ?&single
POP2 JMP2r
&block ( a -- b )