39 lines
1.4 KiB
EmacsLisp
39 lines
1.4 KiB
EmacsLisp
;;; syd-dired.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package dired
|
|
;; Built-in to Emacs.
|
|
:straight nil
|
|
:commands dired-jump
|
|
:custom (;; When there are other Dired windows open, suggest them as targets
|
|
;; for renaming/copying.
|
|
(dired-dwim-target t)
|
|
;; 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-dele tes 'top)
|
|
;; Where to store image caches
|
|
(image-dired-dir (concat syd-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"))
|
|
;; Increase thumbnail sizes.
|
|
(image-dired-thumb-size 150))
|
|
:config
|
|
(set-popup-rule! "^\\*image-dired"
|
|
:slot 20 :size 0.8 :select t :quit nil :ttl 0)
|
|
|
|
;; On ESC, abort `wdired-mode' (will prompt)
|
|
(syd-add-hook 'syd-escape-hook
|
|
(defun syd-dired--wdired-exit-h ()
|
|
(when (eq major-mode 'wdired-mode)
|
|
(wdired-exit)
|
|
t))))
|
|
|
|
(use-package diredfl
|
|
:hook (dired-mode . diredfl-mode)
|
|
:hook (dirvish-directory-view-mode . diredfl-mode))
|
|
|
|
(provide 'syd-dired)
|