blob: b840f7e6b4f777a4c2b4df5c669390ea42fa3766 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
;;; git-auto-commit-mode.el --- Emacs Minor mode to automatically commit
;; Copyright (C) 2012 Tom Willemsen <tom@ryuslash.org>
;; Created: Jan 9, 2012
;; Version: 1
;; This file is not part of GNU Emacs.
;; This file is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this file; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
;; 02110-1301, USA.
;;; Code:
(defun git-auto-commit-relative-file-name (filename)
"Find the path to the filename relative to the git directory"
(let* ((git-dir
(replace-regexp-in-string
"\n+$" "" (shell-command-to-string
"git rev-parse --show-toplevel")))
(relative-file-name
(replace-regexp-in-string
"^/" "" (replace-regexp-in-string
git-dir "" filename))))
relative-file-name))
(defun git-auto-commit ()
"Commit `buffer-file-name` to git"
(let* ((filename (buffer-file-name))
(relative-filename
(git-auto-commit-relative-file-name filename)))
(shell-command
(concat "git add " filename
" && git commit -m '" relative-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)))
|
