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

feat(vertico): better crm interface

Browse source
This commit is contained in:
Itai Y. Efrat 2021-07-31 10:43:00 +03:00
parent 099a4ac8ff
commit 4c3c027a96
3 changed files with 30 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -237,3 +237,20 @@ targets."
(if (cdr targets) "…" "")))
(if prefix (lookup-key keymap prefix) keymap)
nil nil t))))
;;;###autoload
(defun +vertico/crm-select ()
"Enter candidate in `consult-completing-read-multiple'"
(interactive)
(let ((idx vertico--index))
(unless (get-text-property 0 'consult--crm-selected (nth vertico--index vertico--candidates))
(setq idx (1+ idx)))
(run-at-time 0 nil (cmd! (vertico--goto idx) (vertico--exhibit))))
(vertico-exit))
;;;###autoload
(defun +vertico/crm-exit ()
"Enter candidate in `consult-completing-read-multiple'"
(interactive)
(run-at-time 0 nil #'vertico-exit)
(vertico-exit))