branch: elpa/subed
commit 6164f888777a94adec148c7c06437c319102e199
Author: Sacha Chua <sa...@sachachua.com>
Commit: Random User <rnd...@posteo.de>
Keep track of video being played
This makes it easier for other code to get the currently-playing file.
* subed/subed-mpv.el (subed-mpv-video-file): New variable.
(subed-mpv-find-video): Keep track of file.
(subed-mpv-play-video-from-url): Keep track of URL.
---
subed/subed-mpv.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 3fb8ef9..ad31a41 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -47,6 +47,8 @@
subed-mpv-jump-to-current-subtitle)
"Functions to call when mpv has loaded a file and starts playing.")
+(defvar-local subed-mpv-video-file nil "Current file or URL.")
+
(defvar-local subed-mpv--server-proc nil
"Running mpv process.")
@@ -374,6 +376,7 @@ See the mpv manual for a list of supported URL types. If
you
have youtube-dl installed, mpv can open videos from a variety of
hosting providers."
(interactive "MURL: ")
+ (setq subed-mpv-video-file url)
(subed-mpv--play url))
(defun subed-mpv-find-video (file)
@@ -382,6 +385,7 @@ hosting providers."
Video files are expected to have any of the extensions listed in
`subed-video-extensions'."
(interactive (list (read-file-name "Find video: " nil nil t nil
#'subed-mpv--is-video-file-p)))
+ (setq subed-mpv-video-file (expand-file-name file))
(subed-mpv--play (expand-file-name file)))
(defun subed-mpv--add-subtitle-after-first-save ()
