Cheshire binding in middleman

server.clj

(ns pitchit.server
  (:require [cheshire.core :as json]
            [cheshire.factory :as factory]
            [noir.server :as server]
            [pitchit.views common welcome]
            [pitchit.models db]))

(server/load-views-ns 'pitchit.views)

(defn -main [& m]
  (let [mode (keyword (or (first m) :dev))
        port (Integer. (get (System/getenv) "PORT" "8081"))]
    (server/start port {:mode mode
                        :ns 'it354})))
(defn fix-base-url [handler]
  (fn [request]
    (with-redefs [noir.options/resolve-url 
                  (fn [url]
                    ;prepend context to the relative URLs
                    (if (.contains url "://")
                      url (str (:context request) url)))]
      (handler request))))

(defn json-update [json]
  (binding [factory/*json-factory* (factory/make-json-factory
                                    {:allow-unquoted-field-names true
                                     :allow-single-quotes true})]
    (json/decode json true)))

(defn json-body [handler]
  (fn [req]
    (let [neue (if (= "application/json" (get-in req [:headers "content-type"]))
        (update-in req [:params] merge (json-update (slurp (:body req)))) req)]
      (handler neue))))

(server/add-middleware json-body)

(def base-handler
    (server/gen-handler {:ns 'pitchit}))

(def handler (-> base-handler fix-base-url))

(comment
  ;test code
  (def myServer
    (server/start 8081))
  (json-update "{test: 'no quotes for field name, and using single quotes here'}")
)