В dired-mode показывать папки вначале

Чтобы список файлов в dired выглядел привычнее, можно сортировать вначале все папки, а после - все файлы по алфавиту. Юниксовая команда ls не позволяет чётко различать папки и файлы. Но можно воспользоваться вот таким хаком:

(defun mydired-sort ()
  "Sort dired listings with directories first."
  (save-excursion
    (let (buffer-read-only)
      (forward-line 2) ;; beyond dir. header 
      (sort-regexp-fields t "^.*$" "[ ]*." (point) (point-max)))
    (set-buffer-modified-p nil)))

(defadvice dired-readin
  (after dired-after-updating-hook first () activate)
  "Sort dired listings with directories first before adding marks."
  (mydired-sort))

Просто дописываем его в ~/.emacs
Источник