blob: 65943d3d40843d408d61dab98c518a53755019a8 (
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
|
(require-package 'magit)
(require-package 'git-commit-mode)
(require-package 'git-annex)
(require 'git-annex)
(setq git-annex-commit nil)
(key-chord-define-global ",g" 'magit-status)
(defun km/magit-auto-commit ()
"Commit all changes with \"auto\" commit message.
Useful for non-source code repos (e.g., Org mode note files)."
(interactive)
(magit-run-git "commit" "--all" "--message=auto"))
(defun km/magit-push-all ()
"Push all branches."
(interactive)
(let ((remote (magit-read-remote "Remote")))
(magit-run-git-async "push" "-v" remote "--all")))
(eval-after-load 'magit
'(progn
(magit-key-mode-insert-action 'committing
"u" "Auto commit" 'km/magit-auto-commit)
(magit-key-mode-insert-action 'pushing
"a" "Push all" 'km/magit-push-all)
(diminish 'magit-auto-revert-mode)))
;; http://whattheemacsd.com/setup-magit.el-01.html
(defadvice magit-status (around magit-fullscreen activate)
ad-do-it
(delete-other-windows))
(setq magit-restore-window-configuration t
magit-default-tracking-name-function 'magit-default-tracking-name-branch-only
magit-completing-read-function 'magit-ido-completing-read
magit-log-show-margin nil)
(setq vc-follow-symlinks t)
(provide 'init-git)
|