kdmsnr

(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)