Function: cider-browse-ns--group-node

cider-browse-ns--group-node is a byte-compiled function defined in cider-browse-ns.el.

Signature

(cider-browse-ns--group-node LABEL KEYS ITEMS)

Documentation

Build an expandable group node titled LABEL over var KEYS in ITEMS.

Return nil when KEYS is empty, so empty groups are dropped.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260822.1520/cider-browse-ns.el
(defun cider-browse-ns--group-node (label keys items)
  "Build an expandable group node titled LABEL over var KEYS in ITEMS.
Return nil when KEYS is empty, so empty groups are dropped."
  (when keys
    (let ((node (cider-tree-view-node-create
                 :label (propertize (format "%s (%d)" label (length keys)) 'face 'bold)
                 :children-fn (lambda ()
                                (mapcar (lambda (key)
                                          (cider-browse-ns--var-node key items))
                                        keys)))))
      (setf (cider-tree-view-node-expanded node) t)
      node)))