From 9d55e75bd85fbd649185da7015e6e842000c579c Mon Sep 17 00:00:00 2001 From: Max Nickel Date: Sun, 27 Oct 2019 17:32:52 -0400 Subject: [PATCH] [dired] add support for hiding dotfiles and hide details by default --- modules/emacs/dired/autoload.el | 17 +++++++++++++++++ modules/emacs/dired/config.el | 5 +++++ 2 files changed, 22 insertions(+) diff --git a/modules/emacs/dired/autoload.el b/modules/emacs/dired/autoload.el index 8e5526655..ca49283ac 100644 --- a/modules/emacs/dired/autoload.el +++ b/modules/emacs/dired/autoload.el @@ -6,7 +6,24 @@ (interactive) (mapc #'kill-buffer (doom-buffers-in-mode 'dired-mode)) (message "Killed all dired buffers")) + + ;;;###autoload (defun +dired/enable-git-info-h () (if (locate-dominating-file "." ".git") (dired-git-info-mode 1))) + +;;;###autoload +(defun +dired/dotfiles-hide () + (set (make-local-variable '+dired-dotfiles-show-p) nil) + (dired-mark-files-regexp "^\\\.") + (dired-do-kill-lines)) + +;;;###autoload +(defun +dired/dotfiles-toggle () + (interactive) + (when (equal major-mode 'dired-mode) + (if (or (not (boundp '+dired-dotfiles-show-p)) +dired-dotfiles-show-p) ; if currently showing + (+dired/dotfiles-hide) + (progn (revert-buffer) ; otherwise just revert to re-show + (set (make-local-variable '+dired-dotfiles-show-p) t))))) diff --git a/modules/emacs/dired/config.el b/modules/emacs/dired/config.el index 7e28c4a76..64fdcc631 100755 --- a/modules/emacs/dired/config.el +++ b/modules/emacs/dired/config.el @@ -45,6 +45,11 @@ only variant that supports --group-directories-first." "--group-directories-first") " "))))) + ;; hide details by default + (add-hook 'dired-mode-hook 'dired-hide-details-mode) + ;; hide dotfiles by default + (add-hook 'dired-after-readin-hook '+dired/dotfiles-hide) + ;; Don't complain about this command being disabled when we use it (put 'dired-find-alternate-file 'disabled nil)