branch: elpa/mpv
commit 2d40c4550558eb1bf35a69446777c4e9cae7a623
Author: Johann Klähn <joh...@jklaehn.de>
Commit: Johann Klähn <joh...@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
