[nongnu] elpa/subed 6164f88 380/389: Keep track of video being played

[ELPA Syncer]

branch: elpa/subed
commit 6164f888777a94adec148c7c06437c319102e199
Author: Sacha Chua <sacha@sachachua.com>
Commit: Random User <rndusr@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 ()