Function: cider--nrepl-print-request-plist

cider--nrepl-print-request-plist is a byte-compiled function defined in cider-client.el.

Signature

(cider--nrepl-print-request-plist &optional RIGHT-MARGIN)

Documentation

Map to merge into requests that require pretty-printing.

RIGHT-MARGIN specifies the maximum column-width of the printed result, and is included in the request if non-nil.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-client.el
(defun cider--nrepl-print-request-plist (&optional right-margin)
  "Map to merge into requests that require pretty-printing.
RIGHT-MARGIN specifies the maximum column-width of the printed result, and
is included in the request if non-nil."
  (let* ((width-option (cider--print-option "right-margin" cider-print-fn))
         (print-options (thread-last
                          (map-merge 'hash-table
                                     `((,width-option ,right-margin))
                                     cider-print-options)
                          (map-pairs)
                          (seq-mapcat #'identity)
                          (apply #'nrepl-dict))))
    `("nrepl.middleware.print/stream?" "1"
      ,@(when cider-print-fn
          `("nrepl.middleware.print/print" ,(cider--print-fn)))
      ,@(when cider-print-quota
          `("nrepl.middleware.print/quota" ,cider-print-quota))
      ,@(when cider-print-buffer-size
          `("nrepl.middleware.print/buffer-size" ,cider-print-buffer-size))
      ,@(unless (nrepl-dict-empty-p print-options)
          `("nrepl.middleware.print/options" ,print-options)))))