14 lines
489 B
EmacsLisp
14 lines
489 B
EmacsLisp
|
(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)))
|