1 ;;; bandali-dired.el --- bandali's dired setup -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2018-2022 Amin Bandali
5 ;; Author: Amin Bandali <bandali@gnu.org>
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation, either version 3 of the License, or
11 ;; (at your option) any later version.
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
23 ;; My dired setup and customizations.
27 (with-eval-after-load 'dired
31 dired-listing-switches
"-alh --group-directories-first"
32 dired-recent-directories-file
(b/var
"dired-recent-directories.el")
34 ls-lisp-use-insert-directory-program nil
)
36 (declare-function dired-dwim-target-directory
"dired-aux")
37 ;; easily diff 2 marked files
38 ;; https://oremacs.com/2017/03/18/dired-ediff/
39 (defun dired-ediff-files ()
42 (defvar ediff-after-quit-hook-internal
)
43 (let ((files (dired-get-marked-files))
44 (wnd (current-window-configuration)))
45 (if (<= (length files
) 2)
46 (let ((file1 (car files
))
47 (file2 (if (cdr files
)
51 (dired-dwim-target-directory)))))
52 (if (file-newer-than-file-p file1 file2
)
53 (ediff-files file2 file1
)
54 (ediff-files file1 file2
))
55 (add-hook 'ediff-after-quit-hook-internal
57 (setq ediff-after-quit-hook-internal nil
)
58 (set-window-configuration wnd
))))
59 (error "no more than 2 files should be marked"))))
61 (defun b/dired-start-process
(program &optional args
)
62 "Open current file with a PROGRAM."
63 ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS
64 ;; can be nil, so remove it).
65 (declare-function dired-get-file-for-visit
"dired")
66 (apply #'b
/start-process
68 (remove nil
(list args
(dired-get-file-for-visit)))))
71 (define-key dired-mode-map
(kbd "b") #'dired-up-directory
)
72 (define-key dired-mode-map
(kbd "E") #'dired-ediff-files
)
73 (define-key dired-mode-map
(kbd "e") #'dired-toggle-read-only
)
74 (define-key dired-mode-map
(kbd "\\") #'dired-hide-details-mode
)
75 (define-key dired-mode-map
(kbd "z")
78 (b/dired-start-process
"zathura")))
82 dired-guess-shell-alist-user
83 '(("\\.pdf\\'" "evince" "zathura" "okular")
84 ("\\.doc\\'" "libreoffice")
85 ("\\.docx\\'" "libreoffice")
86 ("\\.ppt\\'" "libreoffice")
87 ("\\.pptx\\'" "libreoffice")
88 ("\\.xls\\'" "libreoffice")
89 ("\\.xlsx\\'" "libreoffice")
90 ("\\.flac\\'" "mpv"))))
92 (add-hook 'dired-mode-hook
#'dired-hide-details-mode
)
94 (provide 'bandali-dired
)
95 ;;; bandali-dired.el ends here