From: rearman <rearman@r717.net>
Date: Wed, 31 Dec 2025 18:56:10 +0000 (-0500)
Subject: Add defun and binding to change sort in dired
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=007e03d792f8a6c4ffe4afb850d73d73ffb56d09;p=emacsinit.git

Add defun and binding to change sort in dired
---

diff --git a/init.el b/init.el
index bcc6da9..90ad05f 100644
--- a/init.el
+++ b/init.el
@@ -90,7 +90,7 @@
       dired-vc-rename-file t
       dired-auto-revert-buffer t
       dired-hide-details-hide-symlink-targets nil
-      dired-dwim-target 'dired-dwim-target-recent)
+      dired-dwim-target t)
 
 (add-hook 'dired-mode-hook
 	  (lambda ()
@@ -98,6 +98,9 @@
 	      (keymap-set dired-mode-map
 			  "<return>"
 			  #'dired-find-alternate-file)
+	      (keymap-set dired-mode-map
+			  "s"
+			  #'re/dired-sort)
 	      (keymap-set dired-mode-map
 			  "F"
 			  #'re/dired-find-marked-files)
diff --git a/re/re-dired-defuns.el b/re/re-dired-defuns.el
index 548e57c..617a0ef 100644
--- a/re/re-dired-defuns.el
+++ b/re/re-dired-defuns.el
@@ -16,5 +16,17 @@
   (interactive)
   (mapc 'find-file (reverse (dired-get-marked-files))))
 
+(defun re/dired-sort ()
+  "Change sort order of dired dir."
+  (interactive)
+  (let ((smenu '(("name" . "-Ahl")
+		 ("mdate" . "-Ahlt")
+		 ("adate" . "-Ahltu")
+		 ("size" . "-AhlS")
+		 ("dir" . "-Ahl --group-directories-first")))
+	ssortBy)
+    (setq ssortBy (completing-read "Sort by (default name):" smenu nil t nil nil (caar smenu)))
+    (dired-sort-other (cdr (assoc ssortBy smenu)))))
+
 (provide 're-dired-defuns)
 ;;; re-dired-defuns.el ends here