Remove debugging code

project.clj

@@ -9,7 +9,7 @@
                  [binaryage/devtools "0.9.4"]
                  [cljsjs/react-flip-move "2.9.17-0"]
                  [com.yahoo.platform.yui/yuicompressor "2.4.8" :exclusions [rhino/js]]
-                 [expound "0.4.0"]
+                 ;[expound "0.4.0"]
                  ]
   :plugins [[thomasa/mranderson "0.4.7"]
             [lein-less "RELEASE"]]

src/day8/re_frame/trace/events.cljs

@@ -377,7 +377,8 @@
   :app-db/create-path
   app-db-path-mw
   (fn [paths _]
-    (assoc paths (js/Date.now) {:diff? false :open? true :path nil :path-str "[]" :valid-path? true})))
+
+    (assoc paths (js/Date.now) {:diff? false :open? true :path nil :path-str "" :valid-path? true})))
 
 
 

src/day8/re_frame/trace/subs.cljs

@@ -3,8 +3,7 @@
             [day8.re-frame.trace.metamorphic :as metam]
             [day8.re-frame.trace.utils.utils :as utils]
             [clojure.string :as str]
-            [cljs.spec.alpha :as s]
-            [expound.alpha :as expound]))
+            [cljs.spec.alpha :as s]))
 
 (rf/reg-sub
   :settings/root
@@ -408,9 +407,6 @@
           :opt-un [:sub/value :sub/previous-value]))
 (s/def :subs/view-subs (s/coll-of :subs/view-panel-sub))
 
-
-
-
 (defn sub-type-value
   [sub-type]
   (case sub-type
@@ -478,13 +474,7 @@
                                                           (assoc sub :previous-value (:previous-value state))
                                                           sub)]
                                        sub)))
-                      (sort-by :order sub-sort-val))
-        ]
-    #_(utils/spy "subx" subx)
-
-    #_(when-not (s/valid? :subs/view-subs subx)
-      (js/console.error (expound/expound-str :subs/view-subs subx)))
-
+                       (sort-by :order sub-sort-val))]
     subx))
 
 (rf/reg-sub

src/day8/re_frame/trace/view/subs.cljs

@@ -289,7 +289,7 @@
                      :style {:margin "19px 0px"}]
                     ^{:key "inter-epoch-title"}
                     [:h2 {:class "bm-heading-text"
-                          :style {:margin "19px 0px"}} "Inter-epoch subscriptions"]
+                          :style {:margin "19px 0px"}} "Inter-Epoch Subscriptions"]
                     (for [p inter-epoch-subs]
                       ^{:key (:id p)}
                       [pod (merge p (get sub-expansions (:id p)))])))