group modules and scripts

app/edn/arranger.edn

@@ -0,0 +1,82 @@
+  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)}

app/edn/keys.edn

@@ -0,0 +1,21 @@
+(@u           undo 1)
+(@shift-u     redo 1)
+(@space       clock toggle)
+(@shift-space clock toggle 0)
+(@t           select :track 0)
+(@tab         edit :clip)
+(@c           color)
+(@q           launch)
+(@shift-I     input add)
+(@shift-O     output add)
+(@shift-S     scene add)
+(@shift-T     track add)
+
+(@up    select :scene-prev)
+(@w     select :scene-prev)
+(@down  select :scene-next)
+(@s     select :scene-next)
+(@left  select :track-prev)
+(@a     select :track-prev)
+(@right select :track-next)
+(@d     select :track-next)

app/edn/keys_clip.edn

@@ -0,0 +1,8 @@
+(@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)

app/edn/keys_scene.edn

@@ -0,0 +1,7 @@
+(@q      scene launch :scene)
+(@c      scene color :scene)
+(@comma  scene prev)
+(@period scene next)
+(@lt     scene swap-prev)
+(@gt     scene swap-next)
+(@delete scene delete)

app/edn/keys_track.edn

@@ -0,0 +1,12 @@
+(@q      track launch :track)
+(@c      track color :track)
+(@comma  track prev)
+(@period track next)
+(@lt     track swap-prev)
+(@gt     track swap-next)
+(@delete track delete)
+
+(@r track rec)
+(@m track mon)
+(@p track play)
+(@P track solo)

app/edn/view_arranger.edn

@@ -0,0 +1,9 @@
+(bsp/n
+  (fixed/y 2 :transport)
+  (bsp/s
+    (fixed/y 2 :status)
+    (fill/xy
+      (bsp/a
+        (fill/xy
+          (align/e :pool))
+        :arranger))))

app/edn/view_groovebox.edn

@@ -0,0 +1,6 @@
+(bsp/s (fixed/y 2 :toolbar)
+  (bsp/s :sample (bsp/n
+    (fixed/y 2 :status)
+    (bsp/w
+      (fixed/x :pool-w :pool)
+      (bsp/e :sampler :editor)))))

app/edn/view_sequencer.edn

@@ -0,0 +1,4 @@
+(bsp/s (fixed/y 2 :toolbar)
+  (bsp/n (fixed/y 2 :status) (bsp/w
+    (fixed/x :pool-w :pool)
+    :editor)))