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)}