Function: cider-xref-tree--show-implements

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

Signature

(cider-xref-tree--show-implements VAR PLAN)

Documentation

Render the implementations PLAN for VAR in a popup tree.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-xref-tree.el
(defun cider-xref-tree--show-implements (var plan)
  "Render the implementations PLAN for VAR in a popup tree."
  (let ((nodes (plist-get plan :nodes)))
    (unless nodes
      (user-error "No %s found for %s%s" (plist-get plan :empty-noun) var
                  (or (plist-get plan :empty-hint) "")))
    (let ((root (cider-tree-view-node-create
                 :label (cider-font-lock-as-clojure var)
                 :on-visit (lambda () (cider-find-var nil var))
                 :expanded t
                 :children-fn (lambda () nodes))))
      (with-current-buffer (cider-popup-buffer "*cider-who-implements*" 'select
                                               'cider-tree-view-mode 'ancillary)
        (cider-tree-view-render (list root) (plist-get plan :title))))))