Rename label to app-db

This commit is contained in:
Daniel Compton 2017-10-27 16:03:58 +13:00
parent 4fd95bd576
commit 4935d3f50f
1 changed files with 14 additions and 2 deletions

View File

@ -16,6 +16,18 @@
(reduce (fn [acc [property value]] (reduce (fn [acc [property value]]
(assoc acc (keyword property) value)) {}))) (assoc acc (keyword property) value)) {})))
(def config {:well-known-types #{"cljs.core/Keyword"}
:render-bools false
:render-strings false
:render-numbers false
:render-keywords false
:render-symbols false
:render-instances false
:render-types false
:render-functions false
})
(declare jsonml->hiccup) (declare jsonml->hiccup)
(defn data-structure [jsonml] (defn data-structure [jsonml]
@ -74,7 +86,7 @@
(and @expanded? (and @expanded?
(or (string? data) (or (string? data)
(number? data))) [:div {:style {:margin "10px 0"}} data] (number? data))) [:div {:style {:margin "10px 0"}} data]
@expanded? (jsonml->hiccup (cljs-devtools/header-api-call data)))]]))) @expanded? (jsonml->hiccup (cljs-devtools/header-api-call data config :extra)))]])))
(defn render-state [data] (defn render-state [data]
(let [subtree-input (r/atom "") (let [subtree-input (r/atom "")
@ -113,4 +125,4 @@
[:span.subtree-button-string [:span.subtree-button-string
(str path)]]]]]) (str path)]]]]])
@subtree-paths))] @subtree-paths))]
[subtree @data [:span.label "app-state"]]]]))) [subtree @data [:span.label "app-db"]]]])))