d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clean up femto

This commit is contained in:
~d6 2022-04-10 13:55:40 -04:00
parent 841b09b686
commit c1885c8038
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
femto.tal
View File

@ -880,10 +880,9 @@
( this method unsets searching/active and also restores ) ( this method unsets searching/active and also restores )
( the original cursor position. ) ( the original cursor position. )
@cancel-search @cancel-search
#00 .searching/active STZ
.searching/orig-row LDZ2 ;jump-to-line JSR2 .searching/orig-row LDZ2 ;jump-to-line JSR2
.searching/orig-col LDZ2 .cursor/col STZ2 .searching/orig-col LDZ2 .cursor/col STZ2
;redraw-all JSR2 ;return JMP2 ,finish-search JMP
( cancel the active search ) ( cancel the active search )
( ) ( )
@ -891,7 +890,7 @@
( this leaves the cursor where it is. ) ( this leaves the cursor where it is. )
@finish-search @finish-search
#00 .searching/active STZ #00 .searching/active STZ
;redraw-all JSR2 ;return JMP2 ;reset-arena JSR2 ;redraw-all JSR2 ;return JMP2
( TODO: i haven't decided how to solve the problem of ) ( TODO: i haven't decided how to solve the problem of )
( overlapping matches yet. i don't really want to maintain ) ( overlapping matches yet. i don't really want to maintain )
@ -1104,7 +1103,6 @@
( these don't perform a redraw right away, but instead ) ( these don't perform a redraw right away, but instead )
( signal that the next drawing should include that part. ) ( signal that the next drawing should include that part. )
@redraw-cursor ( -> ) #01 ,redraw-add JMP @redraw-cursor ( -> ) #01 ,redraw-add JMP
@redraw-statusbar ( -> ) #02 ,redraw-add JMP
@redraw-statusbar-and-cursor ( -> ) #03 ,redraw-add JMP @redraw-statusbar-and-cursor ( -> ) #03 ,redraw-add JMP
@redraw-prompt-and-cursor ( -> ) #05 ,redraw-add JMP @redraw-prompt-and-cursor ( -> ) #05 ,redraw-add JMP
@redraw-matches ( -> ) #08 ,redraw-add JMP @redraw-matches ( -> ) #08 ,redraw-add JMP
@ -1629,8 +1627,8 @@
&loop LDAk STH2kr STA &loop LDAk STH2kr STA
INC2 INC2r INC2 INC2r
DUP2 ;undo-stack/pos LDA2 LTH2 ,&loop JCN DUP2 ;undo-stack/pos LDA2 LTH2 ,&loop JCN
&done ;undo-stack/pos LDA2k #0003 SUB2 SWP2 STA2 ;undo-stack/pos LDA2k #0003 SUB2 SWP2 STA2
POP2 POP2r JMP2r POP2 POP2r JMP2r
( push a new item on the undo stack ) ( push a new item on the undo stack )
@u-push ( c^ addr* -> ) @u-push ( c^ addr* -> )