Ring/文字化け対策

Clojure

レスポンスのcharsetを指定するには、次のようにすればよいようです。

元ネタはここ　⇒　Problem with Compojure 0.4 + Enlive and UTF-8

(defn wrap-charset [handler charset]
  (fn [request]
    (if-let [response (handler request)]
      (if-let [content-type (get-in response [:headers "Content-Type"])]
        (if (.contains content-type "charset")
          response
          (assoc-in response
            [:headers "Content-Type"]
            (str content-type "; charset=" charset)))
        response)))) 

(def app (wrap-charset my-routes "utf-8"))