Kekkonen + Re-frame

rekekkonen.cljs

(reg-event-fx :get-current-party
  (fn [{:keys [db]} _]
    {:db (assoc db :loading? true)
     :kekkonen {:query :api.party/get-current-party
                ;; called with the body
                :on-success [:set-current-party]
                ;; or simple assoc-in?
                :on-success [:assoc-in [:current-party]]
                }}))

(reg-event :set-current-party
  (fn [db [_ current-party]]
    (assoc db :current-party current-party)))

(reg-event :assoc-in
  (fn [db [_ ks v]]
    (assoc-in db ks v)))