simplify stuff a bit
This commit is contained in:
parent
a4b2e14897
commit
c18f295018
|
@ -12,9 +12,7 @@
|
||||||
(browserchannel/send-map {:msg text}))
|
(browserchannel/send-map {:msg text}))
|
||||||
|
|
||||||
(defn toggle-element [elem]
|
(defn toggle-element [elem]
|
||||||
(if (dom/attr elem :disabled)
|
(dom/toggle-attr! elem :disabled (not (dom/attr elem :disabled))))
|
||||||
(dom/remove-attr! elem :disabled)
|
|
||||||
(dom/set-attr! elem :disabled)))
|
|
||||||
|
|
||||||
(def handler
|
(def handler
|
||||||
{:on-open
|
{:on-open
|
||||||
|
@ -45,9 +43,4 @@
|
||||||
(dom/set-text! (str "MSG::" msg))))))})
|
(dom/set-text! (str "MSG::" msg))))))})
|
||||||
|
|
||||||
(defn ^:export run []
|
(defn ^:export run []
|
||||||
(events/listen
|
|
||||||
js/window "unload"
|
|
||||||
(fn []
|
|
||||||
(events/removeAll)))
|
|
||||||
|
|
||||||
(browserchannel/init! handler))
|
(browserchannel/init! handler))
|
Reference in a new issue