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

Now displays default text strings (plus some refactoring)

This commit is contained in:
Gregg8 2018-01-10 16:10:52 +11:00
parent ad1cace88b
commit 841b206778
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,7 +73,7 @@
:on-click #(println "Clicked [end state]")]]]]]) :on-click #(println "Clicked [end state]")]]]]])
(defn path-header [p] (defn path-header [p]
(let [search-string (rf/subscribe [:app-db/search-string]) (let [search-string (r/atom (when (some? p) (prn-str p))) ;;(rf/subscribe [:app-db/search-string])
*pod-open (r/atom true)] *pod-open (r/atom true)]
(fn [p] (fn [p]
[rc/h-box [rc/h-box
@ -190,25 +190,30 @@
:children ["---after-diff---"]] :children ["---after-diff---"]]
[rc/gap-f :size "12px"]]]) [rc/gap-f :size "12px"]]])
(defn no-pods
[]
[rc/h-box
:margin "0px 0px 0px 19px"
:gap common/gs-7s
:align :start
:align-self :start
:children [[:img {:src (str "data:image/svg+xml;utf8," round-arrow)}]
[rc/label
:style {:width "150px"
:margin-top "22px"}
:label "add inspectors to show what happened to app-db"]]])
(defn paths [] (defn paths []
(let [ (let [
pods [["x" "y"] [:abc 123] nil] pods [["x" "y"] [:abc 123] nil]
;pods nil ;pods nil
] ]
[rc/v-box (fn []
:gap pod-gap [rc/v-box
:children (if (empty? pods) :gap pod-gap
[[rc/h-box :children (if (empty? pods)
:margin "0px 0px 0px 19px" [[no-pods]]
:gap common/gs-7s (doall (for [p pods] [app-db-path p])))])))
:align :start
:align-self :start
:children [[:img {:src (str "data:image/svg+xml;utf8," round-arrow)}]
[rc/label
:style {:width "150px"
:margin-top "22px"}
:label "add inspectors to show what happened to app-db"]]]]
(doall (for [p pods] [app-db-path p])))]))
(defn render-state [data] (defn render-state [data]