[nongnu] elpa/subed fcc1951 288/389: Add subed-mpv-file-loaded-hook

[ELPA Syncer]

branch: elpa/subed
commit fcc19514280c01c73ed09bf1c9ece87ac7d7dabf
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Add subed-mpv-file-loaded-hook
---
 subed/subed-mpv.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index e4da997..f2484e2 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -50,6 +50,9 @@
 (defvar-local subed-mpv-playback-position-hook nil
   "Functions to call when mpv changes playback position.")
 
+(defvar-local subed-mpv-file-loaded-hook '(subed-mpv-jump-to-current-subtitle)
+  "Functions to call when mpv has loaded a file and starts playing.")
+
 (defvar-local subed-mpv--server-proc nil
   "Running mpv process.")
 
@@ -262,12 +265,18 @@ See \"List of events\" in mpv(1)."
          (let ((pos-msecs (* 1000 (or (alist-get 'data json-data) 0))))
            (setq subed-mpv-playback-position (round pos-msecs))
            (run-hook-with-args 'subed-mpv-playback-position-hook 
subed-mpv-playback-position))))
-      ((or "unpause" "file-loaded")
+      ("file-loaded"
        (setq subed-mpv-is-playing t)
-       (subed-debug "Playing status changed: playing=%s" subed-mpv-is-playing))
+       ;; Because mpv can report the player position AFTER the file was loaded
+       ;; we disable automatic movement of point for a while so that the effect
+       ;; of `subed-mpv-jump-to-current-subtitle' isn't cancelled immediately.
+       (subed-disable-sync-point-to-player-temporarily)
+       (run-hooks 'subed-mpv-file-loaded-hook))
+      ("unpause"
+       (setq subed-mpv-is-playing t))
       ((or "pause" "end-file" "shutdown" "idle")
-       (setq subed-mpv-is-playing nil)
-       (subed-debug "Playing status changed: playing=%s" 
subed-mpv-is-playing)))))
+       (setq subed-mpv-is-playing nil)))))
+
 
 
 ;;; High-level functions