amogus2/emacs-dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
James Cherti
2025-07-05 14:31:28 -04:00
parent afffa5bade
commit c9cd53c408
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
early-init.el
View File

@@ -96,6 +96,9 @@ modified during setup.")
(defvar minimal-emacs-user-directory user-emacs-directory (defvar minimal-emacs-user-directory user-emacs-directory
"The default value of the `user-emacs-directory' variable.") "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 ;;; Load pre-early-init.el
;; Prefer loading newer compiled files ;; Prefer loading newer compiled files

6
init.el
View File

@@ -427,14 +427,16 @@
(setq dired-omit-files (concat "\\`[.]\\'")) (setq dired-omit-files (concat "\\`[.]\\'"))
;; Group directories first ;; Group directories first
(let ((args "--group-directories-first -ahlv")) (when minimal-emacs-dired-group-directories-first
(with-eval-after-load 'dired
(let ((args "--group-directories-first -ahlv"))
(when (or (eq system-type 'darwin) (when (or (eq system-type 'darwin)
(eq system-type 'berkeley-unix)) (eq system-type 'berkeley-unix))
(if-let* ((gls (executable-find "gls"))) (if-let* ((gls (executable-find "gls")))
(setq insert-directory-program gls) (setq insert-directory-program gls)
(setq args nil))) (setq args nil)))
(when args (when args
(setq dired-listing-switches args))) (setq dired-listing-switches args)))))
(setq ls-lisp-verbosity nil) (setq ls-lisp-verbosity nil)
(setq ls-lisp-dirs-first t) (setq ls-lisp-dirs-first t)