81 lines
2.4 KiB
EmacsLisp
81 lines
2.4 KiB
EmacsLisp
;;; git.el --- magit and stuff. -*- lexical-binding: t; -*-
|
|
|
|
;; Time-stamp: <2020-04-23T15:31:21+0200>
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'basics/package-management)
|
|
(require 'basics/global-variables)
|
|
|
|
;; Git integration.
|
|
(use-package git-commit
|
|
:defer 2
|
|
:config (defun my/set-git-commit-fill-column ()
|
|
(setq-local fill-column 72))
|
|
:hook (git-commit-mode . my/set-git-commit-fill-column))
|
|
|
|
(unless slow-computer
|
|
(use-package magit
|
|
:custom
|
|
(magit-diff-refine-hunk 'all) ; Show word-granularity differences.
|
|
|
|
:config
|
|
;; <https://github.com/magit/magit/issues/4034>
|
|
(defun my/magit-display-buffer (buffer)
|
|
"Workaround to ensure that BUFFER is split vertically if necessary."
|
|
(if (and git-commit-mode
|
|
(with-current-buffer buffer
|
|
(derived-mode-p 'magit-diff-mode)))
|
|
(purpose--action-function buffer '((display-buffer-pop-up-window
|
|
display-buffer-use-some-window
|
|
display-buffer-below-selected)
|
|
(inhibit-same-window . t))))
|
|
(magit-display-buffer-traditional buffer))
|
|
(setq magit-display-buffer-function #'my/magit-display-buffer)
|
|
|
|
:bind
|
|
("C-x g" . nil) ; Disable default.
|
|
("C-c g" . magit-status)
|
|
("C-c M-g" . magit-dispatch)
|
|
|
|
:hook
|
|
(after-save . magit-after-save-refresh-status)
|
|
)
|
|
|
|
;; Use libgit rather than git.
|
|
(use-package magit-libgit)
|
|
|
|
;; Show TODOs in magit-status.
|
|
(use-package magit-todos
|
|
:after magit
|
|
|
|
:init
|
|
;; Mark variables as safe. This prevents prompts when using .dir-locals.el.
|
|
(put 'magit-todos-depth 'safe-local-variable #'integerp)
|
|
|
|
:hook
|
|
(magit-mode . magit-todos-mode)
|
|
)
|
|
|
|
;; Work with Git forges from Magit.
|
|
(use-package forge
|
|
:after magit
|
|
|
|
:config (add-to-list 'forge-alist
|
|
'("schlomp.space" "schlomp.space/api/v1"
|
|
"schlomp.space" forge-gitea-repository))
|
|
:hook (prog-mode . forge-bug-reference-setup))
|
|
) ; unless slow-computer.
|
|
|
|
;; Show VC status in fringe.
|
|
(use-package git-gutter
|
|
:diminish git-gutter-mode
|
|
:bind (("C-c G" . git-gutter-mode)
|
|
("C-c M-G" . git-gutter:popup-hunk)) ; Popup diff hunk.
|
|
:hook (find-file . git-gutter-mode)) ; Maybe slows down opening?
|
|
|
|
(provide 'programming/git)
|
|
;;; git.el ends here
|