mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 19:56:42 +01:00
28 lines
1,021 B
Clojure
28 lines
1,021 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/w
|
|
(fill/y (align/n
|
|
(bsp/s :view-midi-ins-status
|
|
(bsp/s :view-midi-outs-status
|
|
(bsp/s :view-audio-ins-status
|
|
(bsp/s :view-audio-outs-status
|
|
:view-pool))))))
|
|
(bsp/n
|
|
(fixed/y :h-sample-detail
|
|
(bsp/e (fill/y (fixed/x 20 (align/nw :view-sample-status)))
|
|
:view-sample-viewer))
|
|
(bsp/e
|
|
(fill/y (align/n (bsp/s :view-status-v :view-editor-status)))
|
|
(bsp/e :view-samples-keys :view-editor))))))))
|