emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/mpv 0a02225f4e 30/50: autoload all interactive functions


From: ELPA Syncer
Subject: [nongnu] elpa/mpv 0a02225f4e 30/50: autoload all interactive functions
Date: Tue, 28 Dec 2021 00:58:42 -0500 (EST)

branch: elpa/mpv
commit 0a02225f4ef23eea3af8ccf251d740b5d0fb8bb7
Author: Johann Klähn <kljohann@gmail.com>
Commit: Johann Klähn <kljohann@gmail.com>

    autoload all interactive functions
---
 mpv.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/mpv.el b/mpv.el
index 7b91bb4f16..4d6a270705 100644
--- a/mpv.el
+++ b/mpv.el
@@ -197,6 +197,7 @@ See `mpv-start' if you need to pass further arguments and
   (interactive "fFile: ")
   (start path))
 
+:autoload
 (defun kill ()
   "Kill the mpv process."
   (interactive)
@@ -207,11 +208,13 @@ See `mpv-start' if you need to pass further arguments and
   (setq -process nil)
   (setq -queue nil))
 
+:autoload
 (defun pause ()
   "Pause or unpause playback."
   (interactive)
   (-enqueue '("cycle" "pause") #'ignore))
 
+:autoload
 (defun insert-playback-position (&optional arg)
   "Insert the current playback position at point.
 
@@ -249,6 +252,7 @@ See `org-timer-item' which this is based on."
       (org-indent-line)
       (insert  (concat "- " time-string " :: "))))))
 
+:autoload
 (defun seek-to-position-at-point ()
   "Jump to playback position as inserted by `mpv-insert-playback-position'.
 
@@ -261,11 +265,13 @@ This can be used with the `org-open-at-point-functions' 
hook."
         (when (> secs 0)
           (-enqueue `("seek" ,secs "absolute") #'ignore))))))
 
+:autoload
 (defun speed-set (factor)
   "Set playback speed to FACTOR."
   (interactive "nFactor: ")
   (-enqueue `("set" "speed" ,(abs factor)) #'ignore))
 
+:autoload
 (defun speed-increase (steps)
   "Increase playback speed by STEPS factors of `mpv-speed-step'."
   (interactive "p")
@@ -275,6 +281,7 @@ This can be used with the `org-open-at-point-functions' 
hook."
                      (/ 1 mpv-speed-step)))))
     (-enqueue `("multiply" "speed" ,factor) #'ignore)))
 
+:autoload
 (defun speed-decrease (steps)
   "Decrease playback speed by STEPS factors of `mpv-speed-step'."
   (interactive "p")
@@ -290,6 +297,7 @@ Numeric arguments will be treated as seconds, repeated use
        (cl-signum (or (car arg) 1))
        (log (abs (or (car arg) 4)) 4))))
 
+:autoload
 (defun seek-forward (arg)
   "Seek forward ARG seconds.
 If ARG is numeric, it is used as the number of seconds.  Else each use
@@ -297,6 +305,7 @@ of \\[universal-argument] will add another `mpv-seek-step' 
seconds."
   (interactive "P")
   (-enqueue `("seek" ,(-raw-prefix-to-seconds arg) "relative") #'ignore))
 
+:autoload
 (defun seek-backward (arg)
   "Seek backward ARG seconds.
 If ARG is numeric, it is used as the number of seconds.  Else each use



reply via email to

[Prev in Thread] Current Thread [Next in Thread]