Add tap> to cider eval

[archaic]

Hello, I have got the functionality that I wanted using the code below.
I don't know emacs lisp very well, so I thought I would post it here for suggestions,
improvements or if anyone else wanted to use it. Everything I eval gets tapped
(for use with add-taps such as portal)

(require 'cider-mode)

(defun cider-tap (&rest r)
  (cons (concat "(let [__value "
                (caar r)
                "] (tap> __value) __value)")
        (cdar r)))

(advice-add 'cider-nrepl-request:eval
            :filter-args #'cider-tap)

[bbatsov]

See also #3055 for a different approach to doing this.

[stale]

This issue has been automatically marked as stale because it has not had recent activity. It will be closed if no further activity occurs. Thank you for your contribution and understanding!

[daslu]

@archaic this code example has been extremely useful to me!

[bbatsov]

We'll likely merge a limited version of this as proposed in #3239. We can still include @archaic's code snippet in the evaluation docs, though, so it's easy for people to discover it.

[vemv]

Between #3240, 966cae4 and the future #3055 our tapping needs will be well-served.

The (advice-add 'cider-nrepl-request:eval :filter-args #'cider-tap) is nice but a productionized approach would look like nREPL middleware instead.

Cheers - V