contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[magit] update advice

This commit is contained in:
contrapunctus 2021-08-04 14:21:55 +05:30
parent 2427f2b4d1
commit 418596c895
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.org
View File

@ -2290,20 +2290,14 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
("C" . magit-commit))
:commands magit-status
:hook
(magit-mode . visual-line-mode)
(magit-post-stage . (lambda () (recenter)))
:config
(defadvice magit-section-toggle
(after magit-section-toggle-recenter activate) (recenter 3))
(ad-activate 'magit-section-toggle)
(defadvice magit-unstage-item
(after magit-unstage-item-move) (next-line))
(ad-activate 'magit-unstage-item)
(defadvice magit-goto-next-section
(after magit-next-section-recenter activate) (recenter 3))
(ad-activate 'magit-goto-next-section)
(defadvice magit-goto-previous-section
(after magit-previous-section-recenter activate) (recenter 3))
(ad-activate 'magit-goto-previous-section))
(cl-loop for symbol in '(magit-section-toggle
magit-section-forward
magit-section-backward)
do (advice-add symbol :after (lambda () (recenter 3))))
(advice-add 'magit-unstage-item :after (next-line)))
#+END_SRC
#+BEGIN_SRC emacs-lisp
(use-package git-commit