[nongnu] elpa/helm 5696da5e86 3/7: Avoid asking for overwrite at each turn in mcp

[ELPA Syncer]

branch: elpa/helm
commit 5696da5e86825c3ff064a9e0479567096f9fba9b
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Avoid asking for overwrite at each turn in mcp
    
    Use helm-read-answer.
---
 helm-files.el | 37 +++++++++++++++++++++++--------------
 1 file changed, 23 insertions(+), 14 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 0a8105f45a..989af7ab7f 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5992,7 +5992,7 @@ list."
                                   (message "No files found in file(s)"))
           :buffer "*helm find files in files*")))
 
-(defun helm-ff-mcp (_candidate)
+(cl-defun helm-ff-mcp (_candidate)
   "Copy the car of marked candidates to the remaining marked candidates.
 
 The car of marked should be a regular file and the rest of marked (cdr) should
@@ -6005,22 +6005,31 @@ be directories."
     (cl-assert (file-regular-p file) nil (format "Not a regular file `%s'" 
file))
     (cl-assert targets nil (format "No destination specified for file `%s'" 
file))
     (when targets
-      (cl-loop for dest in targets
+      (cl-loop with yes-for-all
+               for dest in targets
                for dest-file = (expand-file-name (helm-basename file) dest)
                for dir-ok = (file-accessible-directory-p dest)
-               for overwrite = (and dir-ok
-                                    (file-exists-p
-                                     (expand-file-name
-                                      (helm-basename file) dest)))
-               for skip = (and overwrite
-                               (null (y-or-n-p
-                                      (format
-                                       "File `%s' already-exists, overwrite? "
-                                       dest-file))))
+               for exists = (and dir-ok
+                                 (file-exists-p
+                                  (expand-file-name
+                                   (helm-basename file) dest)))
+               for overwrite = (or (null exists)
+                                   yes-for-all
+                                   (pcase (helm-read-answer
+                                           (format
+                                            "File `%s' already-exists, 
overwrite (y,n,!,q) ? "
+                                            dest-file)
+                                           '("y" "n" "!" "q"))
+                                     ("y" t)
+                                     ("n" nil)
+                                     ("!" (prog1 t
+                                            (setq yes-for-all t)))
+                                     ("q" (cl-return-from helm-ff-mcp
+                                            (message "Operation aborted")))))
                if dir-ok
-               do (if skip
-                      (cl-incf skipped)
-                    (push (list file (file-name-as-directory dest) overwrite) 
operations))
+               do (if overwrite
+                      (push (list file (file-name-as-directory dest) 
overwrite) operations)
+                    (cl-incf skipped))
                else do (cl-incf skipped))
       (async-start
        `(lambda ()