26 lines
701 B
EmacsLisp
26 lines
701 B
EmacsLisp
;;; dired-hide-dotfiles.el --- Hide dotfiles in dired buffers -*- lexical-binding: t; -*-
|
|
|
|
(require 'dired)
|
|
|
|
(defgroup dired-hide-dotfiles nil
|
|
:group 'dired)
|
|
|
|
(define-minor-mode dired-hide-dotfiles-mode
|
|
:init-value nil
|
|
:group 'dired
|
|
(if dired-hide-dotfiles-mode
|
|
(progn
|
|
(add-hook 'dired-after-readin-hook #'dired-hide-dotfiles)
|
|
(dired-hide-dotfiles))
|
|
(remove-hook 'dired-after-readin-hook #'dired-hide-dotfiles)
|
|
(revert-buffer))
|
|
|
|
(defun dired-hide-dotfiles ()
|
|
"Hide dotfiles in dired buffer."
|
|
(let ((inhibit-message t))
|
|
(dired-mark-files-regexp "^\\.|^.*/\\.")
|
|
(dired-do-kill-lines nil "Hid %d dotfiles."))))
|
|
|
|
|
|
(provide 'dired-hide-dotfiles)
|