blob: 0700e678995b36cb01ddd309b8ec79038587cf03 (
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
|
(require 'git-annex)
(setq git-annex-commit nil)
(require 'magit)
(defun km/magit-auto-commit ()
(interactive)
(save-window-excursion
(magit-with-refresh
(shell-command "git --no-pager commit --all --message=auto"))))
(define-key magit-status-mode-map (kbd "C-c C-u") 'km/magit-auto-commit)
;; http://whattheemacsd.com/setup-magit.el-01.html
(defadvice magit-status (around magit-fullscreen activate)
(window-configuration-to-register :magit-fullscreen)
ad-do-it
(delete-other-windows))
(defadvice magit-mode-quit-window (around magit-restore-screen activate)
ad-do-it
(jump-to-register :magit-fullscreen))
;; http://whattheemacsd.com/setup-magit.el-05.html
(defun km/magit-just-amend ()
(interactive)
(save-window-excursion
(magit-with-refresh
(shell-command "git --no-pager commit --amend --reuse-message=HEAD"))))
(define-key magit-status-mode-map (kbd "C-c C-a") 'km/magit-just-amend)
|