From 9bf0d83802e646b6bc359cacba092e0ef25d570a Mon Sep 17 00:00:00 2001
From: James Cherti <60946298+jamescherti@users.noreply.github.com>
Date: Fri, 25 Jul 2025 12:16:37 -0400
Subject: [PATCH] Move dired group directories first to the README.md file

---
 README.md     | 10 ++++++++++
 early-init.el |  3 ---
 init.el       | 12 ------------
 3 files changed, 10 insertions(+), 15 deletions(-)

diff --git a/README.md b/README.md
index fa82e74..dae894c 100644
--- a/README.md
+++ b/README.md
@@ -1587,6 +1587,16 @@ In Emacs, customization variables modified via the UI (e.g., `M-x customize`) ar
                                "\\|^flymake_.*"))
 (add-hook 'dired-mode-hook #'dired-omit-mode)
 
+;; dired: Group directories first
+(with-eval-after-load 'dired
+  (let ((args "--group-directories-first -ahlv"))
+    (when (or (eq system-type 'darwin) (eq system-type 'berkeley-unix))
+      (if-let* ((gls (executable-find "gls")))
+          (setq insert-directory-program gls)
+        (setq args nil)))
+    (when args
+      (setq dired-listing-switches args))))
+
 ;; Enables visual indication of minibuffer recursion depth after initialization.
 (add-hook 'after-init-hook #'minibuffer-depth-indicate-mode)
 
diff --git a/early-init.el b/early-init.el
index 59a86f3..a787ffe 100644
--- a/early-init.el
+++ b/early-init.el
@@ -96,9 +96,6 @@ modified during setup.")
 (defvar minimal-emacs-user-directory user-emacs-directory
   "The default value of the `user-emacs-directory' variable.")
 
-(defvar minimal-emacs-dired-group-directories-first nil
-  "If non-nil, group directories first in Dired listings.")
-
 ;;; Load pre-early-init.el
 
 ;; Prefer loading newer compiled files
diff --git a/init.el b/init.el
index 6aa3067..5abb833 100644
--- a/init.el
+++ b/init.el
@@ -416,18 +416,6 @@
 (setq dired-omit-verbose nil)
 (setq dired-omit-files (concat "\\`[.]\\'"))
 
-;; Group directories first
-(when minimal-emacs-dired-group-directories-first
-  (with-eval-after-load 'dired
-    (let ((args "--group-directories-first -ahlv"))
-      (when (or (eq system-type 'darwin)
-                (eq system-type 'berkeley-unix))
-        (if-let* ((gls (executable-find "gls")))
-            (setq insert-directory-program gls)
-          (setq args nil)))
-      (when args
-        (setq dired-listing-switches args)))))
-
 (setq ls-lisp-verbosity nil)
 (setq ls-lisp-dirs-first t)