allow colors to be toggled

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

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)