working system

lisp/init-dired.el

@@ -0,0 +1,42 @@
+;;; 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