re-frame-routing example

re-frame-routing.cljs

;; Container views (usally in seperate views

(defn home
  [{:keys [route-key path-parms query-params]}]
  [:div "Home"])

(defn sign-in
  [{:keys [route-key path-parms query-params]}]
  [:div "Sign In"])

(defn not-found
  [{:keys [route-key path-parms query-params]}]
  [:div "Page not found"])

;; app.router.core

(defmulti containers identity)

(defmethod containers
  :home [] [home])

(defmethod containers
  :sign-in [] [sign-in])

;; CATCH-ALL ROUTE
(defmethod containers
  :default [] [not-found])

(defn router []
  (let [route-key (re-frame/subscribe [:router/route])
        path-parms (re-frame/subscribe [:router/route-params])
        query-params (re-frame/subscribe [:router/route-query])]
    (fn []
      [containers @route-key])))

;; app.core

(def routes ["/" {"" :home
                 "/home" :home
                 "/sign-in" :sign-in}])

(rfr/register-subscriptions)
(rfr/register-events {:routes routes})

(defn render
  []
  [:div
   ;; Some other content (usually navbar)
   [router]])