c'è una funzione url-encode
in Ring ring.util.codec
namespace:
(ring.util.codec/url-encode "clojure url")
; => "clojure+url"
non sono sicuro se c'è una funzione preconfezionato per trasformare una mappa in una quer y stringa, ma forse questo potrebbe fare il lavoro:
(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 esempio:
user> (make-query-string {"q" "clojure url" "foo" "bar"})
"q=clojure+url&foo=bar"
non rimane che concatenando il risultato sull'estremità di un URL:
(defn build-url [url-base query-map]
(str url-base "?" (make-query-string query-map)))
Sembra al lavoro:
user> (build-url "http://stackoverflow.com/search" {"q" "clojure url"})
"http://stackoverflow.com/search?q=clojure+url"
Aggiornamento:
Forse una versione modificata potrebbe fare per un'esperienza più Clojure-friendly. Gestisce anche la codifica tramite un argomento opzionale in stile Ring con utf-8 come predefinito.
(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)))
Così ora possiamo fare
user> (build-url "http://example.com/q" {:foo 1})
"http://example.com/q?foo=1"
fonte
2010-09-04 22:30:09
Notando la modifica, credo che non avrei dovuto preoccuparmi di scrivere tutto quello ... Oh bene. +1 per la prima risposta completa. Mi piace ancora la mia versione di gestione "Named", quindi la lascio qui. :-) –