thing.cljs

(r/reg-event-fx
  :login
  (fn [{:keys [db]} [_ email password]]
    {:db         (assoc-in db [:pages :loading?] true)
     :http-xhrio {:method          :post
                  :uri             "http://localhost:3000/api/v1/auth/sign_in.json" ; todo: dynamic URLs!
                  :timeout         8000
                  :format          :json
                  :keywords?       :true
                  :params          {:email email :password password}
                  :response-format (json-response-format {:keywords? true})  ;; optional see API docs
                  :on-success      [:good-login]
                  :on-failure      [:bad-http-result "sometihng went wrong..."]}}))