support anchors

src/cemerick/url.clj

@@ -48,7 +48,7 @@
     (str username ":" password)))
 
 (defrecord URL
-  [protocol username password host port path query]
+  [protocol username password host port path query anchor]
   Object
   (toString [this]
     (let [creds (url-creds username password)]
@@ -60,7 +60,8 @@
            path
            (when query (str \? (if (string? query)
                                  query
-                                 (map->query query))))))))
+                                 (map->query query))))
+           (when anchor (str \# anchor))))))
 
 (defn- normalize-path
   [path]
@@ -89,7 +90,8 @@
               (.getHost url)
               (.getPort url)
               (normalize-path (.getPath url))
-              (query->map (.getQuery url))))))
+              (query->map (.getQuery url))
+              (.getRef url)))))
   ([base-url & path-segments]
     (let [base-url (if (instance? URL base-url) base-url (url base-url))]
       (assoc base-url :path (normalize-path (reduce pathetic/resolve

test/cemerick/test_url.clj

@@ -3,7 +3,7 @@
   (:use cemerick.url
         clojure.test))
 
-(def url-str (comp str url))
+(def url-str (comp str #'url))
 
 (deftest test-map-to-query-str
   (are [x y] (= x (#'cemerick.url/map->query y))
@@ -51,3 +51,8 @@
   (is (= "http://a" (str (url "http://a/b/c" "/"))))
   (is (= "http://a" (str (url "http://a/b/c" "../.."))))
   (is (= "http://a/x" (str (url "http://a/b/c" "../.." "." "./x")))))
+
+(deftest anchors
+  (is (= "http://a#x" (url-str "http://a#x")))
+  (is (= "http://a?b=c#x" (url-str "http://a?b=c#x")))
+  (is (= "http://a?b=c#x" (-> "http://a#x" url (assoc :query {:b "c"}) str))))