branch: elpa/subed
commit 6a5802c92f15b5bc47a2e5b7b571ee1c5f0c623b
Author: Marcin Borkowski <mb...@mbork.pl>
Commit: Random User <rnd...@posteo.de>
Add video movement per frame
---
subed/subed-mpv.el | 10 ++++++++++
subed/subed.el | 2 ++
2 files changed, 12 insertions(+)
diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 99ade66..71933ca 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -320,6 +320,16 @@ See \"List of events\" in mpv(1)."
(subed-debug "Seeking player to focused subtitle: %S" cur-sub-start)
(subed-mpv-jump cur-sub-start))))
+(defun subed-mpv-frame-step ()
+ "Step one frame forward."
+ (interactive)
+ (subed-mpv--client-send `(frame-step)))
+
+(defun subed-mpv-frame-back-step ()
+ "Step one frame backward."
+ (interactive)
+ (subed-mpv--client-send `(frame-back-step)))
+
(defun subed-mpv-add-subtitles (file)
"Load FILE as subtitles in mpv."
(subed-mpv--client-send `(sub-add ,file select)))
diff --git a/subed/subed.el b/subed/subed.el
index 93fc2d2..96a7b0a 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -64,6 +64,8 @@
(define-key subed-mode-map (kbd "C-c C-d") #'subed-toggle-debugging)
(define-key subed-mode-map (kbd "C-c C-v") #'subed-mpv-find-video)
(define-key subed-mode-map (kbd "C-c C-u") #'subed-mpv-play-video-from-url)
+ (define-key subed-mode-map (kbd "C-c <right>") #'subed-mpv-frame-step)
+ (define-key subed-mode-map (kbd "C-c <left>") #'subed-mpv-frame-back-step)
(define-key subed-mode-map (kbd "C-c C-p")
#'subed-toggle-pause-while-typing)
(define-key subed-mode-map (kbd "C-c C-l")
#'subed-toggle-loop-over-current-subtitle)
(define-key subed-mode-map (kbd "C-c C-r")
#'subed-toggle-replay-adjusted-subtitle)
