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

Use a RegExp directly as in clojure.string for replacing periods with spaces.

Browse source
This commit is contained in:
Aaron Craelius 2014-12-09 18:19:45 -05:00
parent 5c0d8e8e29
commit 1244351e82
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -509,6 +509,8 @@
(let [xmlns (get *xml-namespaces* kw-ns)] (let [xmlns (get *xml-namespaces* kw-ns)]
(assert xmlns (str "Don't know how to handle namespace " kw-ns)))) (assert xmlns (str "Don't know how to handle namespace " kw-ns))))
(def ^:private re-dot (js/RegExp. "\\." "g"))
(defn- create-dom-node [kw] (defn- create-dom-node [kw]
(let [tag-ns (namespace kw) (let [tag-ns (namespace kw)
[_ tag id class] (re-matches re-tag (name kw)) [_ tag id class] (re-matches re-tag (name kw))
@ -520,7 +522,7 @@
(.createElementNS js/document resolved-ns tag)) (.createElementNS js/document resolved-ns tag))
(.createElement js/document tag))] (.createElement js/document tag))]
(when id (set! (.-id node) id)) (when id (set! (.-id node) id))
(when class (set! (.-className node) (clojure.string/replace class "." " "))) (when class (set! (.-className node) (.replace class re-dot " ")))
node)) node))
;(defn- create-dom-node-simple [tag] ;(defn- create-dom-node-simple [tag]