mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 11:46:41 +01:00
31 lines
1.3 KiB
Clojure
31 lines
1.3 KiB
Clojure
(name "Arranger")
|
|
|
|
(info "A session grid.")
|
|
|
|
(keys
|
|
(layer-if :focus-message "./keys_message.edn")
|
|
(layer-if :focus-device-add "./keys_device_add.edn")
|
|
(layer-if :focus-browser "./keys_browser.edn")
|
|
(layer-if :focus-pool-rename "./keys_rename.edn")
|
|
(layer-if :focus-pool-length "./keys_length.edn")
|
|
(layer-if :focus-editor "./keys_editor.edn")
|
|
(layer-if :focus-clip "./keys_clip.edn")
|
|
(layer-if :focus-track "./keys_track.edn")
|
|
(layer-if :focus-scene "./keys_scene.edn")
|
|
(layer-if :focus-mix "./keys_mix.edn")
|
|
(layer "./keys_clock.edn")
|
|
(layer "./keys_arranger.edn")
|
|
(layer "./keys_global.edn"))
|
|
|
|
(view (bsp/a :view-dialog
|
|
(bsp/s
|
|
(fixed/y 8 (bsp/e
|
|
(fixed/x 20 (fill/y (align/n (bsp/s :view-status-v
|
|
(bsp/s (bsp/s :view-audio-ins-status :view-audio-outs-status)
|
|
:view-editor-status)))))
|
|
(fill/xy (align/n (bsp/s :view-arranger-track-names
|
|
(bsp/s :view-arranger-track-outputs
|
|
(bsp/s :view-arranger-track-devices :view-arranger-track-inputs)))))))
|
|
(fill/xy (align/w (bsp/e
|
|
(fill/y (align/n (fixed/x 20 :view-arranger-scenes-names)))
|
|
(fill/y (align/n :view-arranger-scenes-clips)))))))))
|