diff options
author | Martin Polden <mpolden@mpolden.no> | 2021-02-24 20:43:27 +0100 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2021-02-24 20:43:27 +0100 |
commit | 5cd1142b6b472a33e3d169faa20fdb9fe68f6c33 (patch) | |
tree | aaba11326ab8daba88dc0ce3e65beb350054f7a7 | |
parent | 1fa5fd04d7b22c1c385d0c9890e083da4c006b34 (diff) |
dired, editing: Use function from crux
-rw-r--r-- | lisp/init-dired.el | 11 | ||||
-rw-r--r-- | lisp/init-editing.el | 1 |
2 files changed, 2 insertions, 10 deletions
diff --git a/lisp/init-dired.el b/lisp/init-dired.el index b08fcff..2131c8f 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -1,11 +1,3 @@ -(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 :init ;; show human readable sizes in dired and sort dotfiles first @@ -14,8 +6,7 @@ ;; show human readable free space (setq directory-free-space-args "-h") - :bind (("M-<up>" . dired-up-directory) - ("C-c C-o" . dired-open-or-shell-command)) + :bind (("M-<up>" . dired-up-directory)) :config ;; group directories first in dired if supported diff --git a/lisp/init-editing.el b/lisp/init-editing.el index 7caed56..04a00a0 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -21,6 +21,7 @@ ("C-c n" . crux-rename-file-and-buffer) ("C-c w" . crux-kill-buffer-truename) ("C-c D" . crux-duplicate-current-line-or-region) + ("C-c C-o" . crux-open-with) ("C-x C-r" . crux-recentf-find-file) ("C-x C-o" . crux-recentf-find-directory))) |