diff options
| author | David Morgan <djm_uk@protonmail.com> | 2022-05-18 14:07:01 +0100 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2022-05-18 14:07:01 +0100 |
| commit | 1d2b9d16f5ff92684da9b441c95702586d31ad08 (patch) | |
| tree | 463f14faf1a360d30de9ed18e680798fe18867f8 /.emacs.d/lisp/init-navigation.el | |
| parent | 6a8748d142e1383cf8d6b5bf6ed361491ab82e3b (diff) | |
| download | dotfiles-1d2b9d16f5ff92684da9b441c95702586d31ad08.tar.gz | |
Update affe config
Diffstat (limited to '.emacs.d/lisp/init-navigation.el')
| -rw-r--r-- | .emacs.d/lisp/init-navigation.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/.emacs.d/lisp/init-navigation.el b/.emacs.d/lisp/init-navigation.el index d3024aa..3525c9b 100644 --- a/.emacs.d/lisp/init-navigation.el +++ b/.emacs.d/lisp/init-navigation.el @@ -77,8 +77,10 @@ char." :config (setq affe-grep-command (replace-regexp-in-string "\\." "-Suu ." affe-grep-command)) ;; Configure Orderless - (setq affe-regexp-function #'orderless-pattern-compiler - affe-highlight-function #'orderless--highlight) + (defun affe-orderless-regexp-compiler (input _type _ignorecase) + (setq input (orderless-pattern-compiler input)) + (cons input (lambda (str) (orderless--highlight input str)))) + (setq affe-regexp-compiler #'affe-orderless-regexp-compiler) ;; Manual preview key for `affe-grep' (consult-customize affe-grep :preview-key (kbd "M-.")) (defun my/affe-grep-symbol-at-point (&optional dir initial) |