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