1 files changed, 82 insertions, 0 deletions
diff --git a/.emacs.d/lisp/bandali-dired.el b/.emacs.d/lisp/bandali-dired.el
new file mode 100644
index 0000000..18392c0
--- /dev/null
+++ b/.emacs.d/lisp/bandali-dired.el
@@ -0,0 +1,82 @@
+;;; bandali-dired.el --- bandali's dired setup -*- lexical-binding: t; -*-
+
+;; Copyright (c) 2018-2025 Amin Bandali <bandali@gnu.org>
+
+;; Author: Amin Bandali <bandali@gnu.org>
+;; Keywords: files
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My dired setup and customizations.
+
+;;; Code:
+
+(with-eval-after-load 'dired
+  ;; (require 'ls-lisp)
+  (setopt
+   dired-dwim-target t
+   ;; dired-listing-switches "-alh --group-directories-first"
+   dired-listing-switches "-alh"
+   ;; ls-lisp-dirs-first t
+   ls-lisp-use-insert-directory-program nil)
+
+  (declare-function dired-dwim-target-directory "dired-aux")
+  ;; easily diff 2 marked files
+  ;; https://oremacs.com/2017/03/18/dired-ediff/
+  (defun dired-ediff-files ()
+    (interactive)
+    (require 'dired-aux)
+    (defvar ediff-after-quit-hook-internal)
+    (let ((files (dired-get-marked-files))
+          (wnd (current-window-configuration)))
+      (if (<= (length files) 2)
+          (let ((file1 (car files))
+                (file2 (if (cdr files)
+                           (cadr files)
+                         (read-file-name
+                          "file: "
+                          (dired-dwim-target-directory)))))
+            (if (file-newer-than-file-p file1 file2)
+                (ediff-files file2 file1)
+              (ediff-files file1 file2))
+            (add-hook 'ediff-after-quit-hook-internal
+                      (lambda ()
+                        (setq ediff-after-quit-hook-internal nil)
+                        (set-window-configuration wnd))))
+        (error "no more than 2 files should be marked"))))
+
+  ;; local key bindings
+  (let ((m dired-mode-map))
+    (b/keymap-set m "b" #'dired-up-directory)
+    (b/keymap-set m "E" #'dired-ediff-files)
+    (b/keymap-set m "e" #'dired-toggle-read-only)
+    (b/keymap-set m "\\" #'dired-hide-details-mode))
+
+  (require 'dired-x)
+  (setopt
+   dired-guess-shell-alist-user
+   '(("\\.pdf\\'"  "atril" "evince" "zathura" "okular")
+     ("\\.doc\\'"  "libreoffice")
+     ("\\.docx\\'" "libreoffice")
+     ("\\.ppt\\'"  "libreoffice")
+     ("\\.pptx\\'" "libreoffice")
+     ("\\.xls\\'"  "libreoffice")
+     ("\\.xlsx\\'" "libreoffice")
+     ("\\.flac\\'" "mpv"))))
+(add-hook 'dired-mode-hook #'dired-hide-details-mode)
+
+(provide 'bandali-dired)
+;;; bandali-dired.el ends here