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

Make expansion of each data component independent

This commit is contained in:
Daniel Compton 2018-01-18 16:21:03 +13:00
parent eac8b85952
commit 0f8adeeab5
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/day8/re_frame/trace/view/app_db.cljs
View File

@ -223,6 +223,7 @@
:style {:margin (css-join pad-padding pad-padding "0px" pad-padding)} :style {:margin (css-join pad-padding pad-padding "0px" pad-padding)}
:children [[components/simple-render :children [[components/simple-render
(get-in @app-db-after path) (get-in @app-db-after path)
["app-db-path" path]
#_{:todos [1 2 3]} #_{:todos [1 2 3]}
#_(get-in @app-db path) #_(get-in @app-db path)
@ -256,7 +257,8 @@
[rc/v-box [rc/v-box
:class "data-viewer" :class "data-viewer"
:children [[components/simple-render :children [[components/simple-render
diff-before]]] diff-before
["app-db-diff" path]]]]
^{:key "only-after"} ^{:key "only-after"}
[rc/v-box [rc/v-box
@ -273,7 +275,8 @@
[rc/v-box [rc/v-box
:class "data-viewer" :class "data-viewer"
:children [[components/simple-render :children [[components/simple-render
diff-after]]])) diff-after
["app-db-diff" path]]]]))
(when open? (when open?
[rc/gap-f :size pad-padding])]])) [rc/gap-f :size pad-padding])]]))

2
src/day8/re_frame/trace/view/components.cljs
View File

@ -209,7 +209,7 @@
(nil? data))) [:div {:style {:margin "10px 0"}} (prn-str data)] (nil? data))) [:div {:style {:margin "10px 0"}} (prn-str data)]
@expanded? (jsonml->hiccup (cljs-devtools-header data) (conj path 0)))]]))) @expanded? (jsonml->hiccup (cljs-devtools-header data) (conj path 0)))]])))
(defn simple-render [data] (defn simple-render [data path]
(let [expanded? (r/atom true) #_(rf/subscribe [:app-db/node-expanded? path])] (let [expanded? (r/atom true) #_(rf/subscribe [:app-db/node-expanded? path])]
(fn [data] (fn [data]
[:div [:div

3
src/day8/re_frame/trace/view/subs.cljs
View File

@ -190,7 +190,8 @@
:padding common/gs-7s :padding common/gs-7s
:margin (css-join pad-padding pad-padding "0px" pad-padding)} :margin (css-join pad-padding pad-padding "0px" pad-padding)}
:children [[components/simple-render :children [[components/simple-render
(:value pod-info)]]]) (:value pod-info)
["sub-path" path]]]])
(when (and open? diff?) (when (and open? diff?)
[rc/v-box [rc/v-box
:height common/gs-19s :height common/gs-19s