djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove consult--with-orderless/consult--orderless-regexp-compiler

This commit is contained in:
David Morgan 2022-05-31 14:34:04 +01:00
parent dfe2e76d96
commit de70fb0364
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.emacs.d/lisp/init-minibuffer.el
View File

@ -373,19 +373,7 @@ DEFS is a plist associating completion categories to commands."
(let ((consult-buffer-sources '(consult--project-source-project-buffer
consult--project-source-project-file-recentf
consult--project-source-project-file-all)))
(consult-buffer)))
(defun consult--orderless-regexp-compiler (input type &rest _config)
(setq input (orderless-pattern-compiler input))
(cons
(mapcar (lambda (r) (consult--convert-regexp r type)) input)
(lambda (str) (orderless--highlight input str))))
(defun consult--with-orderless (&rest args)
(minibuffer-with-setup-hook
(lambda ()
(setq-local consult--regexp-compiler #'consult--orderless-regexp-compiler))
(apply args)))
(advice-add #'consult-ripgrep :around #'consult--with-orderless))
(consult-buffer))))
(use-package consult-flycheck)