status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix hiccup structure

This commit is contained in:
Saskia Lindner 2017-09-21 15:17:04 +02:00 committed by Daniel Compton
parent 019ebc7748
commit a9306075b3
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/day8/re_frame/trace/app_state.cljs
View File

@ -36,14 +36,15 @@
(if (number? jsonml) (if (number? jsonml)
jsonml jsonml
(let [[head & args] jsonml (let [[head & args] jsonml
tagnames #{"span" "ol" "li" "div"}] tagnames #{"div" "span" "ol" "li" "table" "tr" "td"}]
(cond (cond
(contains? tagnames head) (let [[style & children] args] (contains? tagnames head) (let [[style & children] args]
(into
[(keyword head) {:style (-> (js->clj style) [(keyword head) {:style (-> (js->clj style)
(get "style") (get "style")
(string->css))} (string->css))}]
(into [:div {:style {:display "inline-block"}}] (map jsonml->hiccup children)))
(mapv jsonml->hiccup children))])
(= head "object") [data-structure jsonml] (= head "object") [data-structure jsonml]
(= jsonml ", ") " " (= jsonml ", ") " "
:else jsonml)))) :else jsonml))))