add dispatch-on-match? option.

Adds an option to allow for a dispatch on an already-matched route.

src/pushy/core.cljs

@@ -57,20 +57,28 @@
   "Takes in three functions:
     * dispatch-fn: the function that dispatches when a match is found
     * match-fn: the function used to check if a particular route exists
-    * identity-fn: (optional) extract the route from value returned by match-fn"
+    * identity-fn: (optional) extract the route from value returned by match-fn
+    Options:
+    * prevent-default-when-no-match? Continue to prevent default events even if no routes match (default false)
+    * dispatch-on-match? Allow for a dispatch event over the same route. (default false)"
   [dispatch-fn match-fn &
-   {:keys [processable-url? identity-fn prevent-default-when-no-match?]
+   {:keys [processable-url? identity-fn prevent-default-when-no-match? dispatch-on-match?]
     :or   {processable-url?               processable-url?
            identity-fn                    identity
-           prevent-default-when-no-match? (constantly false)}}]
+           prevent-default-when-no-match? (constantly false)
+           dispatch-on-match? false}}]
 
   (let [history (new-history)
         event-keys (atom nil)]
     (reify
       IHistory
       (set-token! [_ token]
+        (when (and dispatch-on-match? (= token (.getToken history)))
+          (. history (replaceToken token)))
         (. history (setToken token)))
       (set-token! [_ token title]
+        (when (and dispatch-on-match? (= token (.getToken history)))
+          (. history (replaceToken token title)))
         (. history (setToken token title)))
 
       (replace-token! [_ token]