From 59430e9b659fa0e9b6d230dc1e68e39426326f97 Mon Sep 17 00:00:00 2001 From: Madeleine Sydney Date: Fri, 21 Feb 2025 21:14:41 -0700 Subject: [PATCH] feat(emacs): Add dired --- .../crumb/programs/emacs/modules/syd-dired.el | 38 +++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 users/crumb/programs/emacs/modules/syd-dired.el diff --git a/users/crumb/programs/emacs/modules/syd-dired.el b/users/crumb/programs/emacs/modules/syd-dired.el new file mode 100644 index 0000000..2bfb028 --- /dev/null +++ b/users/crumb/programs/emacs/modules/syd-dired.el @@ -0,0 +1,38 @@ +;;; 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)