status-im/re-frame-10x
2
0
Fork 0
mirror of https://github.com/status-im/re-frame-10x.git synced 2025-02-05 02:43:25 +00:00
Code Issues Projects Releases Wiki Activity

Hide index spans

Browse Source
This commit is contained in:
Daniel Compton 2017-10-30 14:10:00 +13:00
parent e6b7f76656
commit 74faed83e3
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/day8/re_frame/trace/app_db.cljs
View File

@ -5,6 +5,11 @@
[day8.re-frame.trace.localstorage :as localstorage] [day8.re-frame.trace.localstorage :as localstorage]
[day8.re-frame.trace.components :as components])) [day8.re-frame.trace.components :as components]))
(devtools.prefs/set-pref! :header-style "")
;; Hide the index spans on the left hand of collections. Shows how many elements in a collection.
(devtools.prefs/set-pref! :none-style "display: none")
(devtools.prefs/set-pref! :index-tag [:span :none-style])
(defn string->css [css-string] (defn string->css [css-string]
"This function converts jsonml css-strings to valid css maps for hiccup. "This function converts jsonml css-strings to valid css maps for hiccup.
@ -16,17 +21,7 @@
(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"} (def config {:initial-hierarchy-depth-budget false})
: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)
@ -86,7 +81,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 config :extra)))]]))) @expanded? (jsonml->hiccup (cljs-devtools/header-api-call data config)))]])))
(defn render-state [data] (defn render-state [data]
(let [subtree-input (r/atom "") (let [subtree-input (r/atom "")