hack(dired): workaround for nerd-icons support in dired-subtree.

rainstormstudio/nerd-icons-dired#3 (comment)
milanglacier · Aug 6, 2023 · 1dadef8 · 1dadef8
1 parent 72b15f8
commit 1dadef8
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 1 deletion.
diff --git a/lisp/autoloads/my-loaddefs.el b/lisp/autoloads/my-loaddefs.el
@@ -319,6 +319,7 @@ open vterm at project root, if no root is found, open at the default-directory"
 (autoload 'my/project-root-or-default-dir "my-misc-autoloads" "\
 If a project root is found, return it. Otherwise return `default-directory'.")
 (autoload 'my/ibuffer-vc-setup "my-misc-autoloads")
+(autoload 'my:dired-subtree-toggle-nerd-icons "my-misc-autoloads")
 
 
 ;;; Generated autoloads from my-org-autoloads.el

diff --git a/lisp/autoloads/my-misc-autoloads.el b/lisp/autoloads/my-misc-autoloads.el
@@ -20,5 +20,16 @@
     (unless (eq ibuffer-sorting-mode 'alphabetic)
         (ibuffer-do-sort-by-alphabetic)))
 
+(defun my:dired-subtree-add-nerd-icons ()
+    (interactive)
+    (revert-buffer))
+
+;;;###autoload
+(defun my:dired-subtree-toggle-nerd-icons ()
+    (when (require 'dired-subtree nil t)
+        (if nerd-icons-dired-mode
+                (advice-add #'dired-subtree-toggle :after #'my:dired-subtree-add-nerd-icons)
+            (advice-remove #'dired-subtree-toggle #'my:dired-subtree-add-nerd-icons))))
+
 (provide 'my-misc-autoloads)
 ;;; my-misc-autoloads.el ends here
diff --git a/lisp/my-misc.el b/lisp/my-misc.el
@@ -167,7 +167,8 @@
     :hook (dired-mode . diredfl-mode))
 
 (use-package nerd-icons-dired
-    :hook (dired-mode . nerd-icons-dired-mode))
+    :hook ((dired-mode . nerd-icons-dired-mode)
+           (nerd-icons-dired-mode . my:dired-subtree-toggle-nerd-icons)))
 
 (use-package dired-sidebar
     :init