[nongnu] elpa/mpv 2d40c45505 38/50: Add mpv-seek and mpv-revert-seek commands

[ELPA Syncer]

branch: elpa/mpv
commit 2d40c4550558eb1bf35a69446777c4e9cae7a623
Author: Johann Klähn <johann@jklaehn.de>
Commit: Johann Klähn <johann@jklaehn.de>

    Add mpv-seek and mpv-revert-seek commands
---
 mpv.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/mpv.el b/mpv.el
index d72ed29ee4..a07887ef7f 100644
--- a/mpv.el
+++ b/mpv.el
@@ -292,7 +292,7 @@ This can be used with the `org-open-at-point-functions' 
hook."
     (when (looking-at "[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}")
       (let ((secs (org-timer-hms-to-secs (match-string 0))))
         (when (> secs 0)
-          (mpv--enqueue `("seek" ,secs "absolute") #'ignore))))))
+          (mpv-seek secs))))))
 
 ;;;###autoload
 (defun mpv-speed-set (factor)
@@ -326,6 +326,13 @@ Numeric arguments will be treated as seconds, repeated use
        (cl-signum (or (car arg) 1))
        (log (abs (or (car arg) 4)) 4))))
 
+;;;###autoload
+(defun mpv-seek (seconds)
+  "Seek to the given (absolute) time in SECONDS.
+A negative value is interpreted relative to the end of the file."
+  (interactive "nPosition in seconds: ")
+  (mpv--enqueue `("seek" ,seconds "absolute") #'ignore))
+
 ;;;###autoload
 (defun mpv-seek-forward (arg)
   "Seek forward ARG seconds.
@@ -342,5 +349,11 @@ of \\[universal-argument] will add another `mpv-seek-step' 
seconds."
   (interactive "P")
   (mpv-seek-forward (- (mpv--raw-prefix-to-seconds arg))))
 
+;;;###autoload
+(defun mpv-revert-seek ()
+  "Undo the previous seek command."
+  (interactive)
+  (mpv--enqueue '("revert-seek") #'ignore))
+
 (provide 'mpv)
 ;;; mpv.el ends here