emacs/dired: disable dired-git-info by default
It is unacceptably slow in version controlled directories with many files.
This commit is contained in:
parent
2a01de5f6c
commit
0bf1ea65dc
1 changed files with 19 additions and 23 deletions
|
@ -176,26 +176,22 @@ we have to clean it up ourselves."
|
||||||
:init (advice-add #'find-dired :override #'fd-dired))
|
:init (advice-add #'find-dired :override #'fd-dired))
|
||||||
|
|
||||||
|
|
||||||
(use-package! dired-git-info
|
;;;###package dired-git-info
|
||||||
:after dired
|
(map! :after dired
|
||||||
:init
|
:map (dired-mode-map ranger-mode-map)
|
||||||
(unless (featurep! +ranger)
|
:ng ")" #'dired-git-info-mode)
|
||||||
(add-hook 'dired-after-readin-hook '+dired-enable-git-info-h))
|
(after! wdired
|
||||||
:config
|
;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
|
||||||
(map! :map (dired-mode-map ranger-mode-map)
|
;; reported incompatibilities.
|
||||||
:ng ")" #'dired-git-info-mode)
|
(defvar +dired--git-info-p nil)
|
||||||
(after! wdired
|
(defadvice! +dired--disable-git-info-a (&rest _)
|
||||||
;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
|
:before #'wdired-change-to-wdired-mode
|
||||||
;; reported incompatibilities.
|
(setq +dired--git-info-p (bound-and-true-p dired-git-info-mode))
|
||||||
(defvar +dired--git-info-p nil)
|
(when +dired--git-info-p
|
||||||
(defadvice! +dired--disable-git-info-a (&rest _)
|
(dired-git-info-mode -1)))
|
||||||
:before #'wdired-change-to-wdired-mode
|
(defadvice! +dired--reactivate-git-info-a (&rest _)
|
||||||
(setq +dired--git-info-p dired-git-info-mode)
|
:after '(wdired-exit
|
||||||
(when +dired--git-info-p
|
wdired-abort-changes
|
||||||
(dired-git-info-mode -1)))
|
wdired-finish-edit)
|
||||||
(defadvice! +dired--reactivate-git-info-a (&rest _)
|
(when +dired--git-info-p
|
||||||
:after '(wdired-exit
|
(dired-git-info-mode +1))))
|
||||||
wdired-abort-changes
|
|
||||||
wdired-finish-edit)
|
|
||||||
(when +dired--git-info-p
|
|
||||||
(dired-git-info-mode +1)))))
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue