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

selectrum: add preview to non-consult functions

Browse source
This commit is contained in:
Itai Y. Efrat 2021-05-22 01:21:10 +03:00
parent 188fc09d72
commit 89fd6b66b3
4 changed files with 33 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
modules/completion/selectrum/autoload/selectrum.el
View file

@ -91,3 +91,27 @@ Supports exporting consult-grep to wgrep, file to wdeired, and consult-location
('consult-location (let ((embark-after-export-hook #'occur-edit-mode))
(embark-export)))
(x (user-error "embark category %S doesn't support writable export" x)))))
;;;###autoload
(defun +selectrum/embark-preview ()
"Previews candidate in selectrum buffer, unless it's a consult command"
(interactive)
(unless (string-match-p "^consult" (symbol-name selectrum--last-command))
(print selectrum--last-command)
(save-selected-window
(let ((embark-quit-after-action nil))
(embark-default-action)))))
;;;###autoload
(defun +selectrum/next-candidate-preview ()
"Move to next candidate and preivew it"
(interactive)
(selectrum-next-candidate)
(+selectrum/embark-preview))
;;;###autoload
(defun +selectrum/previous-candidate-preview ()
"Move to previous candidate and preview it"
(interactive)
(selectrum-previous-candidate)
(+selectrum/embark-preview))