[RFC PATCH 03/14] am: Extract git-am logic to dedicated function

[Kyle Meyer <kyle@kyleam.com>]

Another command will need the same code.
---
 piem.el | 35 +++++++++++++++++++++--------------
 1 file changed, 21 insertions(+), 14 deletions(-)

diff --git a/piem.el b/piem.el
index ac81c217..4b0457a2 100644
--- a/piem.el
+++ b/piem.el
@@ -913,6 +913,26 @@ (defun piem-am--read-worktree (coderepo branch)
       (user-error "Worktree directory already exists"))
     dir))
 
+(defun piem--git-am (mbox format dir)
+  (setq dir (or dir default-directory))
+  (let ((interactivep (eq (car-safe mbox) :interactive))
+        (args (cons (concat "--patch-format=" (or format "mboxrd"))
+                    piem-am-args)))
+    (when interactivep
+      (setq mbox (cdr mbox)))
+    (if (bufferp mbox)
+        (unwind-protect
+            (apply #'piem-process-call-with-buffer-input
+                   dir mbox piem-git-executable "am" args)
+          (when interactivep
+            (kill-buffer mbox)))
+      (apply #'piem-process-call dir piem-git-executable "am"
+             (append args (list mbox)))))
+  (if (and piem-use-magit
+           (fboundp 'magit-status-setup-buffer))
+      (magit-status-setup-buffer dir)
+    (dired dir)))
+
 ;;;###autoload
 (defun piem-am (mbox &optional format info coderepo toggle-worktree)
   "Feed an am-ready mbox to `git am'.
@@ -975,20 +995,7 @@ (defun piem-am (mbox &optional format info coderepo toggle-worktree)
                      (and use-worktree (list am-directory))
                      (and (not (string-blank-p base))
                           (list base)))))
-    (let ((args (cons (concat "--patch-format=" format)
-                      piem-am-args)))
-      (if (bufferp mbox)
-          (unwind-protect
-              (apply #'piem-process-call-with-buffer-input
-                     am-directory mbox piem-git-executable "am" args)
-            (when interactivep
-              (kill-buffer mbox)))
-        (apply #'piem-process-call am-directory piem-git-executable "am"
-               (append args (list mbox)))))
-    (if (and piem-use-magit
-             (fboundp 'magit-status-setup-buffer))
-        (magit-status-setup-buffer am-directory)
-      (dired am-directory))))
+    (piem--git-am mbox format am-directory)))
 
 (defvar-local piem-edit-patch--coderepo nil)
 (defvar-local piem-edit-patch--format nil)
-- 
2.34.0