diff options
| -rw-r--r-- | Emacs/.config/emacs/elisp/mpv.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Emacs/.config/emacs/elisp/mpv.el b/Emacs/.config/emacs/elisp/mpv.el index 5560d39..4d0655e 100644 --- a/Emacs/.config/emacs/elisp/mpv.el +++ b/Emacs/.config/emacs/elisp/mpv.el @@ -48,8 +48,14 @@ (defvar mpv--history nil) -(defun mpv-open-video () +(defun mpv-open-video (&optional arg) (interactive) + (let ((url (if (stringp arg) + arg + (completing-read "Enter URL: " nil nil t (ffap-guesser) mpv--history)))) + (mpv-start-process url) + (switch-to-buffer "*mpv*"))) + (let ((url (completing-read "Enter URL: " nil nil t (ffap-guesser) mpv--history))) (mpv-start-process url) (switch-to-buffer "*mpv*"))) |