From 8f975f328667fdbe9d009cbd8e531b64ef8a05c1 Mon Sep 17 00:00:00 2001
From: Ilya Shinkarenko <shinych@gmail.com>
Date: Sun, 6 Dec 2015 15:10:16 +0100
Subject: [PATCH] dispatch the URL fragment (hash) initially as well

---
 src/accountant/core.cljs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/accountant/core.cljs b/src/accountant/core.cljs
index 6f1ca4b..0836c6b 100644
--- 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))))
\ No newline at end of file