[elpa] externals/mpdired b869838bd3 082/133: custom message when adding multiple URI

[ELPA Syncer]

branch: externals/mpdired
commit b869838bd3bd1c2dab853a257d1d6ed93d31a06a
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Manuel Giraud <manuel@ledu-giraud.fr>

    custom message when adding multiple URI
---
 mpdired.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index f9455eff52..b083ee94e8 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -753,13 +753,23 @@
       (mpdired-add-internal uri)
       (mpdired-next-line))))
 
+(defun mpdired--build-add-message (uris)
+  (let ((n (length uris)))
+    (cond ((= n 1) (format "Adding %s..." (car uris)))
+         ((= n 2)
+          (format "Adding %s and %s..." (car uris) (cadr uris)))
+         ((> n 2)
+          (format "Adding %s, %s and %d others..."
+                  (car uris) (cadr uris) (- n 2))))))
+
 (defun mpdired-add ()
   (interactive)
   (let* ((marked (mpdired--collect-marked ?*))
         (uris (mapcar 'cdr marked)))
-    (if uris
-       (mpdired-add-internal uris)
-      (mpdired-add-at-point))))
+    (cond (uris
+          (mpdired--append-message (mpdired--build-add-message uris))
+          (mpdired-add-internal uris))
+         (t (mpdired-add-at-point)))))
 
 (defun mpdired-deleteid-at-point ()
   (let ((id (get-text-property (mpdired--bol) 'id)))