如何简单地编写一个拦截器，使用Pedestal从get/post请求中提取json

[io.pedestal/pedestal.service "0.5.7"]
[io.pedestal/pedestal.route "0.5.7"]
[io.pedestal/pedestal.interceptor "0.5.7"]

(ns your-namespace
  (:require [io.pedestal.http :as http]
            [io.pedestal.interceptor :as interceptor]
            [clojure.data.json :as json]))

(defn json-interceptor [request context]
  (let [body (:body request)]
    (if (and (contains? (:headers request) "Content-Type")
             (= "application/json" (:headers request "Content-Type")))
      (let [json-data (json/read-str body)]
        (-> context
            (assoc :json-data json-data)
            (interceptor/next request)))
      (interceptor/next request context))))

(def service
  (-> (http/create-servlet
        (http/router
          [[:post "/your-endpoint" :your-handler]
           [:get "/your-endpoint" :your-handler]])
        {:interceptors [json-interceptor]})
      (http/create-server)))

(http/start service)