branch: master
commit d7a1fdadfaf2ff89ecdd3ea9195f04cb2f8b8c9e
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
swiper.el (swiper-all): "M-q" calls query-replace
* swiper.el (swiper-all-query-replace): New defun.
(swiper-all-map): New keymap.
(swiper-all): Update prompt, use `swiper-all-map'.
Fixes #623
---
swiper.el | 32 ++++++++++++++++++++++++++++++--
1 file changed, 30 insertions(+), 2 deletions(-)
diff --git a/swiper.el b/swiper.el
index 3a96907..ca84b26 100644
--- a/swiper.el
+++ b/swiper.el
@@ -114,6 +114,28 @@
(perform-replace from to
t t nil)))))))
+(defun swiper-all-query-replace ()
+ "Start `query-replace' with string to replace from last search string."
+ (interactive)
+ (if (null (window-minibuffer-p))
+ (user-error
+ "Should only be called in the minibuffer through `swiper-all-map'")
+ (let* ((enable-recursive-minibuffers t)
+ (from (ivy--regex ivy-text))
+ (to (query-replace-read-to from "Query replace" t)))
+ (swiper--cleanup)
+ (ivy-exit-with-action
+ (lambda (_)
+ (let ((wnd-conf (current-window-configuration))
+ (inhibit-message t))
+ (unwind-protect
+ (dolist (cand ivy--old-cands)
+ (let ((buffer (get-text-property 0 'buffer cand)))
+ (switch-to-buffer buffer)
+ (goto-char (point-min))
+ (perform-replace from to t t nil)))
+ (set-window-configuration wnd-conf))))))))
+
(defvar avy-background)
(defvar avy-all-windows)
(defvar avy-style)
@@ -640,7 +662,6 @@ WND, when specified is the window."
re
regexp-search-ring-max)))))
-;; (define-key isearch-mode-map (kbd "C-o") 'swiper-from-isearch)
(defun swiper-from-isearch ()
"Invoke `swiper' from isearch."
(interactive)
@@ -779,16 +800,23 @@ Run `swiper' for those buffers."
cands
"\n")))
+(defvar swiper-all-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "M-q") 'swiper-all-query-replace)
+ map)
+ "Keymap for `swiper-all'.")
+
(defun swiper-all ()
"Run `swiper' for all opened buffers."
(interactive)
(let ((ivy-format-function #'swiper--all-format-function))
- (ivy-read "Swiper: " 'swiper-all-function
+ (ivy-read "swiper-all: " 'swiper-all-function
:action 'swiper-all-action
:unwind #'swiper--cleanup
:update-fn (lambda ()
(swiper-all-action ivy--current))
:dynamic-collection t
+ :keymap swiper-all-map
:caller 'swiper-multi)))
(defun swiper-all-action (x)
