add frame/process-events

src/re_frame/frame.cljs

@@ -122,6 +122,25 @@ by the process doing actual transduction. See event processing helpers below for
 
 ;; -- event processing -------------------------------------------------------------------------------------------------
 
+(defn process-event [frame init-db event]
+  (let [reducing-fn (fn [_old-state new-state] new-state)
+        xform (get-frame-transducer frame identity)]
+    ((xform reducing-fn) init-db event)))
+
+(defn process-events [frame init-db events]
+  (let [reducing-fn (fn
+                      ([db-states] db-states)               ; completion
+                      ([db-states new-db]                   ; in each step
+                       (conj db-states new-db)))            ; add new-db state to the vector
+        xform (get-frame-transducer frame last)]
+    (transduce xform reducing-fn [init-db] events)))
+
+(defn process-event-on-atom [frame db-atom event]
+  (let [old-db @db-atom
+        new-db (process-event frame old-db event)]
+    (if-not (identical? old-db new-db)
+      (reset! db-atom new-db))))
+
 (defn process-events-on-atom [frame db-atom events]
   (let [reducing-fn (fn
                       ([db-atom] db-atom)                   ; completion
@@ -143,17 +162,6 @@ by the process doing actual transduction. See event processing helpers below for
         xform (get-frame-transducer frame identity)]
     (transduce xform reducing-fn old-db events)))
 
-(defn process-event [frame old-db event]
-  (let [reducing-fn (fn [_old-state new-state] new-state)
-        xform (get-frame-transducer frame identity)]
-    ((xform reducing-fn) old-db event)))
-
-(defn process-event-on-atom [frame db-atom event]
-  (let [old-db @db-atom
-        new-db (process-event frame old-db event)]
-    (if-not (identical? old-db new-db)
-      (reset! db-atom new-db))))
-
 ;; -- nice to have -----------------------------------------------------------------------------------------------------
 
 (extend-protocol IPrintWithWriter

test/re_frame/test/frame.cljs

@@ -102,6 +102,13 @@
                   (frame/register-event-handler :my-handler my-handler))
           result (frame/process-event frame "[initial state]" [:my-handler 1 2])]
       (is (= result "state:[initial state] args:(:my-handler 1 2)"))))
+  (testing "process multiple events, get vector of states back"
+    (let [init-db 0
+          add-handler (fn [state [_event-id num]] (+ state num))
+          frame (-> (make-empty-test-frame)
+                  (frame/register-event-handler :add add-handler))
+          result (frame/process-events frame init-db [[:add 1] [:add 2] [:add 10]])]
+      (is (= result [0 1 3 13]))))
   (testing "process event on atom"
     (let [db (atom 0)
           reset-counter (atom 0)