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

64
init.el
View File

@@ -396,48 +396,46 @@
;;; Dired and ls-lisp ;;; 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-dwim-target t ; Propose a target for intelligent moving/copying dired-deletion-confirmer 'y-or-n-p
dired-deletion-confirmer 'y-or-n-p dired-filter-verbose nil
dired-filter-verbose nil dired-recursive-deletes 'top
dired-recursive-deletes 'top dired-recursive-copies 'always
dired-recursive-copies 'always dired-create-destination-dirs 'ask)
dired-create-destination-dirs 'ask)
;; This is a higher-level predicate that wraps `dired-directory-changed-p' ;; This is a higher-level predicate that wraps `dired-directory-changed-p'
;; with additional logic. This `dired-buffer-stale-p' predicate handles remote ;; with additional logic. This `dired-buffer-stale-p' predicate handles remote
;; files, wdired, unreadable dirs, and delegates to dired-directory-changed-p ;; files, wdired, unreadable dirs, and delegates to dired-directory-changed-p
;; for modification checks. ;; for modification checks.
(setq dired-auto-revert-buffer 'dired-buffer-stale-p) (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. ;; Disable the prompt about killing the Dired buffer for a deleted directory.
(setq dired-clean-confirm-killing-deleted-buffers nil) (setq dired-clean-confirm-killing-deleted-buffers nil)
;; 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 ;; Group directories first
(let ((args (list "--group-directories-first" "-ahlv"))) (let ((args "--group-directories-first -ahlv"))
(when (featurep :system 'bsd) (when (featurep :system 'bsd)
(if-let* ((gls (executable-find "gls"))) (if-let* ((gls (executable-find "gls")))
(setq insert-directory-program gls) (setq insert-directory-program gls)
(setq args (list (car args))))) (setq args nil)))
(setq dired-listing-switches (string-join args " ")))) (when args
(setq dired-listing-switches args)))
(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
(with-eval-after-load 'ediff ;; Configure Ediff to use a single frame and split windows horizontally
;; Configure Ediff to use a single frame and split windows horizontally (setq ediff-window-setup-function 'ediff-setup-windows-plain
(setq ediff-window-setup-function 'ediff-setup-windows-plain ediff-split-window-function 'split-window-horizontally)
ediff-split-window-function 'split-window-horizontally))
;;; Help ;;; Help