[nongnu] elpa/mpv ce3bbfac36 22/50: add mpv-default-options

[ELPA Syncer]

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

    add mpv-default-options
---
 mpv.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/mpv.el b/mpv.el
index 7490921bff..908fc4c951 100644
--- a/mpv.el
+++ b/mpv.el
@@ -55,6 +55,10 @@
   "Name or path to the mpv executable."
   :type 'file)
 
+(defcustom default-options nil
+  "List of default options to be passed to mpv."
+  :type '(repeat string))
+
 (defcustom speed-step 1.10
   "Scale factor used when adjusting playback speed."
   :type 'number)
@@ -73,14 +77,16 @@
   "Start an mpv process with the specified ARGS.
 
 If there already is an mpv process controlled by this Emacs instance,
-it will be killed."
+it will be killed.  Options specified in `mpv-default-options' will be
+prepended to ARGS."
   (kill)
   (let ((socket (make-temp-name
                  (expand-file-name "mpv-" temporary-file-directory))))
     (setq -process
           (apply #'start-process "mpv-player" nil executable
                  "--no-terminal"
-                 (concat "--input-unix-socket=" socket) args))
+                 (concat "--input-unix-socket=" socket)
+                 (append default-options args)))
     (set-process-query-on-exit-flag -process nil)
     (while (and (live-p) (not (file-exists-p socket)))
       (sleep-for 0.05))
@@ -154,7 +160,9 @@ drops unsolicited event messages."
 (defun play (path)
   "Start an mpv process playing the file at PATH.
 
-You can use this with `org-add-link-type' or `org-file-apps'."
+You can use this with `org-add-link-type' or `org-file-apps'.
+See `mpv-start' if you need to pass further arguments and
+`mpv-default-options' for default options."
   (interactive "fFile: ")
   (start path))