Function: cider-browse-ns--display-list

cider-browse-ns--display-list is a byte-compiled function defined in cider-browse-ns.el.

Signature

(cider-browse-ns--display-list KEYS ITEMS MAX-LENGTH &optional LABEL)

Documentation

Render the items of KEYS as contained in the nrepl-dict ITEMS.

Pad the row to be MAX-LENGTH+1. If LABEL is non-nil, add a header to the list of items.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-browse-ns.el
(defun cider-browse-ns--display-list (keys items max-length &optional label)
  "Render the items of KEYS as contained in the nrepl-dict ITEMS.

Pad the row to be MAX-LENGTH+1.  If LABEL is non-nil, add a header to the
list of items."
  (when keys
    (when label
      (insert "  " label ":\n"))
    (dolist (key keys)
      (let* ((doc (nrepl-dict-get-in items (list key "doc")))
             (doc (when doc (read doc)))
             (first-doc-line (cider-browse-ns--first-doc-line doc))
             (item-line (cider-browse-ns--propertized-item key items)))
        (insert "  ")
        (insert-text-button item-line
                            'action (lambda (_) (cider-browse-ns-operate-at-point))
                            'face (cider-browse-ns--text-face (nrepl-dict-get items key)))
        (when cider-browse-ns-current-ns
          (insert (make-string (+ (- max-length (string-width item-line)) 1) ?·))
          (insert " " (propertize first-doc-line 'font-lock-face 'font-lock-doc-face)))
        (insert "\n")))
    (insert "\n")))