add goog.events as plugin
This commit is contained in:
parent
674fac7d0e
commit
56b07aded0
2 changed files with 12 additions and 2 deletions
|
@ -5,6 +5,9 @@
|
|||
|
||||
;; ## Core Defintions
|
||||
|
||||
(def ^:dynamic *listen!* #(.addEventListener %1 %2 %3))
|
||||
(def ^:dynamic *unlisten!* #(.removeEventListener %1 %2 %3))
|
||||
|
||||
(defonce ^:private auto-node-id 0)
|
||||
|
||||
(defonce ^:private element-state-lookup #js {})
|
||||
|
@ -276,10 +279,10 @@
|
|||
(setter attr-value))))
|
||||
|
||||
(defn listen! [element evt-name handler]
|
||||
(.addEventListener element evt-name handler))
|
||||
(*listen!* element evt-name handler))
|
||||
|
||||
(defn remove-event-listener! [element evt-name handler]
|
||||
(.removeEventListener element evt-name handler))
|
||||
(*unlisten!* element evt-name handler))
|
||||
|
||||
(defn- do-set-data-state! [element state]
|
||||
(set-attr! element "data-state" state))
|
||||
|
|
7
src/clojure/freactive/plugins/goog_events.cljs
Normal file
7
src/clojure/freactive/plugins/goog_events.cljs
Normal file
|
@ -0,0 +1,7 @@
|
|||
(ns freactive.plugins.goog-events
|
||||
(:require [goog.events :as events]
|
||||
[freactive.dom :as dom]))
|
||||
|
||||
(defn plug-in! []
|
||||
(set! dom/*listen!* events/listen)
|
||||
(set! dom/*unlisten!* events/unlisten))
|
Loading…
Reference in a new issue