feat: add system/states-map utility function

kepler16 · Mar 20, 2023 · 5dca77a · 5dca77a · vercel · Mar 20, 2023
1 parent f87ba59
commit 5dca77a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/k16/gx/beta/system.cljc b/src/k16/gx/beta/system.cljc
@@ -38,6 +38,15 @@
    (when-let [gx-map (get @registry* system-name)]
      (filter-nodes (gx/states gx-map) selector))))
 
+(defn states-map
+  ([system-name]
+   (states-map system-name nil))
+  ([system-name selector]
+   (some->> (states system-name selector)
+            (reduce (fn [acc [k v]]
+                      (update acc v conj k))
+                    {}))))
+
 (defn values
   "Gets list of values of the graph as map.
    Optionally accepts selector as set of nodes from the graph.