19 lines
580 B
Clojure
19 lines
580 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]
|
|
[cemerick.url :refer [url]]
|
|
[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-page (:handler matched-route) (u/query-params)]))
|
|
|
|
|
|
(def history (pushy/pushy dispatch-route parse-url))
|