[elpa] master 10755b2 239/399: swiper.el (swiper-isearch-toggle): Add

[Oleh Krehel]

branch: master
commit 10755b2df561125c06ff03cf0d0e0046a47d228b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    swiper.el (swiper-isearch-toggle): Add
    
    Fixes #2061
---
 swiper.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/swiper.el b/swiper.el
index 204677f..40fb1b9 100644
--- a/swiper.el
+++ b/swiper.el
@@ -1397,6 +1397,24 @@ When not running `swiper-isearch' already, start it."
 
 (ivy-set-occur 'swiper-isearch 'swiper-occur)
 
+(defun swiper-isearch-toggle ()
+  "Two-way toggle between `swiper-isearch' and isearch."
+  (interactive)
+  (if isearch-mode
+      (let ((query (if isearch-regexp
+                       isearch-string
+                     (regexp-quote isearch-string))))
+        (isearch-exit)
+        (goto-char (match-beginning 0))
+        (swiper-isearch query))
+    (ivy-exit-with-action
+     (lambda (_)
+       (when (looking-back ivy--old-re (line-beginning-position))
+         (goto-char (match-beginning 0)))
+       (isearch-mode t)
+       (unless (string= ivy-text "")
+         (isearch-yank-string ivy-text))))))
+
 (provide 'swiper)
 
 ;;; swiper.el ends here