mirror of
https://codeberg.org/unspeaker/tek.git
synced 2025-12-06 03:36:41 +01:00
unspeaker
2e5462c4e7
Some checks are pending
/ build (push) Waiting to run
the definitions are unified alright. it's just not supported yet :D the idea being that tek offers to write out the default configs to ~/.config/tek-v0 where the user can customize them.
167 lines
6 KiB
Clojure
167 lines
6 KiB
Clojure
(module "global.edn"
|
|
(@u history/undo 1)
|
|
(@r history/redo 1)
|
|
(@esc dialog/hide)
|
|
(@f1 dialog/show :dialog-help)
|
|
(@f6 dialog/show :dialog-save)
|
|
(@f8 dialog/show :dialog-options)
|
|
(@f9 dialog/show :dialog-load)
|
|
(@f10 dialog/show :dialog-quit))
|
|
|
|
(module "clock.edn"
|
|
(@space clock/toggle 0)
|
|
(@shift-space clock/toggle 0))
|
|
|
|
(module "arranger.edn"
|
|
(@c color)
|
|
(@q launch)
|
|
(@tab project/edit)
|
|
(@enter project/edit)
|
|
(@escape project/home)
|
|
(@shift-I project/input-add)
|
|
(@shift-O project/output-add)
|
|
(@shift-S project/scene-add)
|
|
(@shift-T project/track-add)
|
|
(@shift-D dialog/show :dialog-device)
|
|
(@up select :select-scene-prev)
|
|
(@down select :select-scene-next)
|
|
(@left select :select-track-prev)
|
|
(@right select :select-track-next)
|
|
(@t select :select-track)
|
|
(@s select :select-scene))
|
|
|
|
(module "track.edn"
|
|
(@delete track/delete :track)
|
|
(@q track/launch :track)
|
|
(@c track/color :track)
|
|
(@comma track/prev)
|
|
(@period track/next)
|
|
(@lt track/swap-prev)
|
|
(@gt track/swap-next)
|
|
(@r track/rec)
|
|
(@m track/mon)
|
|
(@p track/play)
|
|
(@P track/solo))
|
|
|
|
(module "scene.edn"
|
|
(@delete scene/delete :scene)
|
|
(@q scene/launch :scene)
|
|
(@c scene/color :scene)
|
|
(@comma scene/prev)
|
|
(@period scene/next)
|
|
(@lt scene/swap-prev)
|
|
(@gt scene/swap-next))
|
|
|
|
(module "clip.edn"
|
|
(@g clip/get)
|
|
(@p clip/put)
|
|
(@delete clip/del)
|
|
(@comma clip/prev)
|
|
(@period clip/next)
|
|
(@lt clip/swap-prev)
|
|
(@gt clip/swap-next)
|
|
(@l clip/loop-toggle))
|
|
|
|
(module "browser.edn"
|
|
(@escape browser/cancel)
|
|
(@return browser/confirm)
|
|
(@up browser/cursor/set :browser-cursor-prev)
|
|
(@down browser/cursor/set :browser-cursor-next)
|
|
(@right browser/address/set :browser-address-selected)
|
|
(@left browser/address/set :browser-address-parent)
|
|
(:char browser/filter/append :char)
|
|
(@backspace browser/filter/delete :last))
|
|
|
|
(module "device_add.edn"
|
|
(@up dialog :dialog-device-prev)
|
|
(@down dialog :dialog-device-next))
|
|
|
|
(module "editor.edn"
|
|
(@left editor/time/set :time-pos-prev)
|
|
(@shift-left editor/time/set :time-pos-prev-fine)
|
|
(@right editor/time/set :time-pos-next)
|
|
(@shift-right editor/time/set :time-pos-next-fine)
|
|
(@equal editor/zoom/set :time-zoom-prev)
|
|
(@minus editor/zoom/set :time-zoom-next)
|
|
(@plus editor/zoom/set :time-zoom-next-fine)
|
|
(@underscore editor/zoom/set :time-zoom-prev-fine)
|
|
(@z editor/lock/set)
|
|
(@comma editor/length/set :note-len-prev)
|
|
(@period editor/length/set :note-len-next)
|
|
(@lt editor/length/set :note-len-prev)
|
|
(@gt editor/length/set :note-len-next)
|
|
(@up editor/pitch/set :note-pos-next)
|
|
(@down editor/pitch/set :note-pos-prev)
|
|
(@pgup editor/pitch/set :note-pos-next-octave)
|
|
(@pgdn editor/pitch/set :note-pos-prev-octave)
|
|
(@a editor/append :true)
|
|
(@enter editor/append :false)
|
|
(@del editor/delete-note)
|
|
(@shift-del editor/delete-note))
|
|
|
|
(module "groovebox.edn"
|
|
(@r sampler/record/toggle :sample)
|
|
(@tab focus/next)
|
|
(@shift-tab focus/prev))
|
|
|
|
(module "length.edn"
|
|
(@up inc)
|
|
(@down dec)
|
|
(@right next)
|
|
(@left prev)
|
|
(@return set :length)
|
|
(@escape cancel))
|
|
|
|
(module "message.edn"
|
|
(@esc message/dismiss)
|
|
(@enter message/dismiss))
|
|
|
|
(module "pool.edn"
|
|
(@n rename/begin)
|
|
(@t length/begin)
|
|
(@m import/begin)
|
|
(@x export/begin)
|
|
(@c clip/color :clip :random-color)
|
|
(@openbracket select :clip-prev)
|
|
(@closebracket select :clip-next)
|
|
(@lt swap :clip :clip-prev)
|
|
(@gt swap :clip :clip-next)
|
|
(@delete clip/delete :clip)
|
|
(@shift-A clip/add :after :new-clip)
|
|
(@shift-D clip/add :after :cloned-clip))
|
|
|
|
(module "pool_file.edn"
|
|
(@up select :prev)
|
|
(@down select :next)
|
|
(@right chdir :selected)
|
|
(@left chdir :parent)
|
|
(@return confirm)
|
|
(@escape cancel)
|
|
(:char append :char)
|
|
(@backspace delete :last))
|
|
|
|
(module "rename.edn"
|
|
(:char append :char)
|
|
(@backspace delete :last)
|
|
(@return confirm)
|
|
(@escape cancel))
|
|
|
|
(module "sampler.edn"
|
|
(@up sampler/select :sample-above)
|
|
(@down sampler/select :sample-below)
|
|
(@left sampler/select :sample-to-left)
|
|
(@right sampler/select :sample-to-right)
|
|
|
|
(@r sampler/record-toggle :sample-selected)
|
|
(@shift-R sampler/record-cancel)
|
|
(@p sampler/play-sample :sample-selected)
|
|
(@P sampler/stop-sample :sample-selected)
|
|
|
|
(@shift-f6 dialog :dialog-export-sample)
|
|
(@shift-f9 dialog :dialog-import-sample))
|
|
|
|
(module "sequencer.edn"
|
|
(@c color)
|
|
(@q launch)
|
|
(@shift-I input/add)
|
|
(@shift-O output/add))
|