git-auto-commit-mode.el

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)