[elpa] externals/agitate 417539dc73 03/67: Add agitate-log-edit-insert-file-name command

[ELPA Syncer]

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

    Add agitate-log-edit-insert-file-name command
---
 agitate.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/agitate.el b/agitate.el
index 35877a9102..bb68c6cbf9 100644
--- a/agitate.el
+++ b/agitate.el
@@ -31,9 +31,36 @@
 
 ;;; Code:
 
+(require 'log-edit)
+
 (defgroup agitate ()
   "Work-in-progress."
   :group 'vc)
 
+;;;; Commands for log-edit (commit messages)
+
+(defun agitate--log-edit-extract-file (with-file-extension)
+  "Return file from `log-edit-files' without or WITH-FILE-EXTENSION."
+  (when-let* ((files (log-edit-files))
+              (file (if (length> files 1)
+                        (completing-read "Derive shortname from: " files nil t)
+                    (car files)))
+              (name (file-name-nondirectory file)))
+    (if with-file-extension
+        file
+      (file-name-sans-extension file))))
+
+;;;###autoload
+(defun agitate-log-edit-insert-file-name (&optional with-file-extension)
+  "Insert at point file name sans directory from `log-edit-files'.
+
+If multiple files are involved, prompt with completion for one
+among them.
+
+With optional prefix argument WITH-FILE-EXTENSION, include the
+file extension.  Else omit it."
+  (interactive "P" log-edit-mode)
+  (insert (format "%s: " (agitate--log-edit-extract-file 
with-file-extension))))
+
 (provide 'agitate)
 ;;; agitate.el ends here