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

better term.tal compat

This commit is contained in:
~d6 2023-01-30 15:09:07 -05:00
parent 8ee11ca971
commit 63ffb1c50f
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
femto.tal
View File

@ -1214,7 +1214,7 @@
;abs-line JMP2 ;abs-line JMP2
@draw-regex-matches ( -> ) @draw-regex-matches ( -> )
;emit-color-reverse JSR2 ( ) ;emit-color-reverse-bold JSR2 ( )
;screen-limit JSR2 .buffer/offset LDZ2 ( limit pos ) ;screen-limit JSR2 .buffer/offset LDZ2 ( limit pos )
&loop ( limit pos ) &loop ( limit pos )
GTH2k #00 EQU ( limit pos limit>pos=0? ) GTH2k #00 EQU ( limit pos limit>pos=0? )
@ -1238,7 +1238,7 @@
( return if not searching ) ( return if not searching )
.searching/active LDZ #00 EQU ,&return JCN ( ) .searching/active LDZ #00 EQU ,&return JCN ( )
.searching/regex LDZ2 ORA ;draw-regex-matches JCN2 .searching/regex LDZ2 ORA ;draw-regex-matches JCN2
;emit-color-reverse JSR2 ;emit-color-reverse-bold JSR2
lmargin ,&x STR2 #0000 ,&y STR2 ( x <- 0, y <- 0 ) lmargin ,&x STR2 #0000 ,&y STR2 ( x <- 0, y <- 0 )
.buffer/offset LDZ2 DUP2 .buffer/offset LDZ2 DUP2
;screen-limit JSR2 SUB2 STH2 ( offset [-count] ) ;screen-limit JSR2 SUB2 STH2 ( offset [-count] )
@ -1353,6 +1353,11 @@
@emit-color-bold ( -> ) @emit-color-bold ( -> )
LIT2 00 "m LIT2 "1 "; .config/color LDZ2 ,ansi-emit JMP LIT2 00 "m LIT2 "1 "; .config/color LDZ2 ,ansi-emit JMP
( ESC [ 3 $x ; 1 ; 7 m )
( $x is 0-7 )
@emit-color-reverse-bold ( -> )
LIT2 00 "m LIT2 "7 "; LIT2 "1 "; .config/color LDZ2 ,ansi-emit JMP
@draw-all ( -> ) @draw-all ( -> )
;term-erase-all JSR2 ;term-erase-all JSR2
#0000 #0000 ;term-move-cursor JSR2 #0000 #0000 ;term-move-cursor JSR2

5
term.tal
View File

@ -237,7 +237,10 @@
.Controller/key DEI ,&ok JCN ,on-button JMP .Controller/key DEI ,&ok JCN ,on-button JMP
&ok ,alt? JSR ,on-alt-key JCN &ok ,alt? JSR ,on-alt-key JCN
,ctrl? JSR ,on-ctrl-key JCN ,ctrl? JSR ,on-ctrl-key JCN
.Controller/key DEI .Console/w DEO BRK .Controller/key DEI
DUP #08 NEQ ,&done JCN
POP #7f ( send DEL instead of BS )
&done .Console/w DEO BRK
@ctrl? ( -> is-down? ) .Controller/button DEI #01 AND JMP2r @ctrl? ( -> is-down? ) .Controller/button DEI #01 AND JMP2r
@alt? ( -> is-down? ) .Controller/button DEI #02 AND JMP2r @alt? ( -> is-down? ) .Controller/button DEI #02 AND JMP2r