taro-ls: start implementing extra keybinds

taro-ls.tal

@@ -264,17 +264,48 @@ JMP2r
     handle_textbox
     BRK
   &no_text_entry
+  
     ( TODO: add shortcuts for common actions
-    - del: trash
     - up/dn: change selection (mail)
     - tab: change selection (mailbox)
     - shift+up/dn: multiselect
-    - /: search
+    - return: read (first in selection)
-    - r: refresh
+    - n: compose
-    - m: refile
-    - c: compose
-    - .: all read
   )
+  
+  .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 ( -> )