[RFC PATCH 13/14] am: Move functionality under a dedicated transient

[Kyle Meyer <kyle@kyleam.com>]

This provides a place to bind piem-am-extend (and perhaps other
things, like piem-edit).  At least for my use, I expect piem-am-create
to the dominant variant, so make the prefix default to calling that
without showing the popup.
---
 piem.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/piem.el b/piem.el
index 73e331cc..2b1d3095 100644
--- a/piem.el
+++ b/piem.el
@@ -1031,6 +1031,16 @@ (defun piem-am-extend (mbox &optional format coderepo toggle-worktree)
       (user-error "Worktree can't be created with coderepo's current branch")))
     (piem--git-am mbox format am-directory)))
 
+;;;###autoload (autoload 'piem-am "piem" nil t)
+(transient-define-prefix piem-am (&optional transient)
+  "Feed an am-ready mbox to `git am'."
+  [[("a" "create new branch" piem-am-create)
+    ("A" "extend existing branch" piem-am-extend)]]
+  (interactive "P")
+  (if transient
+      (transient-setup 'piem-am)
+    (call-interactively #'piem-am-create)))
+
 \f
 ;;;;; Patch editing
 
@@ -1069,7 +1079,7 @@ (define-derived-mode piem-edit-patch-mode text-mode "piem-edit-patch"
 ;;;###autoload (autoload 'piem-dispatch "piem" nil t)
 (transient-define-prefix piem-dispatch ()
   "Invoke a piem command."
-  [[("a" "apply patch" piem-am-create)
+  [[("a" "apply patch" piem-am)
     ("b" "call b4-am" piem-b4-am)]
    [("i" "inject thread into maildir" piem-inject-thread-into-maildir)
     ("l" "copy public-inbox link" piem-copy-mid-url)]
-- 
2.34.0