all repos — taro @ a25d225fa5473b3230e1f249159ef8b01b338725

mblaze frontend in uxn + crystal 

taro-ctl: delete socket file before starting server; taro-ls: add keybinds for switching mailboxes
Iris Lightshard nilix@nilfm.cc
PGP Signature 
-----BEGIN PGP SIGNATURE-----

iQIzBAABCAAdFiEEkFh6dA+k/6CXFXU4O3+8IhROY5gFAmQgusUACgkQO3+8IhRO
Y5hElQ//Rn6d1DOKyNcZhogwUidAigCrspOZD8CW4sBETFslp3dDY707GEI50+/y
QymBXX/81etwAERtpE00N6PyGf5UYrTZZqEM3ZZf8dm3zWNrP6B4OyE6J14JSvkp
iXTu09Q1blHbwls03sI7CxMYmrKgS5e35ycuW0p2pUT7Qwd5ZAZ1aQmFo3KSTTZH
bZM6s7ENOI+ep7nEZzQ24eaBUcrJuwmey15JlrhtRRp08ViejhrmZMsrfrZ6BDyX
GJiV5eQf8sU+/kgVB9p/CNaKQH5IC7qCzd2h1FgxF9GUqL5qLwWPINiavg3rDA8U
mHdev1tPdY09sXgcU3ybwAzWXUTLRkhulGk+TLBDNal2Z0RHBENvW73+v8Qw1HgJ
BFC0UU3+nh7i24kEYTKEIdgHocLHZMA4ZjZ6oXQFMIPZBZiA6SlIdPX7BTYBSggW
GGWpQLo78ygRIRzpXePAKSerGy8YozUFE3RCtoQJBZeSgzryQPISccpgR/ih9dNE
eeBe8EvJuhYLLpU0cI5Q6tPyDG9MC9H1v8Anq4/BpDf32+p937Wt0fds1LO16l7Q
hhOLQY5DFos404Rsoc2IE1uB95UmuUXWo4u08tKuUu+Br0c7e/G90WJ1+L+JvYnE
vlZMOJaB8ytTOad2nGUNFxTdPSl8JzkD5gGsIwjKtJcO39v/JPw=
=ApBh
-----END PGP SIGNATURE-----
commit

a25d225fa5473b3230e1f249159ef8b01b338725

parent

74c686216369b08231455d848000b24acc39deb6

2 files changed, 32 insertions(+), 2 deletions(-)

jump to
M taro-ctl.cr → taro-ctl.cr 
@@ -72,7 +72,6 @@ spawn do
           Process.run(
             command: UXN_EMU,
             args: [ "-s", "1", "taro-ls" ],
-            shell: true,
             chdir: TARO_LIB, 
             input: @stdin_r, 
             output: @stdout_w, 

@@ -266,6 +265,8 @@ 
 end
 
 taro = Taro::TaroCtl.new
+
+File.delete?("#{TARO_LIB}/taro.sock")
 srv = UNIXServer.new("#{TARO_LIB}/taro.sock")
 
 spawn do
M taro-ls.tal → taro-ls.tal 
@@ -328,7 +328,7 @@ DUP #0d NEQ ,&no_reader JCN
     send_reader
   &no_reader
   DUP #09 NEQ ,&no_tab JCN
-    ( check shift or not - prev mailbox if so, otherwise next )
+    change_mbox_by_key
   &no_tab
   &check_btns
   POP

@@ -338,6 +338,35 @@ &no_up
   DUP #20 NEQ ,&no_down JCN
   &no_down
 BRK
+
+@change_mbox_by_key ( -> )
+  .Controller/button DEI #04 AND ,&back JCN
+  ( fwd )
+    .mboxes/select_index LDZ2 INC2 .mboxes/len LDZ2 NEQ2 ,&can_go_fwd JCN
+    ( jump to first )
+      #0000 .mboxes/select_index STZ2
+      #0000 .mboxes/top STZ2
+      ,&end JMP
+    &can_go_fwd
+    .mboxes/select_index LDZ2 INC2 .mboxes/select_index STZ2
+    .mboxes/select_index LDZ2 #00 .mboxes/height LDZ .mboxes/top LDZ2 ADD2 LTH2 ,&no_scroll_down JCN
+      .mboxes/top LDZ2 INC2 .mboxes/top STZ2
+    &no_scroll_down ,&end JMP
+  &back
+    .mboxes/select_index LDZ2 #0000 NEQ2 ,&can_go_back JCN
+      .mboxes/len LDZ2 #0001 SUB2 .mboxes/select_index STZ2
+      .mboxes/len LDZ2 #00 .mboxes/height LDZ SUB2 .mboxes/top STZ2
+      ,&end JMP
+    &can_go_back
+    .mboxes/select_index LDZ2 #0001 SUB2 .mboxes/select_index STZ2
+    .mboxes/select_index LDZ2 INC2 .mboxes/top LDZ2 GTH2 ,&no_scroll_up JCN
+      .mboxes/top LDZ2 #0001 SUB2 .mboxes/top STZ2
+    &no_scroll_up ,&end JMP
+  &end
+  .mboxes mbox_select_handler
+  #01 .refresh/mboxes STZ
+  #01 .refresh/list STZ
+JMP2r
 
 @handle_textbox ( -> )