diredで隠しファイルの表示をトグルする

2012/3/27 ライブラリ化した


minor mode。
my-dired-display-all-modeをhとかにbindしたりhookに追加したり

(setq dired-listing-switches "-lhFG --time-style=long-iso") ; do not add "-a" or "-A" option
(define-minor-mode my-dired-display-all-mode
  ""
  :init-value nil
  (if my-dired-display-all-mode
      (setq dired-actual-switches
            (concat "-A "
                    dired-actual-switches))
    (setq dired-actual-switches
          (replace-regexp-in-string "-A " "" dired-actual-switches)))
  (when (eq major-mode 'dired-mode)
    (revert-buffer)))