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

fix(vertico): let C-c C-e run existing embark-after-export-hook

Browse source 
Previously, +vertico/embark-export-write doesn't let embark execute
other added hooks in embark-after-export-hook.

Add the edit command at the end of the list because other hooks may
assume that the buffer isn't yet editable.
This commit is contained in:
Daanturo 2022-01-30 12:22:55 +07:00 • committed by Henrik Lissner
parent 9cfd798076
commit dacf38bad3
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -95,16 +95,16 @@ Supports exporting consult-grep to wgrep, file to wdeired, and consult-location
(interactive)
(require 'embark)
(require 'wgrep)
(let* ((edit-command
(pcase-let ((`(,type . ,candidates)
(run-hook-with-args-until-success 'embark-candidate-collectors)))
(pcase type
('consult-grep (let ((embark-after-export-hook #'wgrep-change-to-wgrep-mode))
(embark-export)))
('file (let ((embark-after-export-hook #'wdired-change-to-wdired-mode))
(embark-export)))
('consult-location (let ((embark-after-export-hook #'occur-edit-mode))
(embark-export)))
('consult-grep #'wgrep-change-to-wgrep-mode)
('file #'wdired-change-to-wdired-mode)
('consult-location #'occur-edit-mode)
(x (user-error "embark category %S doesn't support writable export" x)))))
(embark-after-export-hook `(,@embark-after-export-hook ,edit-command)))
(embark-export)))
;;;###autoload
(defun +vertico/embark-preview ()