Merge pull request #17 from shinych/master

Dispatch the URL fragment (hash) initially as well
venantius · Dec 7, 2015 · 95457c8 · 95457c8
2 parents b7982d8 + 8f975f3
commit 95457c8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/accountant/core.cljs b/src/accountant/core.cljs
@@ -121,5 +121,6 @@
 (defn dispatch-current! []
   "Dispatch current URI path."
   (let [path (-> js/window .-location .-pathname)
-        query (-> js/window .-location .-search)]
-    (secretary/dispatch! (str path query))))
+        query (-> js/window .-location .-search)
+        hash (-> js/window .-location .-hash)]
+    (secretary/dispatch! (str path query hash))))