From 87cb90db9b031df747a93d72fa64037d073517cf Mon Sep 17 00:00:00 2001
From: Derek Stevens <nilix@nilfm.cc>
Date: Wed, 22 Mar 2023 20:38:10 -0600
Subject: [PATCH] taro-ls: start implementing extra keybinds

---
 taro-ls.tal | 45 ++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 38 insertions(+), 7 deletions(-)

diff --git a/taro-ls.tal b/taro-ls.tal
index 04399ea..50c4a61 100644
--- a/taro-ls.tal
+++ b/taro-ls.tal
@@ -264,17 +264,48 @@ JMP2r
     handle_textbox
     BRK
   &no_text_entry
-  ( TODO: add shortcuts for common actions
-    - del: trash
+  
+    ( TODO: add shortcuts for common actions
     - up/dn: change selection (mail)
     - tab: change selection (mailbox)
     - shift+up/dn: multiselect
-    - /: search
-    - r: refresh
-    - m: refile
-    - c: compose
-    - .: all read
+    - return: read (first in selection)
+    - n: compose
   )
+  
+  .Controller/key DEI
+  DUP #7f NEQ ,&no_del JCN
+    send_trash
+  &no_del
+  DUP #2f NEQ ,&no_search JCN
+    enter_search_mode
+  &no_search
+  DUP #72 NEQ ,&no_refresh JCN
+    send_get_mbox
+  &no_refresh
+  DUP #6d NEQ ,&no_refile JCN
+    enter_refile_mode
+  &no_refile
+  DUP #6e NEQ ,&no_compose JCN
+    ( awaiting compose window implementation )
+  &no_compose
+  DUP #2e NEQ ,&no_all_read JCN
+    send_mark_all_read
+  &no_all_read
+  DUP #0d NEQ ,&no_reader JCN
+    ( awaiitng reader window implementation )
+  &no_reader
+  DUP #09 NEQ ,&no_tab JCN
+    ( check shift or not - prev mailbox if so, otherwise next )
+  &no_tab
+  &check_btns
+  POP
+  .Controller/button DEI
+  DUP #10 NEQ ,&no_up JCN
+  &no_up
+  DUP #20 NEQ ,&no_down JCN
+  &no_down
+  POP
 BRK
 
 @handle_textbox ( -> )