slightly better tab controls

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/transition.fnl b/lib/transition.fnl
index e48411d..137789a 100644
--- a/lib/transition.fnl
+++ b/lib/transition.fnl
@@ -96,8 +96,10 @@
     (if (and (. boxes self.type) (> self.tab 0))
         ((. boxes self.type self.tab :action) self)
         (set self.transition true)))
-  (when (and (= key :tab) (. boxes self.type))
+  (when (and (or (= key :tab) (= key :right)) (. boxes self.type))
     (set self.tab (+ (% self.tab (length (. boxes self.type))) 1)))
+  (when (and (= key :left) (. boxes self.type))
+    (set self.tab (+ (% (- self.tab 2) (length (. boxes self.type))) 1)))
   )
 
 (fn mousepressed [self x y button]