(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))