untitled.clj

;; event-db
(rf/reg-event-db
 :auth/ok
 (fn [db [_ resp]]
   (assoc db :token (:access_token resp))))

;; event-fx
(rf/reg-event-fx
 :auth
 (fn [{:keys [db]} _]
   {:POST
    {:url "https://api.intra.42.fr/oauth/token"
     :on-success [:auth/ok]
     :on-fail [:auth/nok]
     :params
     {:grant_type "client_credentials"}}}))

;; effect
(rf/reg-fx
 :POST
 (fn [{:keys [url params on-success on-fail]}]
   (take! (http/post url {:form-params params})
          #(rf/dispatch (conj on-success %)))))
;; subscription
(rf/reg-sub
 :token
 (fn [db]
   (:token db)))

;; component
(defn main-panel []
  (let [name (rf/subscribe [:name])
        token (rf/subscribe [:token])]
    (prn @token)
    [:div {:class "main-panel"}
     [:h1 {:class "title"} @name]
     [text-input "filter projects: " #(rf/dispatch [:text-input %])]
     [project-list]]))