emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove --group-directories-first arg for bsd ls

Browse source
This commit is contained in:
Henrik Lissner 2019-03-02 13:49:39 -05:00
parent cc1aad8f2e
commit c07f43bba3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/emacs/dired/config.el
View file

@ -17,8 +17,7 @@
image-dired-temp-image-file (concat image-dired-dir "temp-image") image-dired-temp-image-file (concat image-dired-dir "temp-image")
image-dired-temp-rotate-image-file (concat image-dired-dir "temp-rotate-image")) image-dired-temp-rotate-image-file (concat image-dired-dir "temp-rotate-image"))
:config :config
(setq dired-listing-switches "-aBhl --group-directories-first") (let ((args (list "-aBhl" "--group-directories-first")))
(when IS-BSD (when IS-BSD
;; Use GNU ls as `gls' from `coreutils' if available. Add `(setq ;; Use GNU ls as `gls' from `coreutils' if available. Add `(setq
;; dired-use-ls-dired nil)' to your config to suppress the Dired warning ;; dired-use-ls-dired nil)' to your config to suppress the Dired warning
@ -27,7 +26,9 @@
;; `exec-path' ;; `exec-path'
(if-let* ((gls (executable-find "gls"))) (if-let* ((gls (executable-find "gls")))
(setq insert-directory-program gls) (setq insert-directory-program gls)
(setq args (delete "--group-directories-first" args))
(message "Cannot find `gls` (GNU ls). Install coreutils via your system package manager"))) (message "Cannot find `gls` (GNU ls). Install coreutils via your system package manager")))
(setq dired-listing-switches (string-join args " ")))
(defun +dired|sort-directories-first () (defun +dired|sort-directories-first ()
"List directories first in dired buffers." "List directories first in dired buffers."