emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

bump: :completion vertico compat

Browse source 
iyefrat/all-the-icons-completion@4da28584a1 -> iyefrat/all-the-icons-completion@b08f053cee
minad/consult@ffaaf6da90 -> minad/consult@052399ed05
minad/marginalia@ccf573e214 -> minad/marginalia@2633b2dee2
minad/vertico@6f22ff1298 -> minad/vertico@b6b8420d29
oantolin/embark@5497a19eef -> oantolin/embark@3ffb27a833
oantolin/orderless@d09aab3795 -> oantolin/orderless@e678402671
tumashu/vertico-posframe@f57b170b43 -> tumashu/vertico-posframe@7da6d648ff
emacs-compat/compat@38280a7b54 -> emacs-compat/compat@7775c31857

---

consult--grep added support for searching in multiple directories, so we
can drop the advice in `doom--help-search`. The other changes just adapt
to upstream API changes.
This commit is contained in:
Itai Y. Efrat 2023-03-13 23:18:01 +02:00 • committed by Henrik Lissner
parent 3ce89731b6
commit e5dbd4e8b1
4 changed files with 18 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/completion/vertico/autoload/vertico.el
View file

@ -26,10 +26,10 @@
(if all-files "-uu ")
(unless recursive "--maxdepth 1 ")
"--null --line-buffered --color=never --max-columns=1000 "
"--path-separator / --smart-case --no-heading --line-number "
"--path-separator / --smart-case --no-heading "
"--with-filename --line-number --search-zip "
"--hidden -g !.git -g !.svn -g !.hg "
(mapconcat #'shell-quote-argument args " ")
" ."))
(mapconcat #'shell-quote-argument args " ")))
(prompt (if (stringp prompt) (string-trim prompt) "Search"))
(query (or query
(when (doom-region-active-p)
@ -54,7 +54,7 @@
"%")
:type perl)
consult-async-split-style 'perlalt))))))
(consult--grep prompt (consult--ripgrep-make-builder) directory query)))
(consult--grep prompt #'consult--ripgrep-make-builder directory query)))
;;;###autoload
(defun +vertico/project-search (&optional arg initial-query directory)
@ -225,9 +225,10 @@ targets."
(defun +vertico/consult-fd (&optional dir initial)
(interactive "P")
(if doom-projectile-fd-binary
(let* ((prompt-dir (consult--directory-prompt "Fd" dir))
(default-directory (cdr prompt-dir)))
(find-file (consult--find (car prompt-dir) (+vertico--consult--fd-make-builder) initial)))
(pcase-let* ((`(,prompt ,paths ,dir) (consult--directory-prompt "Fd" dir))
(default-directory dir)
(builder (consult--find-make-builder paths)))
(find-file (consult--find prompt builder initial)))
(consult-find dir initial)))
;;;###autoload