mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 03:36:41 +01:00
18 lines
763 B
Clojure
18 lines
763 B
Clojure
(name "Groovebox")
|
|
|
|
(info "A sequencer with built-in sampler.")
|
|
|
|
(keys
|
|
(layer-if :focus-browser "./keys_browser.edn")
|
|
(layer-if :focus-pool-rename "./keys_rename.edn")
|
|
(layer-if :focus-pool-length "./keys_length.edn")
|
|
(layer "./keys_clock.edn")
|
|
(layer "./keys_editor.edn")
|
|
(layer "./keys_sampler.edn")
|
|
(layer "./keys_global.edn"))
|
|
|
|
(view (bsp/a :view-dialog (bsp/w :view-meters-output (bsp/e :view-meters-input
|
|
(bsp/n (fixed/y 6 (bsp/e :view-sample-status :view-sample-viewer))
|
|
(bsp/e
|
|
(fill/y (align/n (bsp/s :view-status-v (bsp/s :view-ports-status (bsp/s :view-editor-status :view-pool)))))
|
|
(bsp/e :view-samples-keys :view-editor)))))))
|