Add option: minimal-emacs-dired-group-directories-first

early-init.el

@@ -96,6 +96,9 @@ 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 t
+  "If non-nil, group directories first in Dired listings.")
+
 ;;; Load pre-early-init.el
 
 ;; Prefer loading newer compiled files

init.el

@@ -427,6 +427,8 @@
 (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))
@@ -434,7 +436,7 @@
             (setq insert-directory-program gls)
           (setq args nil)))
       (when args
-    (setq dired-listing-switches args)))
+        (setq dired-listing-switches args)))))
 
 (setq ls-lisp-verbosity nil)
 (setq ls-lisp-dirs-first t)