Now displays default text strings (plus some refactoring)

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

@@ -73,7 +73,7 @@
                            :on-click #(println "Clicked [end state]")]]]]])
 
 (defn path-header [p]
-  (let [search-string (rf/subscribe [:app-db/search-string])
+  (let [search-string (r/atom (when (some? p) (prn-str p))) ;;(rf/subscribe [:app-db/search-string])
         *pod-open     (r/atom true)]
     (fn [p]
       [rc/h-box
@@ -190,15 +190,9 @@
                :children  ["---after-diff---"]]
               [rc/gap-f :size "12px"]]])
 
-(defn paths []
-  (let [
-        pods [["x" "y"] [:abc 123] nil]
-        ;pods nil
-        ]
-    [rc/v-box
-     :gap      pod-gap
-     :children (if (empty? pods)
-                 [[rc/h-box
+(defn no-pods
+  []
+  [rc/h-box
    :margin "0px 0px 0px 19px"
    :gap common/gs-7s
    :align :start
@@ -207,8 +201,19 @@
               [rc/label
                :style {:width      "150px"
                        :margin-top "22px"}
-                                 :label "add inspectors to show what happened to app-db"]]]]
-                 (doall (for [p pods] [app-db-path p])))]))
+               :label "add inspectors to show what happened to app-db"]]])
+
+(defn paths []
+  (let [
+        pods [["x" "y"] [:abc 123] nil]
+        ;pods nil
+        ]
+    (fn []
+      [rc/v-box
+       :gap pod-gap
+       :children (if (empty? pods)
+                   [[no-pods]]
+                   (doall (for [p pods] [app-db-path p])))])))
 
 
 (defn render-state [data]