        (reduce (fn [acc [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
-             })
+(def config {:initial-hierarchy-depth-budget false})
 
 (declare jsonml->hiccup)
 

            [day8.re-frame.trace.localstorage :as localstorage]
            [day8.re-frame.trace.components :as components]))


(defn string->css [css-string]
  "This function converts jsonml css-strings to valid css maps for hiccup.

            (and @expanded?
              (or (string? data)
                  (number? data)))  [:div {:style {:margin "10px 0"}} data]
            @expanded?              (jsonml->hiccup (cljs-devtools/header-api-call data config)))]])))

(defn render-state  [data]
  (let [subtree-input  (r/atom "")
