(module :global
  (@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)
  (@u history/undo 1)
  (@r history/redo 1))

(module :clock
  (@space       clock/toggle 0)
  (@shift/space clock/toggle 0))

(module :arranger
  (@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
  (@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
  (@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
  (@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
  (@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
  (@up   dialog :dialog/device/prev)
  (@down dialog :dialog/device/next))

(module :editor
  (@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
  (@r         sampler/record/toggle :sample)
  (@tab       focus/next)
  (@shift/tab focus/prev))

(module :length
  (@up     inc)
  (@down   dec)
  (@right  next)
  (@left   prev)
  (@return set :length)
  (@escape cancel))

(module :message
  (@esc   message/dismiss)
  (@enter message/dismiss))

(module :pool
  (@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
  (@up        select :prev)
  (@down      select :next)
  (@right     chdir  :selected)
  (@left      chdir  :parent)
  (@return    confirm)
  (@escape    cancel)
  (:char      append :char)
  (@backspace delete :last))

(module :rename
  (:char      append :char)
  (@backspace delete :last)
  (@return    confirm)
  (@escape    cancel))

(module :sampler
  (@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
  (@c       color)
  (@q       launch)
  (@shift/I input/add)
  (@shift/O output/add))