This commit is contained in:
Gered 2016-05-08 19:00:45 -04:00
parent da2b5d94b2
commit 0fb68755fe

View file

@ -14,7 +14,7 @@
(defn toggle-element [elem] (defn toggle-element [elem]
(dom/toggle-attr! elem :disabled (not (dom/attr elem :disabled)))) (dom/toggle-attr! elem :disabled (not (dom/attr elem :disabled))))
(def handler (def event-handlers
{:on-open {:on-open
(fn [] (fn []
(let [msg-input (by-id "msg-input") (let [msg-input (by-id "msg-input")
@ -43,4 +43,4 @@
(dom/set-text! (str "MSG::" msg))))))}) (dom/set-text! (str "MSG::" msg))))))})
(defn ^:export run [] (defn ^:export run []
(browserchannel/init! handler)) (browserchannel/init! event-handlers))