Function: cider-cheatsheet--insert-hierarchy

cider-cheatsheet--insert-hierarchy is a byte-compiled function defined in cider-cheatsheet.el.

Signature

(cider-cheatsheet--insert-hierarchy HIERARCHY &optional LEVEL)

Documentation

Insert HIERARCHY with visual indentation for LEVEL.

LEVEL defaults to 0.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20261106.1225/cider-cheatsheet.el
(defun cider-cheatsheet--insert-hierarchy (hierarchy &optional level)
  "Insert HIERARCHY with visual indentation for LEVEL.
LEVEL defaults to 0."
  (let ((level (or level 0)))
    (dolist (node hierarchy)
      (if (stringp (car node))
          (progn
            (insert (make-string (* level 2) ?\s)
                    (propertize (car node)
                                'face (if (zerop level)
                                          'cider-cheatsheet-section
                                        'cider-cheatsheet-subsection))
                    "\n")
            (cider-cheatsheet--insert-hierarchy (cdr node) (1+ level)))
        (dolist (var (cider-cheatsheet--expand-vars node))
          (insert (make-string (* level 2) ?\s))
          (insert-text-button var
                              'var var
                              'action (lambda (btn)
                                        (funcall cider-cheatsheet-default-action-function
                                                 (button-get btn 'var)))
                              'help-echo (format "Show documentation for %s" var))
          (insert "\n"))))))