user.clj

(defn show-routes
  "Prints the application's route table"
  []
  (print-routes routes))

(defn named-route
  "Finds a route by name"
  [route-name]
  (->> routes
       (filter #(= route-name (:route-name %)))
       first))

(defn recognize-route
  "Tries to match the verb and path to a route"
  [verb path]
  (route/try-routing-for routes :prefix-tree path verb))

(defn url-for
  ""
  [route-name & options]
  (let [router (route/url-for-routes
                routes
                :scheme "http"
                :host "localhost"
                :port 8080)]
    (apply router route-name options)))