yogsototh/freactive
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of github.com:aaronc/freactive

Browse source 
Conflicts:
	src/clojure/freactive/dom.cljs
This commit is contained in:
Aaron Craelius 2014-11-18 17:17:17 -05:00
commit 67bd19267c
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/clojure/freactive/dom.cljs
View file

@ -306,7 +306,19 @@
attr-value node-state) attr-value node-state)
(set-fn element attr-name attr-value))) (set-fn element attr-name attr-value)))
(defn- bind-attr! [element attr-name attr-value node-state] (defn get-attr-setter [element attr-name]
(cond
(identical? "data-state" attr-name)
set-data-state!
(and (identical? (. element -type) "checkbox") (identical? attr-name "checked"))
(fn [node attr-name attr-value]
(set! (. node -checked) (true? attr-value)))
:default
set-attr!))
(defn bind-attr! [element attr-name attr-value node-state]
(let [attr-name (name attr-name)] (let [attr-name (name attr-name)]
(cond (cond
(identical? "style" attr-name) (identical? "style" attr-name)
@ -315,14 +327,12 @@
(doseq [[p v] attr-value] (doseq [[p v] attr-value]
(bind-style-prop! element p v node-state))) (bind-style-prop! element p v node-state)))
(identical? "data-state" attr-name)
(bind-prop-attr! set-data-state! element attr-name attr-value node-state)
(identical? 0 (.indexOf attr-name "on-")) (identical? 0 (.indexOf attr-name "on-"))
(listen! element (.substring attr-name 3) attr-value) (listen! element (.substring attr-name 3) attr-value)
:default :default
(bind-prop-attr! set-attr! element attr-name attr-value node-state)))) (bind-prop-attr! (get-attr-setter element attr-name)
element attr-name attr-value node-state))))
(defn- unbind-attr!* [node-state prefix attr-name] (defn- unbind-attr!* [node-state prefix attr-name]
(let [attr-key (str "-" prefix "." attr-name)] (let [attr-key (str "-" prefix "." attr-name)]