Il y a une fonction url-encode
dans Anneau ring.util.codec
espace de noms:
(ring.util.codec/url-encode "clojure url")
; => "clojure+url"
Je ne sais pas s'il y a une fonction préemballée de transformer une carte en Quer chaîne y, mais peut-être cela pourrait faire le travail:
(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 exemple:
user> (make-query-string {"q" "clojure url" "foo" "bar"})
"q=clojure+url&foo=bar"
Tout ce qui reste est concaténer le résultat sur la fin d'une URL:
(defn build-url [url-base query-map]
(str url-base "?" (make-query-string query-map)))
Semble pour travailler:
user> (build-url "http://stackoverflow.com/search" {"q" "clojure url"})
"http://stackoverflow.com/search?q=clojure+url"
Mise à jour:
Peut-être une version modifiée pourrait faire pour une plus grande expérience Clojure conviviale. Gère également l'encodage via un argument optionnel Ring-style avec utf-8 par défaut.
(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)))
Alors maintenant, nous pouvons faire
user> (build-url "http://example.com/q" {:foo 1})
"http://example.com/q?foo=1"
En remarquant le montage, je suppose que je n'aurais pas dû m'embêter à écrire tout ça ... Oh bien. +1 pour la première réponse complète. J'aime toujours ma version 'Named'-handling, donc je laisse ça ici. :-) –