Preserve fragments in URLs

When URLs have fragments in them, pushy used to discard them. This change
preserves the fragment. Example:

    <a href="/a-page#some-header">

Pushy would go to just "/a-page" before this change.

src/pushy/core.cljs

@@ -57,9 +57,11 @@
 
 (defn- get-token-from-uri [uri]
   (let [path (.getPath uri)
-        query (.getQuery uri)]
-    ;; Include query string in token
-    (if (empty? query) path (str path "?" query))))
+        query (.getQuery uri)
+        fragment (.getFragment uri)]
+    (cond-> path
+      (seq query) (str "?" query)
+      (seq fragment) (str "#" fragment))))
 
 (defn pushy
   "Takes in three functions: