34 lines
983 B
EmacsLisp
34 lines
983 B
EmacsLisp
(add-hook 'dired-load-hook
|
|
(lambda ()
|
|
(load "dired-x")))
|
|
|
|
(put 'dired-find-alternate-file 'disabled nil)
|
|
|
|
(setq-default dired-listing-switches "-ahlv --group-directories-first")
|
|
|
|
;; keymap for dired
|
|
(global-set-key (kbd "C-x d") 'dired-jump)
|
|
|
|
;; It's currently not working but would be handy to have.
|
|
;;(bind-keys :map dired-mode-map ("q" . az-kill-dired-buffers))
|
|
|
|
;;a function to kill all dired buffers
|
|
(defun az-kill-dired-buffers ()
|
|
(interactive)
|
|
(mapc (lambda (buffer)
|
|
(when (eq 'dired-mode (buffer-local-value 'major-mode buffer))
|
|
(kill-buffer buffer)))
|
|
(buffer-list)))
|
|
|
|
(use-package dired-hide-dotfiles
|
|
:init
|
|
(defun az-dired-mode-hook ()
|
|
"My `dired' mode hook."
|
|
;; To hide dot-files by default
|
|
(dired-hide-dotfiles-mode))
|
|
;; To toggle hiding
|
|
(add-hook 'dired-mode-hook #'az-dired-mode-hook)
|
|
(evil-define-key 'normal dired-mode-map "." 'dired-hide-dotfiles-mode))
|
|
|
|
(setq dired-auto-revert-buffer t)
|