diff options
Diffstat (limited to 'lisp/+init.el')
| -rw-r--r-- | lisp/+init.el | 17 |
1 files changed, 11 insertions, 6 deletions
| diff --git a/lisp/+init.el b/lisp/+init.el index c1f3cb5..a4c3b5a 100644 --- a/lisp/+init.el +++ b/lisp/+init.el | |||
| @@ -80,12 +80,17 @@ are sorted lexigraphically." | |||
| 80 | (defun +init-add-setup-to-imenu () | 80 | (defun +init-add-setup-to-imenu () |
| 81 | "Recognize `setup' forms in `imenu'." | 81 | "Recognize `setup' forms in `imenu'." |
| 82 | ;; `imenu-generic-expression' automatically becomes buffer-local when set | 82 | ;; `imenu-generic-expression' automatically becomes buffer-local when set |
| 83 | (setf (alist-get "Setup" imenu-generic-expression nil nil 'string-equal) | 83 | (setf (alist-get "Setup" imenu-generic-expression nil nil #'equal) |
| 84 | (list | 84 | (list |
| 85 | (rx (: bol (* space) | 85 | (rx (: "(setup" (+ space) |
| 86 | "(setup" (+ space) | 86 | (group (? "(") (* nonl)))) |
| 87 | (group (? "(") (* nonl)))) | 87 | 1)) |
| 88 | 1))) | 88 | (when (boundp 'consult-imenu-config) |
| 89 | (setf (alist-get ?s | ||
| 90 | (plist-get | ||
| 91 | (alist-get 'emacs-lisp-mode consult-imenu-config) | ||
| 92 | :types)) | ||
| 93 | '("Setup")))) | ||
| 89 | 94 | ||
| 90 | ;;; Major mode | 95 | ;;; Major mode |
| 91 | 96 | ||