From 0bf1ea65dc132eb224ba38a6be595fcead68cdab Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 25 Nov 2019 02:02:57 -0500
Subject: [PATCH] emacs/dired: disable dired-git-info by default

It is unacceptably slow in version controlled directories with many
files.
---
 modules/emacs/dired/config.el | 42 ++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 23 deletions(-)

diff --git a/modules/emacs/dired/config.el b/modules/emacs/dired/config.el
index 74f9950e1..ce251de26 100755
--- a/modules/emacs/dired/config.el
+++ b/modules/emacs/dired/config.el
@@ -176,26 +176,22 @@ we have to clean it up ourselves."
   :init (advice-add #'find-dired :override #'fd-dired))
 
 
-(use-package! dired-git-info
-  :after dired
-  :init
-  (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)
-  (after! wdired
-    ;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
-    ;; reported incompatibilities.
-    (defvar +dired--git-info-p nil)
-    (defadvice! +dired--disable-git-info-a (&rest _)
-      :before #'wdired-change-to-wdired-mode
-      (setq +dired--git-info-p dired-git-info-mode)
-      (when +dired--git-info-p
-        (dired-git-info-mode -1)))
-    (defadvice! +dired--reactivate-git-info-a (&rest _)
-      :after '(wdired-exit
-               wdired-abort-changes
-               wdired-finish-edit)
-      (when +dired--git-info-p
-        (dired-git-info-mode +1)))))
+;;;###package dired-git-info
+(map! :after dired
+      :map (dired-mode-map ranger-mode-map)
+      :ng ")" #'dired-git-info-mode)
+(after! wdired
+  ;; Temporarily disable `dired-git-info-mode' when entering wdired, due to
+  ;; reported incompatibilities.
+  (defvar +dired--git-info-p nil)
+  (defadvice! +dired--disable-git-info-a (&rest _)
+    :before #'wdired-change-to-wdired-mode
+    (setq +dired--git-info-p (bound-and-true-p dired-git-info-mode))
+    (when +dired--git-info-p
+      (dired-git-info-mode -1)))
+  (defadvice! +dired--reactivate-git-info-a (&rest _)
+    :after '(wdired-exit
+             wdired-abort-changes
+             wdired-finish-edit)
+    (when +dired--git-info-p
+      (dired-git-info-mode +1))))