From 59fc0cfe9885b43e5b989ca4e5d9e6a90783f465 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sat, 2 May 2020 11:46:25 +0200 Subject: C-c C-o opens file in dired --- lisp/init-dired.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 2195402..ac6f24b 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -1,3 +1,11 @@ +(defun dired-open-or-shell-command () + (interactive) + (if (eq system-type 'darwin) + ;; call open directly on darwin + (dired-do-shell-command "open" nil (dired-get-marked-files t)) + ;; otherwise prompt for shell command + (call-interactively 'dired-do-shell-command))) + (use-package dired :ensure nil ;; package is bundled with emacs :init @@ -7,7 +15,8 @@ ;; show human readable free space (setq directory-free-space-args "-h") - :bind ("M-" . dired-up-directory) + :bind (("M-" . dired-up-directory) + ("C-c C-o" . dired-open-or-shell-command)) :config ;; group directories first in dired if supported -- cgit v1.2.3