Skip to content

Instantly share code, notes, and snippets.

@ihodes

ihodes/gist:1448540

Created December 8, 2011 20:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ihodes/1448540 to your computer and use it in GitHub Desktop.
Save ihodes/1448540 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(doto frame
(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
(.setFocusable true)
(init-jframe-key-bindings!
{"RIGHT" [:next-view to-next-view]
"LEFT" [:prev-view to-previous-view]
"UP" [:inc-thresh #(swap-thresh! (partial + 10))]
"DOWN" [:dec-thresh #(swap-thresh! (partial (flip -) 10))]
"ctrl D" [:del-markers delete-markers!]
"T" [:thresh-test conduct-thresh-test]
"Y" [:suggest-threst suggest-thresh!]
"A" [:add-marks #(dosync (ref-set ref-mark-mode :a))]
"D" [:del-marks #(dosync (ref-set ref-mark-mode :d))]}))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment