recollect edns

.old/todo_arranger.edn

@@ -0,0 +1,83 @@
+  This is the unified Tek Arranger.
+
+  Its appearance is defined by the following view definition:
+
+{def :view (bsp/s (fixed/y 2 :toolbar)
+  (fill/x (align/c (bsp/w (fixed/x :pool-w :pool)
+    (bsp/n (fixed/y 3 :outputs)
+      (bsp/n (fixed/y 3 :inputs)
+        (bsp/n (fixed/y 3 :tracks) :scenes)))))))}
+
+  The arranger's behavior is controlled by the
+  following keymaps:
+
+{def :keys
+  (@u           undo 1)
+  (@shift-u     redo 1)
+  (@space       clock toggle)
+  (@shift-space clock toggle 0)
+  (@ctrl-a      scene add)
+  (@ctrl-t      track add)
+  (@tab         edit :clip)
+  (@c           color)}
+
+{def :keys-mix
+  (@down  select 0 1)
+  (@s     select 0 1)
+
+  (@right select 1 0)
+  (@d     select 1 0)}
+
+{def :keys-track
+  (@left   select :track-prev :scene)
+  (@a      select :track-prev :scene)
+  (@right  select :track-next :scene)
+  (@d      select :track-next :scene)
+  (@down   select :track :scene-next)
+  (@s      select :track :scene-next)
+
+  (@q      track launch)
+  (@c      track color :track)
+  (@comma  track swap-prev)
+  (@period track swap-next)
+  (@lt     track size-dec)
+  (@gt     track size-inc)
+  (@delete track delete)}
+
+{def :keys-scene
+  (@up     select :track :scene-prev)
+  (@w      select :track :scene-prev)
+  (@down   select :track :scene-next)
+  (@s      select :track :scene-next)
+  (@right  select :track-next :scene)
+  (@d      select :track-next :scene)
+
+  (@q      scene launch)
+  (@c      scene color :scene)
+  (@comma  scene swap-prev)
+  (@period scene swap-next)
+  (@lt     scene size-dec)
+  (@gt     scene size-inc)
+  (@delete scene delete)}
+
+{def :keys-clip
+  (@up    select :track :scene-prev)
+  (@w     select :track :scene-prev)
+  (@down  select :track :scene-next)
+  (@s     select :track :scene-next)
+  (@left  select :track-prev :scene)
+  (@a     select :track-prev :scene)
+  (@right select :track-next :scene)
+  (@d     select :track-next :scene)
+
+  (@q      enqueue :clip)
+  (@c      clip color :track :scene)
+  (@g      clip get)
+  (@p      clip put)
+  (@delete clip del)
+  (@comma  clip prev)
+  (@period clip next)
+  (@lt     clip swap-prev)
+  (@gt     clip swap-next)
+  (@l      clip loop-toggle)}
+