Minimal Ring App with Request/Response Log

core.clj

(ns ring-min-log.core
  (require
    [ring.util.response :as res]
    [ring.adapter.jetty :refer [run-jetty]]
    ))

(defn handler [req]
  (-> (res/response "Hello Goodbye")
      (res/content-type "text/plain")))

(defonce log-atom (atom []))
(defn logger [handler]
  (fn [req]
    (let [res (handler req)]
      (swap! log-atom #(conj % {:request req :response res}))
      res)))

(def my-app
  (-> handler
      logger))

(defonce server (run-jetty #'my-app {:port 8080 :join? false}))

project.clj

(defproject ring-min-log "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/clojure "1.8.0"]
                 [ring "1.5.0"]])