routes.cljs

(ns ulysses.routes
  (:require [re-frame.core :as re-frame :refer [dispatch]]
            [bidi.bidi :as bidi]
            [pushy.core :as pushy]))

;; ----------------------------------------------------------------------------
;; Routes
;; ----------------------------------------------------------------------------

(def routes ["/" {"" :home
                  ["builder/" :grant-op-id] :builder
                  ["profile/" :person-id] :profile
                  true :not-found}])

(defn- parse-url [url]
  (bidi/match-route routes url))

(defn- dispatch-route [{:keys [handler route-params]}]
  (dispatch [:set-active-page handler route-params]))

(defn app-routes []
  (pushy/start! (pushy/pushy dispatch-route parse-url)))

(defn url-for [& args]
  (apply (partial bidi/path-for routes) args))