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

dired: Group directories first

Browse Source
This commit is contained in:
James Cherti
2025-06-27 15:07:15 -04:00
parent 66788d1045
commit 5b6af80445
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
init.el
View File

@@ -394,7 +394,7 @@
(setq sh-indent-after-continuation 'always) (setq sh-indent-after-continuation 'always)
;;; Dired ;;; Dired and ls-lisp
(with-eval-after-load 'dired (with-eval-after-load 'dired
(setq dired-free-space nil (setq dired-free-space nil
@@ -418,18 +418,26 @@
;; dired-omit-mode ;; dired-omit-mode
(setq dired-omit-verbose nil) (setq dired-omit-verbose nil)
(setq dired-omit-files (concat "\\`[.]\\'"))) (setq dired-omit-files (concat "\\`[.]\\'"))
;; Group directories first
(let ((args (list "--group-directories-first" "-ahlv")))
(when (featurep :system 'bsd)
(if-let* ((gls (executable-find "gls")))
(setq insert-directory-program gls)
(setq args (list (car args)))))
(setq dired-listing-switches (string-join args " "))))
;; ls-lisp
(with-eval-after-load 'ls-lisp (with-eval-after-load 'ls-lisp
(setq ls-lisp-verbosity nil) (setq ls-lisp-verbosity nil)
(setq ls-lisp-dirs-first t)) (setq ls-lisp-dirs-first t))
;;; Ediff ;;; Ediff
;; Configure Ediff to use a single frame and split windows horizontally (with-eval-after-load 'ediff
(setq ediff-window-setup-function 'ediff-setup-windows-plain ;; Configure Ediff to use a single frame and split windows horizontally
ediff-split-window-function 'split-window-horizontally) (setq ediff-window-setup-function 'ediff-setup-windows-plain
ediff-split-window-function 'split-window-horizontally))
;;; Help ;;; Help