     false
 
     ;; else prevent event propagation (cursor keys scroll body on mozilla)
-    (.preventDefault ev)))
+    (if (:prevent-defaults @key-config)
+      (.preventDefault ev)
+      false)
+    ))
 
 (defn handle-keyup-event
   "the basic event handler for key up events. Takes the keycode

;; true meaning pressed, and false or nil meaning raised
;;
(def key-state (atom {}))

(defn ascii
  "A clojurescript version of ascii value of. javascript doesn't have

  (swap! key-state (fn [old] (dissoc old (.-keyCode ev))))

  ;; stop event propagation on mozilla
  (if (:prevent-defaults @key-config)
      (.preventDefault ev)
      true))

(defn install-key-handler!
  "install the keyup and keydown event handlers"
