A few tiny tweaks
[~bandali/configs] / .emacs.d / lisp / bandali-dired.el
index 9ed1030..0cbd7ed 100644 (file)
@@ -1,6 +1,6 @@
 ;;; bandali-dired.el --- bandali's dired setup       -*- lexical-binding: t; -*-
 
 ;;; bandali-dired.el --- bandali's dired setup       -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2018-2020  Amin Bandali
+;; Copyright (C) 2018-2022  Amin Bandali
 
 ;; Author: Amin Bandali <bandali@gnu.org>
 ;; Keywords: files
 
 ;; Author: Amin Bandali <bandali@gnu.org>
 ;; Keywords: files
 ;;; Code:
 
 (with-eval-after-load 'dired
 ;;; Code:
 
 (with-eval-after-load 'dired
-  (csetq
+  ;; (require 'ls-lisp)
+  (setq
    dired-dwim-target t
    dired-dwim-target t
-   dired-listing-switches "-alh"
+   dired-listing-switches "-alh --group-directories-first"
    dired-recent-directories-file (b/var "dired-recent-directories.el")
    ls-lisp-dirs-first t
    ls-lisp-use-insert-directory-program nil)
    dired-recent-directories-file (b/var "dired-recent-directories.el")
    ls-lisp-dirs-first t
    ls-lisp-use-insert-directory-program nil)
       (b/dired-start-process "zathura")))
 
   (require 'dired-x)
       (b/dired-start-process "zathura")))
 
   (require 'dired-x)
-  (csetq dired-guess-shell-alist-user
-         '(("\\.pdf\\'"  "evince" "zathura" "okular")
-           ("\\.doc\\'"  "libreoffice")
-           ("\\.docx\\'" "libreoffice")
-           ("\\.ppt\\'"  "libreoffice")
-           ("\\.pptx\\'" "libreoffice")
-           ("\\.xls\\'"  "libreoffice")
-           ("\\.xlsx\\'" "libreoffice")
-           ("\\.flac\\'" "mpv"))))
+  (setq
+   dired-guess-shell-alist-user
+   '(("\\.pdf\\'"  "evince" "zathura" "okular")
+     ("\\.doc\\'"  "libreoffice")
+     ("\\.docx\\'" "libreoffice")
+     ("\\.ppt\\'"  "libreoffice")
+     ("\\.pptx\\'" "libreoffice")
+     ("\\.xls\\'"  "libreoffice")
+     ("\\.xlsx\\'" "libreoffice")
+     ("\\.flac\\'" "mpv"))))
 ;; hooks
 (add-hook 'dired-mode-hook #'dired-hide-details-mode)
 
 ;; hooks
 (add-hook 'dired-mode-hook #'dired-hide-details-mode)