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:24:24 -04:00
parent 5b6af80445
commit a2e5aac140
1 changed files with 31 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
init.el
View File

@@ -396,7 +396,6 @@
;;; Dired and ls-lisp
(with-eval-after-load 'dired
(setq dired-free-space nil
dired-dwim-target t ; Propose a target for intelligent moving/copying
dired-deletion-confirmer 'y-or-n-p
@@ -421,23 +420,22 @@
(setq dired-omit-files (concat "\\`[.]\\'"))
;; Group directories first
(let ((args (list "--group-directories-first" "-ahlv")))
(let ((args "--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 " "))))
(setq args nil)))
(when args
(setq dired-listing-switches args)))
(with-eval-after-load 'ls-lisp
(setq ls-lisp-verbosity nil)
(setq ls-lisp-dirs-first t))
(setq ls-lisp-dirs-first t)
;;; Ediff
(with-eval-after-load 'ediff
;; Configure Ediff to use a single frame and split windows horizontally
(setq ediff-window-setup-function 'ediff-setup-windows-plain
ediff-split-window-function 'split-window-horizontally))
ediff-split-window-function 'split-window-horizontally)
;;; Help