[nongnu] elpa/git-commit f53ddf3 1/3: magit-dired-am-apply-patches: New command

[ELPA Syncer]

branch: elpa/git-commit
commit f53ddf3c313834cb222e87341e47236dccc93317
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-dired-am-apply-patches: New command
    
    Closes #4094.
---
 Documentation/RelNotes/3.3.0.org |  3 +++
 lisp/magit-extras.el             | 12 ++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/Documentation/RelNotes/3.3.0.org b/Documentation/RelNotes/3.3.0.org
index 2b30741..6fe14dd 100644
--- a/Documentation/RelNotes/3.3.0.org
+++ b/Documentation/RelNotes/3.3.0.org
@@ -26,6 +26,9 @@
 - A few existing commands got a new or better binding in
   ~magit-dispatch~ and/or ~magit-mode-map~.
 
+- Added new command ~magit-dired-am-apply-patches~ for use in Dired.
+  #4094.
+
 ** Fixes since v3.2.0
 
 - Make ~magit-branch-remote-head~ and ~magit-branch-current~ fall back
diff --git a/lisp/magit-extras.el b/lisp/magit-extras.el
index d621298..07639ad 100644
--- a/lisp/magit-extras.el
+++ b/lisp/magit-extras.el
@@ -197,6 +197,18 @@ is no file at point, then instead visit 
`default-directory'."
     (magit--not-inside-repository-error)))
 
 ;;;###autoload
+(defun magit-dired-am-apply-patches (repo &optional arg)
+  "In Dired, apply the marked (or next ARG) files as patches.
+If inside a repository, then apply in that.  Otherwise prompt
+for a repository."
+  (interactive (list (or (magit-toplevel)
+                         (magit-read-repository t))
+                     current-prefix-arg))
+  (let ((files (dired-get-marked-files nil arg nil nil t)))
+    (magit-status-setup-buffer repo)
+    (magit-am-apply-patches files)))
+
+;;;###autoload
 (defun magit-do-async-shell-command (file)
   "Open FILE with `dired-do-async-shell-command'.
 Interactively, open the file at point."