core.cljs

(ns example.core
  (:require [bidi.bidi :as bidi]
            [goog.events :as events]
            [clojure.string :as cstr]))


(defn start! [on-set-page routes]
  (letfn [(handle-route []
            (let [uri (cstr/replace js/location.hash "#" "")]
              (->> (if-not (empty? uri) uri "/")
                   (bidi/match-route routes)
                   on-set-page)))]
    (events/listen js/window "hashchange" handle-route)
    (handle-route)
    handle-route))


(defn stop! [handler]
  (events/unlisten js/window "hashcange" handler))
  
;; usage

(start! on-route-change routes)