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

nit(vertico): fix whitespace

Browse source
This commit is contained in:
Itai Y. Efrat 2021-08-17 22:06:22 +03:00
parent 934ad07f23
commit 1f3ac1eb77
2 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,14 +41,14 @@ orderless."
(let* ((project-root (or (doom-project-root) default-directory)) (let* ((project-root (or (doom-project-root) default-directory))
(directory (or in project-root)) (directory (or in project-root))
(consult-ripgrep-args (consult-ripgrep-args
(concat "rg " (concat "rg "
(if all-files "-uu ") (if all-files "-uu ")
(unless recursive "--maxdepth 1 ") (unless recursive "--maxdepth 1 ")
"--line-buffered --color=never --max-columns=1000 " "--line-buffered --color=never --max-columns=1000 "
"--path-separator / --smart-case --no-heading --line-number " "--path-separator / --smart-case --no-heading --line-number "
"--hidden -g !.git " "--hidden -g !.git "
(mapconcat #'shell-quote-argument args " ") (mapconcat #'shell-quote-argument args " ")
".")) "."))
(prompt (if (stringp prompt) (string-trim prompt) "Search")) (prompt (if (stringp prompt) (string-trim prompt) "Search"))
(query (or query (query (or query
(when (doom-region-active-p) (when (doom-region-active-p)
@ -257,7 +257,7 @@ targets."
(let ((idx vertico--index)) (let ((idx vertico--index))
(unless (get-text-property 0 'consult--crm-selected (nth vertico--index vertico--candidates)) (unless (get-text-property 0 'consult--crm-selected (nth vertico--index vertico--candidates))
(setq idx (1+ idx))) (setq idx (1+ idx)))
(run-at-time 0 nil (cmd! (vertico--goto idx) (vertico--exhibit)))) (run-at-time 0 nil (cmd! (vertico--goto idx) (vertico--exhibit))))
(vertico-exit)) (vertico-exit))
;;;###autoload ;;;###autoload
@ -284,10 +284,10 @@ targets."
(defun +vertico/consult-fd (&optional dir initial) (defun +vertico/consult-fd (&optional dir initial)
(interactive "P") (interactive "P")
(if doom-projectile-fd-binary (if doom-projectile-fd-binary
(let* ((prompt-dir (consult--directory-prompt "Fd" dir)) (let* ((prompt-dir (consult--directory-prompt "Fd" dir))
(default-directory (cdr prompt-dir))) (default-directory (cdr prompt-dir)))
(find-file (consult--find (car prompt-dir) #'+vertico--consult--fd-builder initial))) (find-file (consult--find (car prompt-dir) #'+vertico--consult--fd-builder initial)))
(consult-find dir initial))) (consult-find dir initial)))
;;;###autoload ;;;###autoload
(defun +vertico-embark-vertico-indicator () (defun +vertico-embark-vertico-indicator ()

2
modules/completion/vertico/config.el
View file

@ -105,7 +105,7 @@ overrides `completion-styles' during company completion sessions.")
(format "%s --color=never -i -H -E .git --regex %s" (format "%s --color=never -i -H -E .git --regex %s"
doom-projectile-fd-binary doom-projectile-fd-binary
(if IS-WINDOWS "--path-separator=/" "")) (if IS-WINDOWS "--path-separator=/" ""))
consult-find-args)) consult-find-args))
(consult-customize (consult-customize
consult-ripgrep consult-git-grep consult-grep consult-ripgrep consult-git-grep consult-grep