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