fifql-fx – re-frame effect handlers for fifql

fifql-fx is effect handlers for use with client-side browser applications that wish to talk to an fifql endpoint.

(require '[re-frame.core :as re-frame :refer [reg-event-fx]])
(require '[fifql.client :refer [sform]])
(require '[fifql-fx.effects])


(reg-event-fx
  ::query-user-listing
  (fn [_ [{:keys [first after]}]]
    {:fifql/query
     {:url "/fifql"
      :sform
      (sform
       def first %= first
       def after %= after
       {:first first :after after} ? example/user-listing)
      :on-success ::load-user-listing}}))


(reg-event-fx
  ::load-user-listing
  (fn [{:keys [db]} [{:keys [stack]}]]
     (let [user-listing (-> stack first)]
       {:db (assoc db ::user-listing user-listing)})))