From 2d7eab9f8627e634808a3b75758879592db53b8d Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Wed, 21 Aug 2024 16:30:26 +0100 Subject: (Emacs/elisp/mpv)~mpv-open-video now takes optional arguments This optional argument should be a URL we can feed for the mpv process. --- Emacs/.config/emacs/elisp/mpv.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'Emacs/.config') 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*"))) -- cgit v1.2.3-13-gbd6f