emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

emacs/dired: disable dired-git-info by default

Browse source 
It is unacceptably slow in version controlled directories with many
files.
This commit is contained in:
Henrik Lissner 2019-11-25 02:02:57 -05:00
parent 2a01de5f6c
commit 0bf1ea65dc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/emacs/dired/config.el
View file

@ -176,21 +176,17 @@ 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)
(add-hook 'dired-after-readin-hook '+dired-enable-git-info-h))
:config
(map! :map (dired-mode-map ranger-mode-map)
:ng ")" #'dired-git-info-mode) :ng ")" #'dired-git-info-mode)
(after! wdired (after! wdired
;; Temporarily disable `dired-git-info-mode' when entering wdired, due to ;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
;; reported incompatibilities. ;; reported incompatibilities.
(defvar +dired--git-info-p nil) (defvar +dired--git-info-p nil)
(defadvice! +dired--disable-git-info-a (&rest _) (defadvice! +dired--disable-git-info-a (&rest _)
:before #'wdired-change-to-wdired-mode :before #'wdired-change-to-wdired-mode
(setq +dired--git-info-p dired-git-info-mode) (setq +dired--git-info-p (bound-and-true-p dired-git-info-mode))
(when +dired--git-info-p (when +dired--git-info-p
(dired-git-info-mode -1))) (dired-git-info-mode -1)))
(defadvice! +dired--reactivate-git-info-a (&rest _) (defadvice! +dired--reactivate-git-info-a (&rest _)
@ -198,4 +194,4 @@ we have to clean it up ourselves."
wdired-abort-changes wdired-abort-changes
wdired-finish-edit) wdired-finish-edit)
(when +dired--git-info-p (when +dired--git-info-p
(dired-git-info-mode +1))))) (dired-git-info-mode +1))))