mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
88 lines
4.2 KiB
EmacsLisp
88 lines
4.2 KiB
EmacsLisp
;; *** Magit
|
|
|
|
;; Not much to say about Magit
|
|
(use-package magit
|
|
:ensure t
|
|
:config
|
|
|
|
(defun tvd-magit-status ()
|
|
"Always call `magit-status' with prefix arg."
|
|
(interactive)
|
|
(let ((current-prefix-arg t))
|
|
(call-interactively 'magit-status)))
|
|
|
|
;; (with-eval-after-load 'info
|
|
;; (info-initialize)
|
|
;; (add-to-list 'Info-directory-list
|
|
;; (expand-file-name (concat "~/.emacs.d/lisp/magit-"
|
|
;; tvd-magit-revision
|
|
;; "/Documentation/"))))
|
|
(setq magit-view-git-manual-method 'woman)
|
|
|
|
(defalias 'git 'magit-status)
|
|
(defalias 'gitlog 'magit-log-buffer-file)
|
|
|
|
;; configure magit
|
|
(with-eval-after-load 'magit
|
|
(dolist (dir (list (expand-file-name "~/D/github")
|
|
(expand-file-name "~/fits/git")
|
|
(expand-file-name "~/dev/git")))
|
|
(when (file-exists-p dir)
|
|
(add-to-list 'magit-repository-directories (cons dir 1))))
|
|
(setq magit-completing-read-function 'magit-ido-completing-read)
|
|
|
|
;; use timestamps in log buffers
|
|
(setq magit-log-margin '(t "%Y-%m-%d " magit-log-margin-width t 18))
|
|
|
|
;; navigate magit buffers as I do everywhere else, I do not automatically
|
|
;; cycle/decycle though, the magit defaults are absolutely sufficient.
|
|
(define-key magit-mode-map (kbd "<C-down>") 'magit-section-forward-sibling)
|
|
(define-key magit-mode-map (kbd "<C-up>") 'magit-section-backward-sibling)
|
|
(define-key magit-mode-map (kbd "<delete>") 'magit-delete-thing))
|
|
|
|
;; one thing though: on startup it bitches about git version, but it
|
|
;; works nevertheless. So I disable this specific warning.
|
|
|
|
(defun tvd-ignore-magit-warnings-if-any ()
|
|
(interactive)
|
|
(when (get-buffer "*Warnings*")
|
|
(with-current-buffer "*Warnings*"
|
|
(goto-char (point-min))
|
|
(when (re-search-forward "Magit requires Git >=")
|
|
(kill-buffer-and-window)))))
|
|
|
|
(add-hook 'after-init-hook 'tvd-ignore-magit-warnings-if-any t)
|
|
|
|
;; now, THIS is the pure genius me: hit "ls in magit-status buffer
|
|
;; and end up in a dired buffer of current repository. The default
|
|
;; binding for this is C-M-i, which is not memorizable, while "ls"
|
|
;; is. That is, 'l' is a prefix command leading to magit-log-popup
|
|
;; and 's' is undefined, which I define here, which then jumps to
|
|
;; dired.
|
|
;; see: https://github.com/magit/magit/wiki/Converting-popup-modifications-to-transient-modifications#adding-an-action
|
|
(transient-append-suffix 'magit-log "l"
|
|
'("s" "dired" magit-dired-jump))
|
|
|
|
;; after an exhausting discussion on magit#3139 I use this function
|
|
;; to (kind of) switch to another repository from inside magit-status.
|
|
(defun tvd-switch-magit-repo ()
|
|
(interactive)
|
|
(let ((dir (magit-read-repository)))
|
|
(magit-mode-bury-buffer)
|
|
(magit-status dir)))
|
|
(define-key magit-mode-map (kbd "C") 'tvd-switch-magit-repo)
|
|
|
|
;; via
|
|
;; http://manuel-uberti.github.io/emacs/2018/02/17/magit-bury-buffer/:
|
|
;; a great enhancement, when closing the magit status buffer, ALL
|
|
;; other possibly still remaining magit buffers will be killed as
|
|
;; well AND the window setup will be restored.
|
|
(defun tvd-kill-magit-buffers()
|
|
"Restore window setup from before magit and kill all magit buffers."
|
|
(interactive)
|
|
(let ((buffers (magit-mode-get-buffers)))
|
|
(magit-restore-window-configuration)
|
|
(mapc #'kill-buffer buffers)))
|
|
|
|
(define-key magit-status-mode-map (kbd "q") #'tvd-kill-magit-buffers))
|