[elpa] master 3f870f5 028/187: Show ops in progress `dired-async-in-process-face'

[Michael Albinus]

branch: master
commit 3f870f5f5402ae10d20601bea93243ffe5e82ceb
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>

    Show ops in progress `dired-async-in-process-face'
---
 dired-async.el |   26 ++++++++++++++++++++++++--
 1 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/dired-async.el b/dired-async.el
index 930d74c..b698911 100644
--- a/dired-async.el
+++ b/dired-async.el
@@ -88,6 +88,22 @@
   :type 'boolean
   :group 'dired-async)
 
+(defface dired-async-in-process-face
+  '((t (:background "yellow")))
+  "Face used to show that an asynchronous operation is in progress."
+  :group 'dired-async)
+
+(defun dired-async-highlight-file (file)
+  (save-excursion
+    (dired-goto-file file)
+    (let ((overlay (make-overlay (line-beginning-position)
+                                 (line-end-position))))
+      (overlay-put overlay 'face 'dired-async-in-process-face)
+      overlay)))
+
+(defun dired-async-remove-highlight (overlay)
+  (delete-overlay overlay))
+
 (defun dired-after-file-create (to actual-marker-char &optional overwrite)
   (if overwrite
       ;; If we get here, file-creator hasn't been aborted
@@ -118,8 +134,12 @@
         (if (and dired-async-use-native-commands
                  (not (file-remote-p from))
                  (not (file-remote-p to)))
-            (async-start-process "cp" (executable-find "cp") callback
-                                 (if preserve-time "-pR" "-R") from to)
+            (let ((args (list "-fR" from to)))
+              (if preserve-time
+                  (setq args (cons "-p" args)))
+              (unless ok-flag
+                (setq args (cons "-n" args)))
+              (async-start-process "cp" (executable-find "cp") callback args))
           (async-start (apply-partially #'copy-directory from to preserve-time)
                        callback))
       ;; Not a directory.
@@ -134,6 +154,8 @@
                 (let ((args (list "-f" from to)))
                   (if preserve-time
                       (setq args (cons "-p" args)))
+                  (unless ok-flag
+                    (setq args (cons "-n" args)))
                   (apply #'async-start-process "cp" (executable-find "cp")
                          callback args))
               (async-start (apply-partially #'copy-file from to ok-flag