From f59ec192857c775a42da6e45d5779cce9c9a18c4 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Thu, 24 Mar 2022 01:35:35 -0400
Subject: [PATCH] allow colors to be toggled

---
 femto.tal | 7 +++++++
 femto.txt | 4 +++-
 2 files changed, 10 insertions(+), 1 deletion(-)

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)