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

selectrum: generalize +selectrum/embark-wgrep

Browse source 
now tries to open a writable export of the same vein.
add exports to `wdired` from `find-file` and `occur-edit` from `consult-line`.
This commit is contained in:
Itai Y. Efrat 2021-05-21 13:19:52 +03:00
parent 85be33556b
commit 23a63ba5c4
4 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -75,13 +75,19 @@ If ARG (universal argument), include all files, even hidden or compressed ones."
(consult-line (thing-at-point 'symbol)))
;;;###autoload
(defun +selectrum/embark-wgrep ()
"Invoke a wgrep buffer on the current selectrum results, if supported."
(defun +selectrum/embark-export-write ()
"Export the current selectrum results to a writable buffer if possible.
Supports exporting consult-grep to wgrep, file to wdeired, and consult-location to occur-edit"
(interactive)
(require 'wgrep)
(pcase-let ((`(,type . ,candidates)
(run-hook-with-args-until-success 'embark-candidate-collectors)))
(if (not (eq type 'consult-grep))
(user-error "embark category %S doesn't support wgrep" type)
(let ((embark-after-export-hook #'wgrep-change-to-wgrep-mode))
(embark-export)))))
(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)))
(x (user-error "embark category %S doesn't support writable export" x)))))