[Enhancement]: Add a default Effect Handler For Promises

[mike-thompson-day8]

Something basic like:

(rf/reg-fx
  :promise
  (fn [{:keys [promise on-success on-failure]}]
    (-> promise
        (.then #(rf/dispatch (conj on-success %)))
        (.catch #(rf/dispatch (conj on-failure %))))))

Example Usage:

(rf/reg-event-fx
  ::fetch-data
  (fn [_ [_ params]]
    {:promise {:promise (js/fetch "https://api.example.com/data")
              :on-success [::fetch-success]
              :on-failure [::fetch-error]}}))
              
;; Success handler
(rf/reg-event-db
  ::fetch-success
  (fn [db [_ result]]
    (assoc db :data result)))

;; Error handler  
(rf/reg-event-db
  ::fetch-error
  (fn [db [_ error]]
    (assoc db :error error)))

[souenzzo]

Maybe also add a :on-finally or :always handler?

[jurjanpaul]

First impression: to me this looks a bit awkward compared to other re-frame syntax (overloaded :promise keyword - for which I don't have a better suggestion either - and why not keep closer to the underlying mechanism by having :then and :catch instead of :on-success and :on-failure?)

And isn't a call to js/fetch a side effect already?

Could you point to a discussion of the problem that this solves?

[jurjanpaul]

I wonder if passing a function that returns a JS promise would mitigate things:

(rf/reg-event-fx
  ::fetch-data
  (fn [_ [_ params]]
    {:promise {:fn #(js/fetch "https://api.example.com/data")
               :then [::fetch-success]
               :catch [::fetch-error]}}))

[stevebuik]

Seems like nice sugar.

We do a lot of re-frame testing using jvm i.e. cljc

I presume this would not have any adverse affects on the portability?

[green-coder]

Something slightly different I would love Re-frame to support, is promises in the effects and waiting for them in this way:

(rf/reg-fx :fetch
  (fn [{:keys [url]}]
    (js/fetch url)))

(rf/reg-event-fx ::fetch-data
  (fn [_ [_ params]]
    {:fx [[:promise {:fx [:fetch {:url "https://api.example.com/data"}]
                     :then ,,,
                     :catch ,,,}]]}))