Function: cider-xref-tree--show-protocols

cider-xref-tree--show-protocols is a byte-compiled function defined in cider-xref-tree.el.

Signature

(cider-xref-tree--show-protocols ROOT-LABEL TITLE NODES EMPTY-MSG)

Documentation

Render protocol NODES as a tree under ROOT-LABEL in a popup titled TITLE.

Signal EMPTY-MSG when NODES is empty.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-xref-tree.el
(defun cider-xref-tree--show-protocols (root-label title nodes empty-msg)
  "Render protocol NODES as a tree under ROOT-LABEL in a popup titled TITLE.
Signal EMPTY-MSG when NODES is empty."
  (unless nodes
    (user-error "%s" empty-msg))
  (let ((root (cider-tree-view-node-create
               :label root-label
               :expanded t
               :children-fn (lambda () nodes))))
    (with-current-buffer (cider-popup-buffer "*cider-protocols*" 'select
                                             'cider-tree-view-mode 'ancillary)
      (cider-tree-view-render (list root) title))))