mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 03:36:41 +01:00
83 lines
2.1 KiB
Clojure
83 lines
2.1 KiB
Clojure
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)}
|
|
|