[nongnu] elpa/subed ba22919 289/389: Add subed-mpv-jump-to-current-subtitle

[ELPA Syncer]

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

    Add subed-mpv-jump-to-current-subtitle
---
 subed/subed-mpv.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index f2484e2..ac741c1 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -315,6 +315,13 @@ See \"List of events\" in mpv(1)."
   "Move playback position to absolute position MSEC milliseconds."
   (subed-mpv--client-send `(seek ,(/ msec 1000.0) absolute+exact)))
 
+(defun subed-mpv-jump-to-current-subtitle ()
+  "Move playback position to start of currently focused subtitle if possible."
+  (let ((cur-sub-start (subed-subtitle-msecs-start)))
+    (when cur-sub-start
+      (subed-debug "Seeking player to focused subtitle: %S" cur-sub-start)
+      (subed-mpv-jump cur-sub-start))))
+
 (defun subed-mpv-reload-subtitles ()
   "Reload subtitle file from disk."
   (subed-mpv--client-send '(sub-reload)))