link_builder.clj

(use '[clojure.string :only (join)])
(import java.net.URLEncoder)

(defn link-builder [path] {:path       path
                           :attributes {}})

(defn add [lb k v]
  (when v
    (update-in lb [:attributes k] concat #{v})))
 
(defn to-string [{path       :path
                  attributes :attributes}]
  (str path "?" (join
                  "&"
                  (for [[k vs] attributes]
                    (join "&" (map #(str k "=" (URLEncoder/encode % "utf-8")) vs))))))