stripped out statechart devtool stuff. Moved to statecharts lib

fulcrologic · Dec 26, 2024 · 9ba994f · 9ba994f
1 parent 3218bde
commit 9ba994f
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 55 deletions.
diff --git a/src/main/com/fulcrologic/fulcro/inspect/inspect_client.cljc b/src/main/com/fulcrologic/fulcro/inspect/inspect_client.cljc
@@ -122,16 +122,6 @@
                                              :fulcro.inspect.ui.network/request-finished-at finished
                                              :fulcro.inspect.ui.network/error               error}))))
 
-;; TASK: Move to statecharts library, since it can go there now!
-(defn statechart-event! [app session-id event data new-config]
-  #?(:cljs
-     (let [app-uuid (app-uuid app)]
-       (fit/notify! app `devtool/statechart-event {app-uuid-key                               app-uuid
-                                                   :com.fulcrologic.statecharts/session-id    session-id
-                                                   :event                                     event
-                                                   :data                                      data
-                                                   :com.fulcrologic.statecharts/configuration new-config}))))
-
 (defn optimistic-action-finished!
   "Notify inspect that a transaction finished.
 

diff --git a/src/main/com/fulcrologic/fulcro/inspect/target_impl.cljc b/src/main/com/fulcrologic/fulcro/inspect/target_impl.cljc
@@ -140,51 +140,6 @@
   {::pc/sym `target/run-network-request}
   (run-network-request* params))
 
-(defresolver statechart-definition-resolver [env input]
-  {::pc/output [{:statechart/definitions [:statechart/registry-key
-                                          :statechart/chart]}]}
-  (let [params   (:query-params env)
-        app-uuid (app-uuid params)
-        app      (get @apps* app-uuid)]
-    (when app
-      (let [runtime-env          (some-> (runtime-atom app) deref :com.fulcrologic.statecharts/env)
-            chart-id->definition (some-> runtime-env :com.fulcrologic.statecharts/statechart-registry :charts deref
-                                   strip-lambdas)
-            definitions          (mapv (fn [[k v]]
-                                         {:statechart/registry-key k
-                                          :statechart/chart        v})
-                                   chart-id->definition)]
-        {:statechart/definitions definitions}))))
-
-(defresolver statechart-session-resolver [env input]
-  {::pc/output [{:statechart/available-sessions [:com.fulcrologic.statecharts/session-id
-                                                 :com.fulcrologic.statecharts/history-value
-                                                 :com.fulcrologic.statecharts/parent-session-id
-                                                 :com.fulcrologic.statecharts/statechart-src
-                                                 :com.fulcrologic.statecharts/configuration
-                                                 :com.fulcrologic.statecharts/statechart]}]}
-  (let [params   (:query-params env)
-        app-uuid (app-uuid params)
-        app      (get @apps* app-uuid)]
-    (when app
-      (let [{session-id->session :com.fulcrologic.statecharts/session-id :as state-map} (app-state app)
-            runtime-env          (some-> (runtime-atom app) deref :com.fulcrologic.statecharts/env)
-            chart-id->definition (some-> runtime-env :com.fulcrologic.statecharts/statechart-registry :charts deref
-                                   strip-lambdas)
-            available-sessions   (mapv
-                                   (fn [session]
-                                     (let [src-id (:com.fulcrologic.statecharts/statechart-src session)]
-                                       (-> session
-                                         (select-keys [:com.fulcrologic.statecharts/session-id
-                                                       :com.fulcrologic.statecharts/history-value
-                                                       :com.fulcrologic.statecharts/parent-session-id
-                                                       :com.fulcrologic.statecharts/statechart-src
-                                                       :com.fulcrologic.statecharts/configuration])
-                                         (assoc :com.fulcrologic.statecharts/statechart {:statechart/registry-key src-id
-                                                                                         :statechart/chart        (chart-id->definition src-id)}))))
-                                   (vals session-id->session))]
-        {:statechart/available-sessions available-sessions}))))
-
 (defresolver pathom-connect-index-resolver [env input]
   {::pc/output [{:pathom/indexes [::pc/idents ::pc/index-io ::pc/autocomplete-ignore]}]}
   (async/go