From 4ea8041bbc8dd9b6c3dfa93d5456ce1335cb5b0d Mon Sep 17 00:00:00 2001
From: "chris (daiyi)" <daiyitastic@gmail.com>
Date: Fri, 1 Sep 2017 12:09:43 +0200
Subject: [PATCH] Render app-db state with symantic class names

---
 src/day8/re_frame/trace.cljs           |  5 ++--
 src/day8/re_frame/trace/app_state.cljs | 37 ++++++++++++++++++++------
 2 files changed, 31 insertions(+), 11 deletions(-)

diff --git a/src/day8/re_frame/trace.cljs b/src/day8/re_frame/trace.cljs
index 66a8a1c..8908883 100644
--- a/src/day8/re_frame/trace.cljs
+++ b/src/day8/re_frame/trace.cljs
@@ -5,6 +5,7 @@
             [day8.re-frame.trace.components :as components]
             [day8.re-frame.trace.localstorage :as localstorage]
             [re-frame.trace :as trace :include-macros true]
+            [re-frame.db :as db]
             [cljs.pprint :as pprint]
             [clojure.string :as str]
             [clojure.set :as set]
@@ -27,8 +28,6 @@
       n
       "")))
 
-
-
 (def static-fns
   {:render
    (fn render []
@@ -399,7 +398,7 @@
                                           :traces [render-trace-panel]
                                           :subvis [subvis/render-subvis traces
                                                     [:div.panel-content-scrollable]]
-                                          :app-state [app-state/tab @traces])]]]))})))
+                                          :app-state [app-state/tab @db/app-db])]]]))})))
 
 (defn panel-div []
   (let [id    "--re-frame-trace--"
diff --git a/src/day8/re_frame/trace/app_state.cljs b/src/day8/re_frame/trace/app_state.cljs
index 15f794b..b534711 100644
--- a/src/day8/re_frame/trace/app_state.cljs
+++ b/src/day8/re_frame/trace/app_state.cljs
@@ -1,16 +1,34 @@
 (ns day8.re-frame.trace.app-state
   (:require [reagent.core :as r]
-            [clojure.string :as str]))
+            [clojure.string :as str]
 
-(defn classname
+            [cljs.pprint :refer [pprint]]))
+
+
+(defn css-munge
+  [string]
+  (str/replace string #"\.|/" "-"))
+
+(defn namespace-css
+  [classname]
+  (str "re-frame-trace--" classname))
+
+(defn type-string
   [obj]
-  (str/replace (pr-str (type obj)) #"\.|/" "-"))
+  (cond
+    (number? obj)    "number"
+    (boolean? obj)   "boolean"
+    (string? obj)    "string"
+    (nil? obj)       "nil"
+    (keyword? obj)   "keyword"
+    (symbol? obj)    "symbol"
+    :else (pr-str (type obj))))
 
 (defn view
   [data]
-  (if (string? data)
-    [:span.data-string data]
-    [:div {:class (classname data)}]))
+  (if (coll? data)
+    [:div {:class (str (namespace-css "collection") " " (namespace-css (css-munge (type-string data))))}]
+    [:span {:class (namespace-css (css-munge (type-string data)))} (str data)]))
 
 (defn crawl
   [data]
@@ -19,5 +37,8 @@
     (view data)))
 
 (defn tab [data]
-  (println (crawl data))
-  (crawl data))
+  (pprint data)
+  (pprint (crawl data))
+  [:div {:style {:flex "1 0 auto" :width "100%" :height "100%" :display "flex" :flex-direction "column"}}
+    [:div.panel-content-scrollable
+     (crawl data)]])