From 29186973c837f182b199ef33267778d6dd577876 Mon Sep 17 00:00:00 2001 From: d_m Date: Tue, 28 Nov 2023 10:33:25 -0500 Subject: [PATCH] monochrome by default now --- femto.tal | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/femto.tal b/femto.tal index a18ccf4..1826065 100644 --- a/femto.tal +++ b/femto.tal @@ -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 ( -> )