2012-01-09 23:58:28 +01:00
|
|
|
(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"
|
2012-01-10 00:08:10 +01:00
|
|
|
:lighter " ga"
|
2012-01-09 23:58:28 +01:00
|
|
|
(if git-auto-commit-mode
|
|
|
|
(add-hook 'after-save-hook 'git-auto-commit t t)
|
|
|
|
(remove-hook 'after-save-hook 'git-auto-commit t)))
|