From 6c38d42f1a17fee4d9ead9d146e88620cf780ec7 Mon Sep 17 00:00:00 2001 From: verdant Date: Sat, 25 Apr 2026 10:45:42 +0800 Subject: Initial commit --- core/core-dired.el | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 core/core-dired.el (limited to 'core/core-dired.el') diff --git a/core/core-dired.el b/core/core-dired.el new file mode 100644 index 0000000..a68e2c4 --- /dev/null +++ b/core/core-dired.el @@ -0,0 +1,45 @@ +;; -*- lexical-binding: t; -*- + +(setq dired-recursive-copies 'always) +(setq dired-recursive-deletes 'always) +(setq dired-dwim-target t) + +(put 'dired-find-alternate-file 'disabled nil) +(with-eval-after-load 'dired + (define-key dired-mode-map (kbd "RET") 'dired-find-alternate-file) + (define-key dired-mode-map (kbd "^") (lambda () (interactive) (find-alternate-file "..")))) ; was dired-up-directory) + +(setq dired-dwim-target t) + +;; dired-sort +(defun dired-sort-size () + "Dired sort by size." + (interactive) + (dired-sort-other (concat dired-listing-switches "S"))) + +(defun dired-sort-extension () + "Dired sort by extension." + (interactive) + (dired-sort-other (concat dired-listing-switches "X"))) + +(defun dired-sort-ctime () + "Dired sort by create time." + (interactive) + (dired-sort-other (concat dired-listing-switches "ct"))) + +(defun dired-sort-utime () + "Dired sort by access time." + (interactive) + (dired-sort-other (concat dired-listing-switches "ut"))) + +(defun dired-sort-time () + "Dired sort by time." + (interactive) + (dired-sort-other (concat dired-listing-switches "t"))) + +(defun dired-sort-name () + "Dired sort by name." + (interactive) + (dired-sort-other (concat dired-listing-switches ""))) + +(provide 'core-dired) -- cgit v1.2.3