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

46
init.el
View File

@@ -396,8 +396,7 @@
;;; Dired and ls-lisp
(with-eval-after-load 'dired
(setq dired-free-space nil
(setq dired-free-space nil
dired-dwim-target t ; Propose a target for intelligent moving/copying
dired-deletion-confirmer 'y-or-n-p
dired-filter-verbose nil
@@ -405,39 +404,38 @@
dired-recursive-copies 'always
dired-create-destination-dirs 'ask)
;; This is a higher-level predicate that wraps `dired-directory-changed-p'
;; with additional logic. This `dired-buffer-stale-p' predicate handles remote
;; files, wdired, unreadable dirs, and delegates to dired-directory-changed-p
;; for modification checks.
(setq dired-auto-revert-buffer 'dired-buffer-stale-p)
;; This is a higher-level predicate that wraps `dired-directory-changed-p'
;; with additional logic. This `dired-buffer-stale-p' predicate handles remote
;; files, wdired, unreadable dirs, and delegates to dired-directory-changed-p
;; for modification checks.
(setq dired-auto-revert-buffer 'dired-buffer-stale-p)
(setq dired-vc-rename-file t)
(setq dired-vc-rename-file t)
;; Disable the prompt about killing the Dired buffer for a deleted directory.
(setq dired-clean-confirm-killing-deleted-buffers nil)
;; Disable the prompt about killing the Dired buffer for a deleted directory.
(setq dired-clean-confirm-killing-deleted-buffers nil)
;; dired-omit-mode
(setq dired-omit-verbose nil)
(setq dired-omit-files (concat "\\`[.]\\'"))
;; dired-omit-mode
(setq dired-omit-verbose nil)
(setq dired-omit-files (concat "\\`[.]\\'"))
;; Group directories first
(let ((args (list "--group-directories-first" "-ahlv")))
;; Group directories first
(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-verbosity nil)
(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))
;; 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)
;;; Help