diff --git a/frontend/src/app/util/dom.cljs b/frontend/src/app/util/dom.cljs index e22de0dbba..ffa2b8f361 100644 --- a/frontend/src/app/util/dom.cljs +++ b/frontend/src/app/util/dom.cljs @@ -106,17 +106,20 @@ (defn stop-propagation [^js event] - (when event + (when (and (some? event) + (fn? (.-stopPropagation event))) (.stopPropagation event))) (defn stop-immediate-propagation [^js event] - (when event + (when (and (some? event) + (fn? (.-stopImmediatePropagation event))) (.stopImmediatePropagation event))) (defn prevent-default [^js event] - (when event + (when (and (some? event) + (fn? (.-preventDefault event))) (.preventDefault event))) (defn get-target diff --git a/frontend/src/app/util/keyboard.cljs b/frontend/src/app/util/keyboard.cljs index 5ed595a97c..8c43ecdef0 100644 --- a/frontend/src/app/util/keyboard.cljs +++ b/frontend/src/app/util/keyboard.cljs @@ -7,15 +7,16 @@ (ns app.util.keyboard (:require [app.config :as cfg] + [app.util.dom :as dom] [cuerdas.core :as str])) (defrecord KeyboardEvent [type key shift ctrl alt meta mod editing native-event] Object (preventDefault [_] - (.preventDefault native-event)) + (dom/prevent-default native-event)) (stopPropagation [_] - (.stopPropagation native-event))) + (dom/stop-propagation native-event))) (defn keyboard-event? [o]