From 201c54913528272db9370f5595f0195aeb5e838b Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Thu, 24 Mar 2022 01:26:06 -0400
Subject: [PATCH] support arrow keys, page up/down, etc

---
 femto.tal | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 50 insertions(+), 2 deletions(-)

diff --git a/femto.tal b/femto.tal
index 6a22e90..77fa2b4 100644
--- a/femto.tal
+++ b/femto.tal
@@ -96,6 +96,8 @@
 
 @state [
     &saw-esc $1     ( did we just see ESC? )
+    &saw-xterm $1   ( did we just see an ESC [ xterm sequence? )
+    &saw-vt $1      ( did we just see an ESC [ $N vt sequence? )
     &modified $1    ( has the buffer been modified? )
     &quitting $1    ( are we in the process of quitting? )
 ]
@@ -576,8 +578,11 @@
 
     ;move-to-message-line JSR2
     .File/success DEI2 STH2r EQU2 ( ok? ) ,&ok JCN
-    ;messages/save-failed ,&finish JMP
-    &ok #00 .state/modified STZ ;messages/save-ok 
+        ;messages/save-failed ,&finish JMP
+    &ok
+        #00 .state/modified STZ
+        ;tmp/data ;filename ;str-copy JSR2
+        ;messages/save-ok 
     &finish
         ;print JSR2 ;tmp/data ;print JSR2
         ;draw-all JSR2
@@ -595,6 +600,47 @@
     .Console/read DEI LIT '> EQU ( M-> ) ;goto-end 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
+    BRK
+
+@xterm
+    #01 .state/saw-xterm STZ BRK
+
+@on-key-vt ( -> )
+    .state/saw-vt LDZk STH #00 SWP STZ
+    .Console/read DEI LIT '~ EQU ,&ok JCN
+        POPr BRK
+    &ok
+      STHr DUP LIT '1 NEQ ,&not-1 JCN
+        ( ^[[1~ -> home ) POP ;bol JMP2
+    &not-1 DUP LIT '2 NEQ ,&not-2 JCN
+        ( ^[[2~ -> insert ) POP BRK
+    &not-2 DUP LIT '3 NEQ ,&not-3 JCN
+        ( ^[[3~ -> delete ) POP ;delete JMP2
+    &not-3 DUP LIT '4 NEQ ,&not-4 JCN
+        ( ^[[4~ -> end ) POP ;eol JMP2
+    &not-4 DUP LIT '5 NEQ ,&not-5 JCN
+        ( ^[[5~ -> page up ) POP ;page-up JMP2
+    &not-5 DUP LIT '6 NEQ ,&not-6 JCN
+        ( ^[[6~ -> page down ) POP ;page-down JMP2
+    &not-6 DUP LIT '7 NEQ ,&not-7 JCN
+        ( ^[[7~ -> home ) POP ;bol JMP2
+    &not-7 DUP LIT '8 NEQ ,&not-8 JCN
+        ( ^[[8~ -> end ) POP ;eol JMP2
+    &not-8
+        ( ??? ) POP BRK
+
+@on-key-xterm ( -> )
+    #00 .state/saw-xterm STZ
+    .Console/read DEI LIT 'A EQU ( ^[[A -> up ) ;up JCN2
+    .Console/read DEI LIT 'B EQU ( ^[[B -> down ) ;down JCN2
+    .Console/read DEI LIT 'C EQU ( ^[[C -> right ) ;forward JCN2
+    .Console/read DEI LIT 'D EQU ( ^[[D -> left ) ;back JCN2
+    .Console/read DEI LIT 'F EQU ( ^[[F -> end ) ;eol JCN2
+    .Console/read DEI LIT 'H EQU ( ^[[H -> home ) ;bol JCN2
+    .Console/read DEI LIT '0 LTH ;ignore JCN2
+    .Console/read DEI LIT '8 GTH ;ignore JCN2
+    .Console/read DEI .state/saw-vt STZ ( ^[[1 through ^[[8 )
     BRK
 
 @clear-line ( -> )
@@ -620,6 +666,8 @@
 @on-key
     ;clear-message-line JSR2
     .prompt/active LDZ ;on-key-prompt JCN2
+    .state/saw-vt LDZ ;on-key-vt JCN2
+    .state/saw-xterm LDZ ;on-key-xterm JCN2
     .state/saw-esc LDZ ;on-key-escaped JCN2
     .Console/read DEI #01 EQU ( C-a ) ;bol JCN2
     .Console/read DEI #02 EQU ( C-b ) ;back JCN2