[nongnu] elpa/subed 6a5802c 374/389: Add video movement per frame

[ELPA Syncer]

branch: elpa/subed
commit 6a5802c92f15b5bc47a2e5b7b571ee1c5f0c623b
Author: Marcin Borkowski <mbork@mbork.pl>
Commit: Random User <rndusr@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)