blob: 8e7f77dbd5514ad7fc18ae48a6974fc2d789d97d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
;;; init-dired.el --- configure dired -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:
(defun mpolden/dired-open-or-shell-command ()
"Open marked files with the default external program.
If PATH does not contain a suitable command for opening external
programs, or a prefix argument is given, this function instead
prompts for a shell command."
(interactive)
(let ((open (and (not current-prefix-arg)
(or (executable-find "open")
(executable-find "xdg-open")))))
(if open
(dired-do-shell-command open nil (dired-get-marked-files t))
(call-interactively 'dired-do-shell-command))))
(use-package dired
:init
;; show human readable sizes in dired
(setq dired-listing-switches "-alh")
;; register renames in version control
(setq dired-vc-rename-file t)
:bind (:map dired-mode-map
("C-c r" . dired-toggle-read-only)
("C-c o" . mpolden/dired-open-or-shell-command)
("M-<up>" . dired-up-directory)
("<backspace>" . dired-up-directory)))
(provide 'init-dired)
;;; init-dired.el ends here
|