Function: cider-xref-tree--node
cider-xref-tree--node is a byte-compiled function defined in
cider-xref-tree.el.
Signature
(cider-xref-tree--node VAR OP NS ANCESTORS)
Documentation
Return a cider-tree-view-node for VAR expanding via OP in namespace NS.
ANCESTORS is the list of qualified names on the path from the root; a VAR that recurs onto its own path is rendered as a non-expandable leaf so expansion can't loop forever.
Source Code
;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-xref-tree.el
(defun cider-xref-tree--node (var op ns ancestors)
"Return a `cider-tree-view-node' for VAR expanding via OP in namespace NS.
ANCESTORS is the list of qualified names on the path from the root; a VAR that
recurs onto its own path is rendered as a non-expandable leaf so expansion can't
loop forever."
(let ((recursive (member var ancestors)))
(cider-tree-view-node-create
:label (concat (cider-font-lock-as-clojure var)
(when recursive (propertize " (recursive)" 'face 'shadow)))
:on-visit (lambda () (cider-find-var nil var))
:children-fn (unless recursive
(lambda ()
(cider-xref-tree--children var op ns (cons var ancestors)))))))