Compojure - сопоставить параметры запроса со строковыми ключами

Question

Я знаю, что могу отобразить строку запроса как карту ключей.

(defroutes my-routes
  (GET "/" {params :query-params} params))

Но есть ли способ сделать то же самое с картой со строковым ключом? (Используя Compojure или Ring)

Смысл здесь не в том, чтобы перебрать карту или использовать функцию, а создать ее со строковыми ключами по умолчанию.

{ :a "b" } -> {"a" "b"}

Answer 1

Compojure 1.5.1 не анализирует строки запросов по умолчанию (без использования промежуточного программного обеспечения). Тем не менее, это могло быть иначе в более ранних версиях.

(require '[compojure.core :refer :all])
(require '[clojure.pprint :refer [pprint]])

(defroutes handler
  (GET "/" x
       (with-out-str (pprint x)))) ;; just a way to receive a pretty printed string response

$ curl localhost:3000/?a=b
{:ssl-client-cert nil,
 :protocol "HTTP/1.1",
 :remote-addr "127.0.0.1",
 :params {},  ;; EMPTY!
 :route-params {},
 :headers
 {"user-agent" "curl/7.47.1", "accept" "*/*", "host" "localhost:3000"},
 :server-port 3000,
 :content-length nil,
 :compojure/route [:get "/"],
 :content-type nil,
 :character-encoding nil,
 :uri "/",
 :server-name "localhost",
 :query-string "a=b",  ;; UNPARSED QUERY STRING
 :body
 #object[org.eclipse.jetty.server.HttpInputOverHTTP 0x6756d3a3 "HttpInputOverHTTP@6756d3a3"],
 :scheme :http,
 :request-method :get}

Кольцо предлагает ring.params.wrap-params промежуточное программное обеспечение, которое анализирует строку запроса и создает ее хэш-карту под ключом params:

(defroutes handler
  (wrap-params (GET "/" x
                 (prn-str (:params x)))))

$ curl localhost:3000/?a=55
{"a" "55"}

Additionaly ring.params.wrap-params может быть использован:

(defroutes handler
  (wrap-params (wrap-keyword-params (GET "/" x
                                     (prn-str (:params x))))))

$ curl localhost:3000/?a=55
{:a "55"}

Answer 2

Не уверен насчет compojure, но вы можете отменить его самостоятельно:

(use 'clojure.walk)

(stringify-keys {:a 1 :b {:c {:d 2}}}) 
;=> {"a" 1, "b" {"c" {"d" 2}}}

https://clojuredocs.org/clojure.walk/stringify-keys