diff options
author | Jason Katz-Brown <jason@airbnb.com> | 2013-08-25 02:17:13 -0700 |
---|---|---|
committer | Jason Katz-Brown <jason@airbnb.com> | 2013-08-25 02:17:13 -0700 |
commit | 9306cb60c32082c5403931de0823a9fd5daa196c (patch) | |
tree | ca1b6eb695fdf3f0c2294e92416b272164bae642 /clojure/wordmonger/user-functions.clj | |
parent | 8fb2c681cecc01b46b0f4ba02d5cc177c4747b1c (diff) |
Initial git commit.
Diffstat (limited to 'clojure/wordmonger/user-functions.clj')
-rw-r--r-- | clojure/wordmonger/user-functions.clj | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/clojure/wordmonger/user-functions.clj b/clojure/wordmonger/user-functions.clj new file mode 100644 index 0000000..2627771 --- /dev/null +++ b/clojure/wordmonger/user-functions.clj @@ -0,0 +1,45 @@ +(defn menu-bar-mode [] + (println "menu-bar-mode")) + +(defn split-horizontally [] + (println "split-horizontally")) + +(defn split-vertically [] + (println "split-vertically")) + +(defn remove-split [] + (println "remove-split")) + +(defn keyboard-quit [] + (println "keyboard-quit")) + +(defn gridquiz [] + (println "gridquiz")) + +(defn letterbox [] + (println "letterbox")) + +(defn describe-key [] + (println "describe-key")) + +(defn help [] + (println "help")) + +(defn customize [] + (println "customize")) + +(defn move-beginning-of-line [] + ;(println "focus: " @*focused-widget*) + (.setCaretOffset @*focused-widget* 0)) + +(defn move-end-of-line [] + (.setCaretOffset @*focused-widget* (.getCharCount @*focused-widget*))) + +(def *key-bindings* + {;"M-x" #'mode-line-prompt + "C-xh" #'split-vertically + "C-xv" #'split-horizontally + "C-xr" #'remove-split + "C-a" #'move-beginning-of-line + "C-e" #'move-end-of-line}) + |