@lovelace_lol/polymer 0.0.4 → 0.0.6

package/src/polymer/society.cljs

@@ -204,26 +204,40 @@
 (defn match-event? [match event]
   (every? (fn [[key expected]] (= expected (get event key))) match))
 
+(defn accepted-edge-context
+  [edge]
+  {:edgeId (:id edge)
+   :from (:from edge)
+   :to (:to edge)
+   :credit (:credit edge)})
+
+(defn route-contexts
+  "Return all accepted edge metadata for one outgoing domain event.
+
+  An empty result means the topology, agency enablement, match predicate, or edge
+  credit rejected all candidate routes before they reached receiving agencies."
+  [society from event]
+  (if-not (agency-enabled? society from)
+    []
+    (into []
+          (keep (fn [edge]
+                  (when (and (= from (:from edge))
+                             (= (:type event) (:type edge))
+                             (agency-enabled? society (:to edge))
+                             (:enabled edge)
+                             (pos? (:credit edge))
+                             (match-event? (:match edge) event))
+                    (accepted-edge-context edge))))
+          (:edges society))))
+
 (defn route-context
-  "Return the accepted edge metadata for one outgoing domain event.
+  "Return one accepted edge metadata entry for an outgoing event and target.
 
-  A nil result means the topology, agency enablement, match predicate, or edge
-  credit rejected the route before it reached the receiving agency."
+  A nil result means the route was rejected before it reached the receiving
+  agency."
   [society from event to]
-  (when (and (agency-enabled? society from)
-             (agency-enabled? society to))
-    (some (fn [edge]
-            (when (and (= from (:from edge))
-                       (= to (:to edge))
-                       (= (:type event) (:type edge))
-                       (:enabled edge)
-                       (pos? (:credit edge))
-                       (match-event? (:match edge) event))
-              {:edgeId (:id edge)
-               :from from
-               :to to
-               :credit (:credit edge)}))
-          (:edges society))))
+  (some #(when (= to (:to %)) %)
+        (route-contexts society from event)))
 
 (defn agency-config
   "Create one JS agency config without converting runtime/provider handles.

package/src/polymer/worker.cljs

@@ -52,12 +52,23 @@
             :snapshot (js->clj (.snapshot ^js system) :keywordize-keys true)})
     (post-error! id "Unknown Polymer agency system id")))
 
+(defn- update-society-routing! [id agency-society]
+  (if-let [system (get @systems id)]
+    (post! {:id id
+            :stream "society"
+            :agencySociety (js->clj
+                            (.updateSocietyRouting ^js system
+                                                   (clj->js agency-society))
+                            :keywordize-keys true)})
+    (post-error! id "Unknown Polymer agency system id")))
+
 (defn- handle-message [message]
   (let [payload (js->clj (.-data message) :keywordize-keys true)
         id (or (:id payload) "character")]
     (case (:type payload)
       "createCharacterAgencies" (create-system! id (:config payload))
       "dispatch" (dispatch! id (:message payload))
+      "updateSocietyRouting" (update-society-routing! id (:agencySociety payload))
       "snapshot" (snapshot! id)
       "dispose" (do
                   (dispose-system! id)