;;; 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)