more standardization

src/cljs/auto_ap/views/pages/admin/users.cljs

@@ -17,7 +17,8 @@
             [auto-ap.routes :as routes]
             [bidi.bidi :as bidi]
             [auto-ap.status :as status]
-            [auto-ap.views.pages.admin.users.form :as form]))
+            [auto-ap.views.pages.admin.users.form :as form]
+            [auto-ap.effects.forward :as forward]))
 
 
 
@@ -56,19 +57,20 @@
                                             :role
                                             [:clients [:id :name]]]]]} 
               :on-success [::received]}
-    :forward-events {:register ::edited-user
-                     :events #{::form/saved}
-                     :dispatch-to [::saved]}}))
+    ::forward/register {:id ::edited-user
+                        :events #{::form/saved}
+                        :event-fn (fn [[_ query-result]]
+                                    [::saved query-result])}}))
 
 (re-frame/reg-event-fx
  ::unmounted
  (fn [{:keys [db]} _]
-   {:forward-events {:unregister ::edited-user}}))
+   {::forward/dispose {:id ::edited-user}}))
 
 
 (re-frame/reg-event-db
  ::saved
- (fn [db [_ [_ query-result]]]
+ (fn [db [_ query-result]]
    (-> db
        (update ::users
                replace-by