[:find-primes {:n 100}]
{:rf/event-id :find-primes :n 100}
(dispatch [:find-primes {:n 100}])
(dispatch {::rf/event-id :find-primes
:n 100})
(dispatch :find-primes {:n 100})
{:dispatch [:find-primes {:n 100}]}
Or
{:fx [[:dispatch [:find-primes {:n 100}]]]}
{:dispatch {::rf/event-id :find-primes
:n 100}}
Or
{:fx [[:dispatch {::rf/event-id :find-primes
:n 100}]]}
{:dispatch ???!!!}
Or maybe in :fx
effect:
{:fx [[:dispatch :find-primes {:n 100}]]}
(rf/reg-event-fx
:find-primes
(fn [{:keys [db]} [_ {:keys [flushed? n] :or {flushed? false n 10}} :as event]]
(if-not flushed?
;; step 1 -
{:db (assoc db :twirly true)
:dispatch ^:flush-dom (assoc-in event [1 :flushed?] true)} ;; <-- adding to the map
;; step 2 - hog the CPU
{:db (n-primes db n)})))
Or http-fx
(rf/reg-event-fx
:fetch-list
(fn [{:keys [db]} [_ {:keys [sort-by state] :or {sort-by "date" state "initial"}} :as event]]
(case state
:initial
{:http-fx {:method :get
:url "..."
:on-success (assoc-in event [1 :state] :succeeded)
:on-failure (assoc-in event [1 :state] :failed)}})))
(rf/reg-event-fx
:find-primes
(fn [{:keys [db]} {:keys [flushed? n] :or {flushed? false n 10} :as event}]
(if-not flushed?
;; step 1 -
{:db (assoc db :twirly true)
:dispatch ^:flush-dom (assoc event :flushed? true)} ;; <-- adding to the map
;; step 2 - hog the CPU
{:db (n-primes db n)})))
Or http-fx
(rf/reg-event-fx
:fetch-list
(fn [{:keys [db]} {:keys [sort-by state] :or {sort-by "date" state "initial"} :as event}]
(case state
:initial
{:http-fx {:method :get
:url "..."
:on-success (assoc event :state :succeeded)
:on-failure (assoc event :state :failed)}})))
(subscribe [:list-of-things {:start-date "..."
:end-date "..."}])
(subscribe {:re-frame/query-id :list-of-things
:start-date "..."
:end-date "..."})
(subscribe :list-of-things {:start-date "..."
:end-date "..."})
(reg-sub
:derived-list
:<- [:list-of-things {:start-date "..."
:end-date "..."}]
(fn [[list-of-things] _]
...))
(reg-sub
:derived-list
:<- {:rf/query-id :list-of-things
:start-date "..."
:end-date "..."}
(fn [[list-of-things] _]
...))
(reg-sub
:derived-list
:<- :list-of-things {:start-date "..."
:end-date "..."}
(fn [[list-of-things] _]
...))