allow colors to be toggled

This commit is contained in:
~d6 2022-03-24 01:35:35 -04:00
parent 201c549135
commit f59ec19285
2 changed files with 10 additions and 1 deletions

View File

@ -589,6 +589,12 @@
.state/quitting LDZ ;quit-now JCN2 .state/quitting LDZ ;quit-now JCN2
BRK BRK
@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
&done ;draw-all JSR2 BRK
@tmp-file-name "file.tmp 00 @tmp-file-name "file.tmp 00
( TODO: M-f and M-b for next/previous word ) ( TODO: M-f and M-b for next/previous word )
@ -598,6 +604,7 @@
#00 .state/saw-esc STZ #00 .state/saw-esc STZ
.Console/read DEI LIT '< EQU ( M-< ) ;goto-start JCN2 .Console/read DEI LIT '< EQU ( M-< ) ;goto-start JCN2
.Console/read DEI LIT '> EQU ( M-> ) ;goto-end JCN2 .Console/read DEI LIT '> EQU ( M-> ) ;goto-end JCN2
.Console/read DEI LIT 'c EQU ( M-< ) ;toggle-color JCN2
.Console/read DEI LIT 'g EQU ( M-g ) ;goto-line JCN2 .Console/read DEI LIT 'g EQU ( M-g ) ;goto-line JCN2
.Console/read DEI LIT 'v EQU ( M-v ) ;page-up JCN2 .Console/read DEI LIT 'v EQU ( M-v ) ;page-up JCN2
.Console/read DEI LIT '[ EQU ( M-[ ) ;xterm JCN2 .Console/read DEI LIT '[ EQU ( M-[ ) ;xterm JCN2

View File

@ -29,6 +29,7 @@ packaging process can be explored.
- doesn't support horizontal scrolling for long lines - doesn't support horizontal scrolling for long lines
- no search (or search&replace) - no search (or search&replace)
- few help messages - few help messages
- doesn't support function keys, mouse, etc.
----- status line ----- ----- status line -----
@ -58,8 +59,9 @@ the femto status line contains a lot of information:
M-> go to end of file M-> go to end of file
M-g go to line M-g go to line
C-l refresh screen (DEBUG)
C-d delete C-d delete
M-c toggle color scheme
C-l refresh screen (DEBUG)
(C stands for Control) (C stands for Control)
(M stands for Meta, often Alt or Option) (M stands for Meta, often Alt or Option)