git-auto-commit-mode/git-auto-commit-mode.el

14 lines
490 B
EmacsLisp
Raw Normal View History

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)))