dispatch the URL fragment (hash) initially as well

venantius · Dec 6, 2015 · 8f975f3 · 8f975f3
1 parent b7982d8
commit 8f975f3
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))))