42 lines
1.6 KiB
EmacsLisp
42 lines
1.6 KiB
EmacsLisp
;;; init-dired.el --- Dired customisations -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
(require-package 'dirvish)
|
|
|
|
(setq dired-dwim-target t ; suggest a target for moving/copying intelligently
|
|
;; don't prompt to revert, just do it
|
|
dired-auto-revert-buffer #'dired-buffer-stale-p
|
|
;; Always copy/delete recursively
|
|
dired-recursive-copies 'always
|
|
dired-recursive-deletes 'top
|
|
;; Ask whether destination dirs should get created when copying/removing files.
|
|
dired-create-destination-dirs 'ask
|
|
;; Where to store image caches
|
|
image-dired-dir (concat cache-dir "image-dired/")
|
|
image-dired-db-file (concat image-dired-dir "db.el")
|
|
image-dired-gallery-dir (concat image-dired-dir "gallery/")
|
|
image-dired-temp-image-file (concat image-dired-dir "temp-image")
|
|
image-dired-temp-rotate-image-file (concat image-dired-dir "temp-rotate-image")
|
|
;; Screens are larger nowadays, we can afford slightly larger thumbnails
|
|
image-dired-thumb-size 150)
|
|
|
|
(dirvish-override-dired-mode)
|
|
(setq dirvish-cache-dire (concat cache-dir "dirvish-cache/"))
|
|
(setq dirvish-use-mode-line nil) ; hide mode line
|
|
(setq dirvish-hide-details nil)
|
|
(setq dirvish-use-header-line nil) ; hide header line (show the classic dired header)
|
|
(setq dirvish-reuse-session nil)
|
|
|
|
(setq dirvish-attributes '(file-size)
|
|
dirvish-mode-line-format
|
|
'(:left (sort file-time symlink) :right (omit yank index)))
|
|
(setq dirvish-attributes nil
|
|
dirvish-use-header-line nil
|
|
dirvish-use-mode-line nil)
|
|
|
|
|
|
|
|
(dirvish-peek-mode)
|
|
|
|
(provide 'init-dired)
|
|
;;; init-dired.el ends here
|