stateful.cljs

(re-frame/reg-event-db
  :db/initialize-iota
  (fn [db [_ v]]
    (let [state (make-state)]
      (assoc db :state state))))



(re-frame/reg-event-fx
 :db/initialize-iota-mam
 (fn [{{:keys [state] :as db} :db} _]
   {:db db
    :dispatch [:db/change-state state]})



(re-frame/reg-event-fx
  :db/change-state
  (fn [{db :db} [_ state]]
    (let [new-state (change-state state)]
      {:db (assoc db :state new-state)
       :db/stateful-fn state})))


(re-frame/reg-fx
 :db/stateful-fn
 (fn [state]
   ...))