       (put face 'theme-face nil)
       (face-spec-set face spec)))
 
+  (dolist (face-map '((all-the-icons-dired-dir-face . dired-directory)))
+    (let* ((face (car face-map))
+           (alias (cdr face-map)))
+      (put face 'theme-face nil)
+      (put face 'face-alias alias)))
+
   (let ((line (face-attribute 'mode-line :underline)))
     (set-face-attribute 'mode-line nil :overline line :box nil)
     (set-face-attribute 'mode-line-inactive nil :overline line :underline line :box nil))

  :bind (("C-x v M-m" . monky-status)))

;; File management
(add-hook 'dired-mode-hook
          (lambda ()
            (add-minor-mode 'dired-hide-details-mode "")
            (when (memq (window-system) '(mac ns))
              (bind-key "z" (lambda ()
                              (interactive)
                              (let ((file-name (dired-get-file-for-visit)))
                                (start-process "default-app" nil "open" file-name)))
                        dired-mode-map))))

(use-package all-the-icons-dired
  :after (all-the-icons)
  :if (display-graphic-p)
  :hook (dired-mode . all-the-icons-dired-mode))

(use-package dired-hide-dotfiles
  :bind (:map dired-mode-map

                      (hide-details dired-hide-details-mode)
                      (hide-information-lines dired-hide-details-hide-information-lines)
                      (hide-symlink-targets dired-hide-details-hide-symlink-targets)
                      (tl truncate-lines)
                      (ww word-wrap)
                      (vlm visual-line-mode)
                      (mlf mode-line-format)
                      (arv auto-revert-verbose)
                      (result (apply oldfun args)))
                  (when hide-dotfiles (dired-hide-dotfiles-mode))
                  (when is-dired
                    (setq truncate-lines tl
                          word-wrap ww
                          visual-line-mode vlm
                          mode-line-format mlf
                          auto-revert-verbose arv)
                    (setq-local dired-hide-details-hide-information-lines hide-information-lines)
                    (setq-local dired-hide-details-hide-symlink-targets hide-symlink-targets)
                    (when hide-details (dired-hide-details-mode)))
