imenu-generic-expression appropriate for different major modes

imenu-generic-expression appropriate for different major modes

[Heime]

Would there be more convenient ways to define `imenu-generic-expression'
appropriate for different major modes ?


(defun vodil-imenu-expr ()
  "Set up `imenu` based on the major mode."

  (interactive)
  (setq imenu-generic-expression
        (cond
         ;; For Emacs Lisp modes
         ((derived-mode-p 'emacs-lisp-mode)
          `(("Functions"
             ,(concat "^\\s-*"
                      "(defun"
                      "\\s-+\\([[:word:]-]+\\)") 1)
            ("Variables"
             ,(concat "^\\s-*"
                      "(\\(defvar\\|defvar-local\\|defconst\\)"
                      "\\s-+\\([[:word:]-]+\\)") 2) ))

         ;; For other modes, add custom expressions here
         ;; Example for hypothetical "foo-mode"
         ((derived-mode-p 'foo-mode)
          `(("Foo Functions"
             ,(concat "^\\s-*"
                      "foo-function"
                      "\\s-+\\([[:word:]-]+\\)") 1)
            ("Foo Variables"
             ,(concat "^\\s-*"
                      "foo-variable"
                      "\\s-+\\([[:word:]-]+\\)") 1)))

         ;; Default case if no specific configuration
         (t nil)))