How to use debux with Ring middleware

[devurandom]

Ring middleware are functions look like:

(defn wrap-me
  [handler msg]
  (fn [request]
    ;; `identity` represent the logic of the middleware:
    (identity (handler (identity request)))))

They are applied like:

(-> handler
    (wrap-me "one")
    (wrap-me "two")
    (wrap-me "three")
    ,,,)

Is there a convenient way to apply debux to print in each step the request fed to and the response returned by the handler?

I would hope for something like the following to be possible:

(dbgmw (-> handler
           (wrap-me "one")
           (wrap-me "two")
           (wrap-me "three")
           ,,,)))
; Would print something like:
; dbgmw: (-> handler (wrap-me "one") (wrap-me "two") (wrap-me "three") ,,,)
; | request => {,,,}
; | (wrap-me ,,, "three") => {,,,}
; | (wrap-me ,,, "two") => {,,,}
; | (wrap-me ,,, "one") => {,,,}
; | (handler ,,,) => {,,,}

[philoskim]

Debux doesn't have such a feature you mentioned.

Instead, I recommend the following code snippet to you.

(use 'debux.core)

(defn wrap-dbg [handler middleware-name]
  (fn [req]
    (dbg req :msg (str "request to " middleware-name))
    (let [resp (handler req)]
      (dbg resp :msg (str "response from " middleware-name))
      resp) ))

(-> handler
    (wrap-me "one")
    (wrap-dbg "wrap-me one")
    (wrap-me "two")
    (wrap-dbg "wrap-me two")
    (wrap-me "three")
    (wrap-dbg "wrap-me three")
    ,,,)