Function: cider-tap--render-value

cider-tap--render-value is a byte-compiled function defined in cider-tap.el.

Signature

(cider-tap--render-value EVENT)

Documentation

Append the tapped value EVENT to the current buffer, following the tail.

Each entry is tagged so navigation finds it. Clojure entries also carry an idx so cider-tap-inspect-at-point can inspect the retained value behind them; ClojureScript entries have none, since their value lives in the JS runtime.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-tap.el
(defun cider-tap--render-value (event)
  "Append the tapped value EVENT to the current buffer, following the tail.
Each entry is tagged so navigation finds it.  Clojure entries also carry an
`idx' so `cider-tap-inspect-at-point' can inspect the retained value behind
them; ClojureScript entries have none, since their value lives in the JS
runtime."
  (nrepl-dbind-response event (idx summary type count)
    (let ((inhibit-read-only t)
          (at-end (= (point) (point-max))))
      (save-excursion
        (goto-char (point-max))
        (let ((start (point)))
          (insert (propertize (format-time-string "%H:%M:%S  ") 'face 'shadow))
          (insert (cider-font-lock-as-clojure (or summary "")))
          (insert (propertize (format "   (%s%s)"
                                      type
                                      (if count (format ", %s" count) ""))
                              'face 'shadow))
          (insert "\n")
          (put-text-property start (point) 'cider-tap-entry t)
          ;; `idx' can be 0, which is a valid (non-nil) property value.
          (when idx
            (put-text-property start (point) 'cider-tap-idx idx))))
      (when at-end (goto-char (point-max))))))