diff --git a/femto.tal b/femto.tal index 77fa2b4..c46c4aa 100644 --- a/femto.tal +++ b/femto.tal @@ -589,6 +589,12 @@ .state/quitting LDZ ;quit-now JCN2 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 ( TODO: M-f and M-b for next/previous word ) @@ -598,6 +604,7 @@ #00 .state/saw-esc STZ .Console/read DEI LIT '< EQU ( M-< ) ;goto-start 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 'v EQU ( M-v ) ;page-up JCN2 .Console/read DEI LIT '[ EQU ( M-[ ) ;xterm JCN2 diff --git a/femto.txt b/femto.txt index d34a838..53f08d5 100644 --- a/femto.txt +++ b/femto.txt @@ -29,6 +29,7 @@ packaging process can be explored. - doesn't support horizontal scrolling for long lines - no search (or search&replace) - few help messages + - doesn't support function keys, mouse, etc. ----- status line ----- @@ -58,8 +59,9 @@ the femto status line contains a lot of information: M-> go to end of file M-g go to line - C-l refresh screen (DEBUG) C-d delete + M-c toggle color scheme + C-l refresh screen (DEBUG) (C stands for Control) (M stands for Meta, often Alt or Option)