From 4a8a7e027104b4f03fc40b37bf3affed31e19914 Mon Sep 17 00:00:00 2001 From: Thibaut Verron Date: Thu, 21 Nov 2019 13:02:03 +0100 Subject: [PATCH] git-auto-commit-mode.el --- git-auto-commit-mode.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/git-auto-commit-mode.el b/git-auto-commit-mode.el index 33ffa1a..9e12fab 100644 --- a/git-auto-commit-mode.el +++ b/git-auto-commit-mode.el @@ -75,6 +75,21 @@ is subject to its limitations." (const :tag "Off" nil))) (make-variable-buffer-local 'gac-debounce-interval) +(defcustom gac-default-message nil + "Default message for automatic commits. + +It can be: +- nil to use the default FILENAME +- a string which is used +- a function returning a string, called without argument in the + current buffer, the result being used as message +" + :tag "Default commit message" + :group 'git-auto-commit-mode + :type '(choice (string :tag "Commit message") + (const :tag "Default: FILENAME" nil) + (function :tag "Function"))) + (defun gac-relative-file-name (filename) "Find the path to FILENAME relative to the git directory." (let* ((git-dir @@ -123,7 +138,7 @@ STRING is the output line from PROC." Default to FILENAME." (let ((relative-filename (gac-relative-file-name filename))) (if (not gac-ask-for-summary-p) - relative-filename + (or gac-default-message relative-filename) (read-string "Summary: " nil nil relative-filename)))) (defun gac-commit (buffer)