18 lines
569 B
Clojure
18 lines
569 B
Clojure
(ns auto-ap.history
|
|
(:require [bidi.bidi :as bidi]
|
|
[pushy.core :as pushy]
|
|
[auto-ap.routes :as routes]
|
|
[auto-ap.views.utils :as u]
|
|
[re-frame.core :as re-frame]))
|
|
|
|
(defn parse-url [url]
|
|
(println "parsing url" url)
|
|
(bidi/match-route routes/routes url))
|
|
|
|
(defn dispatch-route [matched-route]
|
|
(println "Matched route" matched-route)
|
|
(re-frame/dispatch [:auto-ap.events/set-active-route (:handler matched-route) (u/query-params) (:route-params matched-route)]))
|
|
|
|
|
|
(def history (pushy/pushy dispatch-route parse-url))
|