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

monochrome by default now

This commit is contained in:
~d6 2023-11-28 10:33:25 -05:00
parent 1dddbf6cf9
commit 29186973c8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
femto.tal
View File

@ -72,6 +72,7 @@
&tab-adjust $2 ( how many "extra" spaces; tab-width - 1 )
&insert-tabs $1 ( tab key inserts tabs when true )
&color $2 ( digits of highlight color in reverse order )
&red $2 ( digits of color for line/EOF markers in reverse order )
]
( tracks information related to the buffer's view of data )
@ -143,7 +144,10 @@
#0004 .config/tab-width STZ2
#0003 .config/tab-adjust STZ2
#00 .config/insert-tabs STZ
#3333 .config/color STZ2
( #3333 .config/color STZ2 )
( #3133 .config/red STZ2 )
#3033 .config/color STZ2
#3033 .config/red STZ2
;data .buffer/offset STZ2
( start reading the filename from argv )
@ -773,8 +777,9 @@
( - white )
@toggle-color ( -> )
.config/color LDZ2 #3733 EQU2 ,&wrap-around JCN
.config/color LDZ2 #0100 ADD2 .config/color STZ2 ,&done JMP
&wrap-around #3033 .config/color STZ2
.config/color LDZ2 #0100 ADD2 .config/color STZ2
#3133 .config/red STZ2 ,&done JMP
&wrap-around #3033 DUP2 .config/color STZ2 .config/red STZ2
&done ;redraw-all JSR2 ;return JMP2
( toggle whether to use literal tab characters )
@ -798,6 +803,7 @@
.state/key LDZ LIT "c EQU ( M-c ) ;toggle-color JCN2
.state/key LDZ LIT "f EQU ( M-f ) ;forward-by-word JCN2
.state/key LDZ LIT "g EQU ( M-g ) ;goto-line JCN2
.state/key LDZ LIT "h EQU ( M-h ) ;help JCN2
.state/key LDZ LIT "s EQU ( M-s ) ;regex-search JCN2
.state/key LDZ LIT "t EQU ( M-t ) ;toggle-tabs JCN2
.state/key LDZ LIT "u EQU ( M-u ) ;undo JCN2
@ -1330,7 +1336,7 @@
( ESC [ 3 1 m )
@emit-red ( -> )
LIT2 00 "m LIT2 "1 "3 ,ansi-emit JMP
LIT2 00 "m .config/red LDZ2 ,ansi-emit JMP
( ESC [ 0 m )
@emit-reset ( -> )