[elpa] externals/agitate 27cdb6fd95 57/67: Improve agitate-vc-git-prompt-format-patch-single

[ELPA Syncer]

branch: externals/agitate
commit 27cdb6fd95ad88a10308214148dd805de6a64a76
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Improve agitate-vc-git-prompt-format-patch-single
---
 README.org |  5 ++++-
 agitate.el | 16 ++++++++++++++--
 2 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 16d3aa2e91..2daa6ebf16 100644
--- a/README.org
+++ b/README.org
@@ -155,7 +155,10 @@ think most of those are superfluous.  Less is more.
 
 #+findex: agitate-vc-git-prompt-format-patch-single
 + ~agitate-vc-git-prompt-format-patch-single~ :: Format patch for a
-  single =COMMIT=.  Prompt for =COMMIT= using minibuffer completion.
+  single =COMMIT=.  If in a log-view buffer, the =COMMIT= is the one
+  at point.  For the details of how that is determined, read the doc
+  string of ~agitate-log-view-kill-revision~.  If there is no such
+  commit at point, prompt for =COMMIT= using minibuffer completion.
   Output the patch file to the return value of the function
   ~vc-root-dir~.  Relevant except from the source code:
 
diff --git a/agitate.el b/agitate.el
index ca34d3170c..cddd7eb662 100644
--- a/agitate.el
+++ b/agitate.el
@@ -277,15 +277,27 @@ to those pertaining to the current file."
     (with-current-buffer (pop-to-buffer buf)
       (diff-mode))))
 
+(defun agitate--vc-git-format-patch-single-behaviour ()
+  "Help `agitate-vc-git-prompt-format-patch-single' with its COMMIT."
+  (if-let ((default-value (cadr (log-view-current-entry (point) t))))
+      default-value
+    (agitate--vc-git-get-hash-from-string (agitate--vc-git-commit-prompt))))
+
 ;;;###autoload
 (defun agitate-vc-git-prompt-format-patch-single (commit)
   "Format patch for a single COMMIT.
-Prompt for COMMIT using minibuffer completion.
+
+If in a log-view buffer, the COMMIT is the one at point.  For the
+details of how that is determined, read the doc string of
+`agitate-log-view-kill-revision'.
+
+If there is no such commit at point, prompt for COMMIT using
+minibuffer completion.
 
 Output the patch file to the return value of the function
 `vc-root-dir'."
   (interactive
-   (list (agitate--vc-git-get-hash-from-string 
(agitate--vc-git-commit-prompt))))
+   (list (agitate--vc-git-format-patch-single-behaviour)))
   ;; TODO 2022-09-27: Handle the output directory better.  Though I am
   ;; not sure how people work with those.  I normally use the root of
   ;; the current repo (and then clean it) or put everything in the