letter-case-request.clj

(defn letter-case-request
  [handler & [{:as options}]]
  (fn [{:keys [body-params query-params] :as request}]
    (let [from-letter-case (or (:from options) (:from default-options))
          to-letter-case   (or (:to options) (:to default-options))]
      (handler
       (cond-> request
         (coll? body-params)  (assoc :body-params
                                     (transform-keys-letter-case
                                      (filter-letter-case-keys body-params from-letter-case)
                                      to-letter-case))
         (coll? query-params) (assoc :query-params
                                     (transform-keys-letter-case
                                      (filter-letter-case-keys query-params from-letter-case)
                                      to-letter-case)))))))