summaryrefslogtreecommitdiff
path: root/clojure/wordmonger/listeners.clj
diff options
context:
space:
mode:
authorJason Katz-Brown <jason@airbnb.com>2013-08-25 02:17:13 -0700
committerJason Katz-Brown <jason@airbnb.com>2013-08-25 02:17:13 -0700
commit9306cb60c32082c5403931de0823a9fd5daa196c (patch)
treeca1b6eb695fdf3f0c2294e92416b272164bae642 /clojure/wordmonger/listeners.clj
parent8fb2c681cecc01b46b0f4ba02d5cc177c4747b1c (diff)
Initial git commit.
Diffstat (limited to 'clojure/wordmonger/listeners.clj')
-rw-r--r--clojure/wordmonger/listeners.clj41
1 files changed, 41 insertions, 0 deletions
diff --git a/clojure/wordmonger/listeners.clj b/clojure/wordmonger/listeners.clj
new file mode 100644
index 0000000..94716d6
--- /dev/null
+++ b/clojure/wordmonger/listeners.clj
@@ -0,0 +1,41 @@
+(defn handle-key [event]
+ (println event)
+ (let [mask (.stateMask event)
+ state-string (str (if (zero? (bit-and mask SWT/ALT))
+ "" "M-")
+ (if (zero? (bit-and mask SWT/CTRL))
+ "" "C-"))
+ shift-p (not (zero? (bit-and mask SWT/SHIFT)))
+ key (.keyCode event)]
+ (when (and (.isEmpty state-string)
+ (= @*focused-widget* *answer-text*))
+ (let [upcase-char (Character/toUpperCase (char key))
+ upcase-code (int upcase-char)]
+ (println "you typed" upcase-char "into *answer-text*")
+ (when (<= (int \A) upcase-code (int \Z))
+ (set! (.doit event) false)
+ (append-styled-text *answer-text* (str upcase-char)
+ {:fg (color "black")}))))
+ (unless (or (zero? key) (= key (int \backspace)))
+ (let [key-string (str state-string (char key))
+ key-fn (get *key-bindings* key-string)]
+ (println "key:" key-string)
+ (println "key-fn:" key-fn)
+ (when key-fn (key-fn))))))
+
+(defn handle-key-listener []
+ (proxy [Listener] []
+ (handleEvent [event] (handle-key event))))
+
+(defn verify-key-listener []
+ (proxy [VerifyKeyListener] []
+ (verifyKey [event] (handle-key event))))
+
+(defn handle-focus-gained [event]
+ (def *focused-widget* (ref (.widget event))))
+
+(defn focus-listener []
+ (proxy [FocusListener] []
+ (focusGained [event] (handle-focus-gained event))
+ (focusLost [event])))
+