mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 03:36:41 +01:00
31 lines
1.2 KiB
Clojure
31 lines
1.2 KiB
Clojure
(name
|
|
"Arranger")
|
|
(info
|
|
"A grid of launchable clips arranged by track and scene.")
|
|
(keys
|
|
(cond :focus-editor (load "./keys_editor.edn"))
|
|
(cond :focus-dialog (load "./keys_dialog.edn"))
|
|
(cond :focus-message (load "./keys_message.edn"))
|
|
(cond :focus-device-add (load "./keys_device_add.edn"))
|
|
(cond :focus-browser (load "./keys_browser.edn"))
|
|
(cond :focus-pool-rename (load "./keys_rename.edn"))
|
|
(cond :focus-pool-length (load "./keys_length.edn"))
|
|
(cond :focus-clip (load "./keys_clip.edn"))
|
|
(cond :focus-track (load "./keys_track.edn"))
|
|
(cond :focus-scene (load "./keys_scene.edn"))
|
|
(cond :focus-mix (load "./keys_mix.edn"))
|
|
(load "./keys_clock.edn")
|
|
(load "./keys_arranger.edn")
|
|
(load "./keys_global.edn"))
|
|
(view
|
|
(bsp/a :view-dialog
|
|
(bsp/w :view-meters-output
|
|
(bsp/e :view-meters-input
|
|
(bsp/n (fixed/y 2 :view-status-h2)
|
|
(bsp/n :view-tracks-inputs
|
|
(bsp/s :view-tracks-devices
|
|
(bsp/s :view-tracks-outputs
|
|
(bsp/s :view-tracks-names
|
|
(fill/xy (either :focus-editor
|
|
(bsp/e :view-scenes-names :view-editor)
|
|
:view-scenes)))))))))))
|