(defroutes app-routes
  (GET "/" {}
    "Hello World"))
 
(defn wrap-pre*
  [handler]
  (fn [request]
    (let [response (handler request)]
      (when response
        ;; ==========
        ;; 前処理
        ;; ==========
        response))))
 
(defn wrap-pre
  ([handler]
   (wrap-pre handler {}))
  ([handler options]
   (-> handler
     wrap-pre*)))
 
(def app
  (-> app-routes
    (wrap-pre)
    (wrap-stateful-session)))
 
(defn -main []
  (let [port (Integer/parseInt (get (System/getenv) "PORT" "8080"))]
    (run-jetty (handler/site app) {:port port})))

(defroutes app-routes (GET "/" {} "Hello World")) (defn wrap-pre* [handler] (fn [request] (let [response (handler request)] (when response ;; ========== ;; 前処理 ;; ========== response)))) (defn wrap-pre ([handler] (wrap-pre handler {})) ([handler options] (-> handler wrap-pre*))) (def app (-> app-routes (wrap-pre) (wrap-stateful-session))) (defn -main [] (let [port (Integer/parseInt (get (System/getenv) "PORT" "8080"))] (run-jetty (handler/site app) {:port port})))