oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs/elisp/mpv)~mpv-open-video now takes optional arguments

Browse Source 
This optional argument should be a URL we can feed for the mpv
process.
This commit is contained in:
Aryadev Chavali
2024-08-21 16:30:26 +01:00
parent 05d1cfdc4b
commit 2d7eab9f86
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Emacs/.config/emacs/elisp/mpv.el
View File

@@ -48,8 +48,14 @@
(defvar mpv--history nil) (defvar mpv--history nil)
(defun mpv-open-video () (defun mpv-open-video (&optional arg)
(interactive) (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))) (let ((url (completing-read "Enter URL: " nil nil t (ffap-guesser) mpv--history)))
(mpv-start-process url) (mpv-start-process url)
(switch-to-buffer "*mpv*"))) (switch-to-buffer "*mpv*")))