Function: cider-maybe-insert-multiline-comment

cider-maybe-insert-multiline-comment is a byte-compiled function defined in cider-eval.el.

Signature

(cider-maybe-insert-multiline-comment RESULT COMMENT-PREFIX CONTINUED-PREFIX COMMENT-POSTFIX)

Documentation

Insert eval RESULT at current location if RESULT is not empty.

RESULT will be preceded by COMMENT-PREFIX. CONTINUED-PREFIX is inserted for each additional line of output. COMMENT-POSTFIX is inserted after final text output.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-eval.el
(defun cider-maybe-insert-multiline-comment (result comment-prefix continued-prefix comment-postfix)
  "Insert eval RESULT at current location if RESULT is not empty.
RESULT will be preceded by COMMENT-PREFIX.
CONTINUED-PREFIX is inserted for each additional line of output.
COMMENT-POSTFIX is inserted after final text output."
  (unless (string= result "")
    (clojure-indent-line)
    (let ((lines (split-string result "[\n]+" t))
          (beg (point))
          (col (current-indentation)))
      ;; only the first line gets the normal comment-prefix
      (insert (concat comment-prefix (pop lines)))
      (dolist (elem lines)
        (insert (concat "\n" continued-prefix elem)))
      (indent-rigidly beg (point) col)
      (unless (string= comment-postfix "")
        (insert comment-postfix)))))