Plan snapshots on log

wilkerlucio · Mar 9, 2021 · e288678 · e288678
1 parent a378c05
commit e288678
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 19 deletions.
diff --git a/deps.edn b/deps.edn
@@ -6,7 +6,7 @@
   com.cognitect/transit-cljs                        {:mvn/version "0.8.264"}
   com.fulcrologic/fulcro                            {:mvn/version "3.4.16"}
   com.fulcrologic/fulcro-garden-css                 {:mvn/version "3.0.7"}
-  com.fulcrologic/guardrails                        {:mvn/version "1.1.3"}
+  com.fulcrologic/guardrails                        {:mvn/version "1.1.4"}
   com.wsscode/tailwind-garden                       {:git/url "https://github.com/wilkerlucio/tailwind-garden" :sha "4f8af13165dd997de15b20ac5e7dd06351821acd"}
   com.taoensso/sente                                {:mvn/version "1.16.0"}
   com.wsscode/async                                 {:mvn/version "1.0.13"}

diff --git a/shadow-cljs.edn b/shadow-cljs.edn
@@ -20,7 +20,7 @@
 
           :electron-background {:target           :node-script
                                 :main             com.wsscode.pathom.viz.electron.background.main/init
-                                :dev              {:compiler-options {:external-config {:guardrails {:throw? false}}}
+                                :dev              { ;:compiler-options {:external-config {:guardrails {:throw? false}}}
                                                    :closure-defines  {com.wsscode.pathom.viz.electron.background.main/DEV true}}
                                 :compiler-options {:optimizations :simple}
                                 :output-to        "shells/electron/js/background/main.js"}

diff --git a/src/core/com/wsscode/pathom3/viz/plan.cljs b/src/core/com/wsscode/pathom3/viz/plan.cljs
@@ -81,23 +81,9 @@
       (psm/sm-update-env pci/register node-extensions-registry)))
 
 (defn ^:export compute-frames
-  [{::pci/keys [index-oir]
-    ::pcp/keys [available-data]
-    ::eql/keys [query]}]
-  (let [snapshots* (atom [])
-        graph      (try
-                     (pcp/compute-run-graph
-                       (cond-> {::pci/index-oir              index-oir
-                                ::pcp/snapshots*             snapshots*
-                                :edn-query-language.ast/node (eql/query->ast query)}
-                         available-data
-                         (assoc ::pcp/available-data available-data)))
-                     (catch :default e
-                       (js/console.error "Error computing plan" e)))
-        frames     (cond-> (mapv smart-plan @snapshots*)
-                     graph
-                     (conj (smart-plan (assoc graph ::pcp/snapshot-message "Completed graph."))))]
-    frames))
+  [env]
+  (->> (pcp/compute-plan-snapshots env)
+       (mapv smart-plan)))
 
 (defn ^:export compute-plan-elements [{::pcp/keys [nodes root highlight-nodes highlight-styles]
                                        ::keys     [node-in-focus]}]
@@ -146,6 +132,14 @@
                       nodes')]
     all))
 
+(defn prepare-frames [snapshots]
+  (into []
+        (map
+          (fn [snap]
+            (let [smart-snap (smart-plan snap)]
+              [smart-snap (compute-plan-elements smart-snap)])))
+        snapshots))
+
 (defn create-coll [^js cy elements]
   (.add (.collection cy) (into-array elements)))
 

diff --git a/src/electron/com/wsscode/pathom/viz/electron/renderer/main.cljs b/src/electron/com/wsscode/pathom/viz/electron/renderer/main.cljs
@@ -184,6 +184,15 @@
       (ui/column {:style {:flex "1" :overflow "hidden"}}
         (if log-val
           (case (:pathom.viz.log/type log-val)
+            :pathom.viz.log.type/plan-snapshots
+            (fc/fragment
+              (ui/section-header {}
+                (ui/row {:classes [:.center]}
+                  (dom/div (ui/gc :.flex) "Graph Viz Snapshots")))
+              (ui/column {:classes [:.flex-1]}
+                (h/$ viz-plan/PlanSnapshots
+                  {:frames (viz-plan/prepare-frames (:pathom.viz.log/data log-val))})))
+
             :pathom.viz.log.type/plan-and-stats
             (fc/fragment
               (ui/section-header {}