TeXで階層imenu(適当)

latex-imenu.el

(defun latex-create-imenu-index ()
 (let ((index '())
       (pattern (rx "\\" (group (or "part" "chapter" "section" "subsection" "paragraph" "subparagraph"))
                    "{" (group (* (not (any "}")))) "}"))
       (pairs '(
         (part . 0)
         (chapter . 0)
         (section . 2)
         (subsection . 4)
         (paragraph . 6)
         (subparagraph . 8)
         ))
       )
   (goto-char (point-max))
   (while (re-search-backward pattern (point-min) t)
     (push (cons (concat (make-string (alist-get (intern (match-string-no-properties 1)) pairs) ? ) 
                         (match-string-no-properties 2))
                 (match-beginning 0))
           index))
   index))

(add-hook 'yatex-mode-hook
          '(lambda ()
             (setq imenu-create-index-function 'latex-create-imenu-index)))