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
"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

6
init.el
View File

@@ -427,14 +427,16 @@
(setq dired-omit-files (concat "\\`[.]\\'"))
;; 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)
(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 dired-listing-switches args)))))
(setq ls-lisp-verbosity nil)
(setq ls-lisp-dirs-first t)