blob: 5d2b840d4e993058b3cd6879ac39460ae84a6d21 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(defun git-auto-commit ()
"Commit `buffer-file-name` to git"
(let ((filename (buffer-file-name)))
(shell-command (concat "git add " filename
" && git commit -m '" filename "'"))))
(define-minor-mode git-auto-commit-mode
"Automatically commit any changes made when saving with this mode
turned on"
:lighter " ga"
(if git-auto-commit-mode
(add-hook 'after-save-hook 'git-auto-commit t t)
(remove-hook 'after-save-hook 'git-auto-commit t)))
|
