branch: elpa/subed
commit ba229191e7e2272e2aaa4d2ff827ba5ff56794d6
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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)))
