middleware.clj

(defn example-middleware [handler]
  (fn [request]
    (let [now (System/currentTimeMillis)
          modified-request (assoc-in request [:headers "received-at"] now)
          response (handler modified-request)]
      (assoc-in response
                [:headers "processing-time"]
                (- (System/currentTimeMillis) now)))))