diff options
| author | Case Duckworth | 2022-01-14 21:03:36 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-14 21:03:36 -0600 |
| commit | 0495456fb904bf291a71ff87d59a5dda5d0c298d (patch) | |
| tree | 3bf15e38022280362091cd699ce8da21d2a2a27a /lisp/+init.el | |
| parent | Merge branch 'main' of https://tildegit.org/acdw/emacs (diff) | |
| download | emacs-0495456fb904bf291a71ff87d59a5dda5d0c298d.tar.gz emacs-0495456fb904bf291a71ff87d59a5dda5d0c298d.zip | |
Ch ch ch changes
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 | ||