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

Move dired group directories first to the README.md file

Browse Source
This commit is contained in:
James Cherti
2025-07-25 12:16:37 -04:00
parent 7b78ad5fcc
commit 9bf0d83802
3 changed files with 10 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
README.md
View File

@@ -1587,6 +1587,16 @@ In Emacs, customization variables modified via the UI (e.g., `M-x customize`) ar
"\\|^flymake_.*")) "\\|^flymake_.*"))
(add-hook 'dired-mode-hook #'dired-omit-mode) (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. ;; Enables visual indication of minibuffer recursion depth after initialization.
(add-hook 'after-init-hook #'minibuffer-depth-indicate-mode) (add-hook 'after-init-hook #'minibuffer-depth-indicate-mode)

3
early-init.el
View File

@@ -96,9 +96,6 @@ 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 nil
"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

12
init.el
View File

@@ -416,18 +416,6 @@
(setq dired-omit-verbose nil) (setq dired-omit-verbose nil)
(setq dired-omit-files (concat "\\`[.]\\'")) (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-verbosity nil)
(setq ls-lisp-dirs-first t) (setq ls-lisp-dirs-first t)