[elpa] externals/ivy-hydra 95d557b 070/395: swiper.el (swiper-query-replace): Add a more straightforward default

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 95d557babbb4996b50ee8ea59609463ccc1f4553
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    swiper.el (swiper-query-replace): Add a more straightforward default
    
    Example buffer contents with symlinks:
    
        .Xmodmap -> git/home/.Xmodmap
        .gitignore -> git/home/.gitignore
        .gitconfig -> git/home/.gitconfig
    
    We search for "[^\n ]+\( -> \).*". This regex has 3 groups: the link,
    ->, and where it points to.
    
    Note that we're using a relatively new `ivy--regex' feature, where an
    explicit group "\( -> \)" acts as a splitter between the other two
    implicit groups.
    
        (ivy--regex "[^\n ]+\\( -> \\).*")
        ;; => "\\([^\n ]+\\)\\( -> \\).*?\\(.*\\)"
    
    Since there are 3 groups, a reasonable default for replacement is "\1
    \2 \3".  In the end, we likely want to use "\3 \1"; the default serves
    to remind us of the sytax.
    
    The second default is: \,(concat \1 " " \2 " " \3).
    It's a little more cumbersome, but it's Lisp! So we could use something 
like:
    
        \,(concat \1 " " \2 " " (expand-file-name \3))
    
    Which I think may be powerful in some situations.
---
 swiper.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/swiper.el b/swiper.el
index 1635585..426dce9 100644
--- a/swiper.el
+++ b/swiper.el
@@ -197,13 +197,17 @@ Treated as non-nil when searching backwards."
          (unwind-protect
               (let* ((enable-recursive-minibuffers t)
                      (from ivy--old-re)
+                     (groups (number-sequence 1 ivy--subexps))
                      (default
-                      (format "\\,(concat %s)"
-                              (if (<= ivy--subexps 1)
-                                  "\\&"
-                                (mapconcat (lambda (i) (format "\\%d" i))
-                                           (number-sequence 1 ivy--subexps)
-                                           " \" \" "))))
+                      (list
+                       (mapconcat (lambda (i) (format "\\%d" i)) groups " ")
+                       (format "\\,(concat %s)"
+                               (if (<= ivy--subexps 1)
+                                   "\\&"
+                                 (mapconcat
+                                  (lambda (i) (format "\\%d" i))
+                                  groups
+                                  " \" \" ")))))
                      (to
                       (query-replace-compile-replacement
                        (ivy-read