[nongnu] elpa/subed f73ee618bf 1/9: New function subed-media-file controlled by subed-media-file-functions

[ELPA Syncer]

branch: elpa/subed
commit f73ee618bf9a4b5c137b0305303f34fd09a2e5f0
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    New function subed-media-file controlled by subed-media-file-functions
    
    This makes it easier for packages like subed-record to mix different
    media sources in the same subtitle file.
    
    * subed/subed-align.el: Use (subed-media-file)
    * subed/subed-common.el (subed-media-file-functions): New list of
    functions.
    (subed-media-file): New function.
    (subed-media-file-from-cache): New function.
---
 subed/subed-align.el  |  2 +-
 subed/subed-common.el | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/subed/subed-align.el b/subed/subed-align.el
index 30194498e6..332d4af348 100644
--- a/subed/subed-align.el
+++ b/subed/subed-align.el
@@ -48,7 +48,7 @@ Return a buffer with FORMAT."
   (interactive
    (list
     (or
-     subed-mpv-media-file
+     (subed-media-file)
      (subed-guess-media-file subed-audio-extensions)
      (read-file-name "Audio file: "))
     (buffer-file-name)
diff --git a/subed/subed-common.el b/subed/subed-common.el
index 381a260977..a16211bc8a 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1869,6 +1869,18 @@ and therefore gets ARGS, which is ignored."
                              (setq subed--player-is-auto-paused nil)
                              (subed-mpv-playback-speed 
subed-playback-speed-while-not-typing))))))))
 
+(defvar subed-media-file-functions '(subed-media-file-from-cache 
subed-guess-media-file)
+  "Functions to use for getting the media file.")
+
+(defun subed-media-file ()
+  "Return the current media file.
+Uses the functions listed in `subed-media-file-functions'."
+  (run-hook-with-args-until-success 'subed-media-file-functions))
+
+(defun subed-media-file-from-cache ()
+  "Return the media file from the variable."
+  subed-mpv-media-file)
+
 (defun subed-guess-media-file (&optional extensions)
   "Find media file with same base name as the opened file in the buffer.