From 0b858061366979a176edb26295ff472177976178 Mon Sep 17 00:00:00 2001
From: Derek Stevens <nilix@nilfm.cc>
Date: Sun, 26 Mar 2023 16:07:39 -0600
Subject: [PATCH] taro-ls: implement nav of mail list by key

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

diff --git a/taro-ls.tal b/taro-ls.tal
index 0e41c10..43f4b9a 100644
--- a/taro-ls.tal
+++ b/taro-ls.tal
@@ -334,9 +334,16 @@ JMP2r
   POP
   .Controller/button DEI
   DUP #10 NEQ ,&no_up JCN
+    ;noop_list_click .list #01 nav_list_by_key
   &no_up
   DUP #20 NEQ ,&no_down JCN
+    ;noop_list_click .list #00 nav_list_by_key
   &no_down
+  DUP #14 NEQ ,&no_select_up JCN
+  &no_select_up
+  DUP #24 NEQ ,&no_select_down JCN
+  &no_select_down
+  POP
 BRK
 
 @nav_list_by_key ( onchange* list up? -- )