hay una función url-encode
en Ring ring.util.codec
espacio de nombres:
(ring.util.codec/url-encode "clojure url")
; => "clojure+url"
no estoy seguro si hay una función preenvasados para convertir un mapa en un quer S String, pero tal vez esto podría hacer el trabajo:
(use '[ring.util.codec :only [url-encode]])
(defn make-query-string [m]
(->> (for [[k v] m]
(str (url-encode k) "=" (url-encode v)))
(interpose "&")
(apply str)))
Un ejemplo:
user> (make-query-string {"q" "clojure url" "foo" "bar"})
"q=clojure+url&foo=bar"
Todo lo que queda es la concatenación de los resultados en el extremo de una URL:
(defn build-url [url-base query-map]
(str url-base "?" (make-query-string query-map)))
Parece para trabajar:
user> (build-url "http://stackoverflow.com/search" {"q" "clojure url"})
"http://stackoverflow.com/search?q=clojure+url"
Actualización:
Tal vez una versión modificada podría hacer para una experiencia más Clojure ambiente. También maneja la codificación a través de un argumento opcional estilo anillo con utf-8 como predeterminado.
(defn make-query-string [m & [encoding]]
(let [s #(if (instance? clojure.lang.Named %) (name %) %)
enc (or encoding "UTF-8")]
(->> (for [[k v] m]
(str (url-encode (s k) enc)
"="
(url-encode (str v) enc)))
(interpose "&")
(apply str))))
(defn build-url [url-base query-map & [encoding]]
(str url-base "?" (make-query-string query-map encoding)))
Así que ahora podemos hacer
user> (build-url "http://example.com/q" {:foo 1})
"http://example.com/q?foo=1"
Al notar la edición, creo que no debería haberme molestado en escribir todo eso ... Oh, bueno. +1 para la primera respuesta completa. Todavía me gusta mi versión de manejo de 'Nombre', así que lo dejo aquí. :-) –