Merge pull request #529 from danielwuz/dired-open-file
made prelude-open-with work in dired mode
This commit is contained in:
commit
3398802b4f
1 changed files with 13 additions and 8 deletions
|
@ -37,17 +37,22 @@
|
||||||
|
|
||||||
(defun prelude-open-with (arg)
|
(defun prelude-open-with (arg)
|
||||||
"Open visited file in default external program.
|
"Open visited file in default external program.
|
||||||
|
When in dired mode, open file under the cursor.
|
||||||
|
|
||||||
With a prefix ARG always prompt for command to use."
|
With a prefix ARG always prompt for command to use."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(when buffer-file-name
|
(let ((current-file-name
|
||||||
|
(if (eq major-mode 'dired-mode)
|
||||||
|
(dired-get-file-for-visit)
|
||||||
|
buffer-file-name)))
|
||||||
|
(when current-file-name
|
||||||
(start-process "prelude-open-with-process"
|
(start-process "prelude-open-with-process"
|
||||||
"*prelude-open-with-output*"
|
"*prelude-open-with-output*"
|
||||||
(cond
|
(cond
|
||||||
((and (not arg) (eq system-type 'darwin)) "open")
|
((and (not arg) (eq system-type 'darwin)) "open")
|
||||||
((and (not arg) (member system-type '(gnu gnu/linux gnu/kfreebsd))) "xdg-open")
|
((and (not arg) (member system-type '(gnu gnu/linux gnu/kfreebsd))) "xdg-open")
|
||||||
(t (read-shell-command "Open current file with: ")))
|
(t (read-shell-command "Open current file with: ")))
|
||||||
(shell-quote-argument buffer-file-name))))
|
(shell-quote-argument current-file-name)))))
|
||||||
|
|
||||||
(defun prelude-buffer-mode (buffer-or-name)
|
(defun prelude-buffer-mode (buffer-or-name)
|
||||||
"Retrieve the `major-mode' of BUFFER-OR-NAME."
|
"Retrieve the `major-mode' of BUFFER-OR-NAME."
|
||||||
|
|
Loading…
Reference in a new issue