mirror of
https://codeberg.org/unspeaker/tek.git
synced 2026-10-08 18:56:42 +02:00
87 lines
5.3 KiB
Clojure
87 lines
5.3 KiB
Clojure
(mode Menu (name Main Menu) (info Welcome to Tek!) (keys Y Confirm)
|
|
(view (bar/s 2 Transport (bar/n 2 StatusBar (align/c (bar/s 2 (align/x (bg (g 12) Logo)) Menu))))))
|
|
(mode Transport (name Transport) (info JACK transport controller.)
|
|
(keys Clock Global)
|
|
(view Transport))
|
|
(mode Arranger (name Arranger) (info Launch grid.)
|
|
(keys Global Clock Tracks Scenes Clip Launch Color History)
|
|
(view (bar/n 2 StatusBar (bar/s 8 (bar/e 16 (align/nw Transport)
|
|
(bar/w 20 (bar/s 2 (bar/w 4 TracksOutputsAdd TracksOutputsCount)
|
|
(bar/s 2 (bar/w 4 TracksDevicesAdd TracksDevicesCount)
|
|
(bar/s 2 (bar/w 4 TracksNamesAdd TracksNamesCount)
|
|
(bar/w 4 TracksInputsAdd TracksInputsCount))))
|
|
(align/x (bar/s 2 TracksOutputsCells
|
|
(bar/s 2 TracksDevicesCells
|
|
(bar/s 2 TracksNamesCells TracksInputsCells))))))
|
|
(bar/w 20 (text) (bar/e 16 ScenesNames ScenesClips))))))
|
|
(mode Sequencer (info MIDI sequencer.)
|
|
(keys Global Clock I IFine Y Page EditorView EditorAdd EditorDel)
|
|
(view (bsp/s (exact/h 1 Transport) (bsp/n (exact/h 1 StatusBar) (fill/xy (bsp/a (fill/xy (align/e Pool)) Editor))))))
|
|
(mode Sampler (info Sample player.)
|
|
(keys SamplerDirs SamplerRec SamplerPlay)
|
|
(view (bsp/s (exact/h 1 Transport) (bsp/n (exact/h 1 StatusBar) (fill/xy SampleGrid)))))
|
|
(mode Groovebox (info Sequencer with sampler.)
|
|
(keys Global Clock Sampler I IFine Y Page EditorView EditorAdd EditorDel)
|
|
(view (bsp/w MetersOut (bsp/e MetersIn (bsp/w GrooveMeta GrooveEditor)))))
|
|
|
|
(view Logo (text tek! 0.4.0 ))
|
|
(view Browse (bsp/s (pad/xy 3 1 BrowseTitle) (fg (g 96) browser)))
|
|
(view PortsOut (bsp/s (align/w (text L-AUDIO-OUT)) (bsp/e (text MIDI-OUT) (align/e (text AUDIO-OUT-R)))))
|
|
(view PortsIn (bsp/s (align/w (text L-AUDIO-IN)) (bsp/e (text MIDI-IN) (align/e (text AUDIO-IN-R)))))
|
|
(view GrooveMeta (fill/y (align/n (stack/s Pool MidiInsStatus MidiOutsStatus AudioInsStatus AudioOutsStatus))))
|
|
(view GrooveEditor (bsp/n GrooveSample GrooveSequence))
|
|
(view GrooveSample (exact/h SampleHeight (bsp/e (fill/y (exact/w 20 (align/nw SampleStatus))) SampleViewer)))
|
|
(view GrooveSequence (bsp/e (fill/y (align/n (bsp/s Status/v EditorStatus))) (bsp/e SamplesKeys Editor)))
|
|
(view StatusBar (bar/e 40 (bg (g 10) (full/x (pad/x 1 (bar/s 1 (text Selected) Selected))))
|
|
(bg (g 20) (full/x (pad/x 1 (bar/s 1 (text Mode) ModeList))))))
|
|
(view Transport (bg (g 0) (pad/x 1 (bar/e 4 PlayPause (bar/e 16 Bpm (bar/e 16 Beat Time))))))
|
|
|
|
(keys Global (@f1 (dialog Help))
|
|
(@f2 (project new))
|
|
(@f3 (dialog History))
|
|
(@f6 (dialog :save))
|
|
(@f8 (dialog :options))
|
|
(@f9 (dialog :load))
|
|
(@f10 (dialog :quit)))
|
|
|
|
(keys Back (@escape cancel))
|
|
(keys Confirm (@enter confirm))
|
|
(keys Page (@pgup page/up) (@pgdn page/down))
|
|
(keys Delete (@delete delete) (@backspace delete/back))
|
|
(keys History (@u (undo 1)) (@r (redo 1)))
|
|
(keys X (@left (axis (dec X))) (@right (axis (inc X))))
|
|
(keys Y (@up (axis (dec Y))) (@down (axis (inc Y))))
|
|
(keys Z (@minus (axis (dec Z))) (@equal (axis (inc Z))))
|
|
(keys I (@comma (axis (dec I))) (@period (axis (inc Z))))
|
|
(keys W (@openbracket (axis (dec W))) (@closebracket (axis (inc W))))
|
|
(keys XFine (@shift/left (axis (dec XFine))) (@shift/right (axis (inc XFine))))
|
|
(keys YFine (@shift/up (axis (dec YFine))) (@shift/down (axis (inc YFine))))
|
|
(keys ZFine (@underscore (axis (dec ZFine))) (@plus (axis (inc ZFine))))
|
|
(keys IFine (@lt (axis (dec IFine))) (@gt (axis (inc ZFine))))
|
|
(keys WFine (@openbrace (axis (dec WFine))) (@closebrace (axis (inc WFine))))
|
|
|
|
(keys Clock (@space (clock/toggle 0)) (@shift/space (clock/toggle 0)))
|
|
(keys Scenes (@shift/S (scenes add)) (@s (scenes select)) (@up (scenes prev)) (@down (scenes next)))
|
|
(keys Tracks (@shift/T (tracks add)) (@t (tracks select)) (@left (tracks prev)) (@right (tracks next)))
|
|
(keys Clip (@l (toggle :loop)) (@tab (clip upsert) (edit toggle)))
|
|
(keys Color (@c (color)))
|
|
(keys Launch (@q (launch)))
|
|
|
|
(keys EditorView (see X XFine Z ZFine) (@z toggle :lock))
|
|
(keys EditorAdd (@a editor/append :true) (@enter editor/append :false))
|
|
(keys EditorDel (@del editor/delete/note) (@shift/del editor/delete/note))
|
|
|
|
(keys Sequencer (see Color Launch) (@shift/I input/add) (@shift/O output/add))
|
|
|
|
(keys SamplerRec (@r sampler/record/toggle SelectedSample) (@shift/R sampler/record/back))
|
|
(keys SamplerPlay (@p sampler/play/sample SelectedSample) (@P sampler/stop/sample SelectedSample))
|
|
(keys SamplerImpEx (@shift/f6 dialog :export/sample) (@shift/f9 dialog Import/sample))
|
|
(keys SamplerDirs (@up sampler/select :sample/above) (@down sampler/select :sample/below) (@left sampler/select :sample/to/left) (@right sampler/select :sample/to/right))
|
|
|
|
(keys Track (see Color Launch Z ZFine Delete) (@r toggle :rec) (@m toggle :mon) (@p toggle :play) (@P toggle :solo))
|
|
(keys Scene (see Color Launch Z ZFine Delete))
|
|
(keys Input (see X Delete) (:char input))
|
|
(keys List (see Y Confirm))
|
|
(keys Length (see X Y Confirm))
|
|
(keys Browse (see List Input))
|
|
(keys Pool (see Y W ZFine Color Delete) (@n rename/begin) (@t length/begin) (@m import/begin) (@x export/begin) (@shift/A clip/add :after :newClip) (@shift/D clip/add :after :clonedClip))
|