From: plugd <plugd@thelambdalab.xyz>
Date: Sun, 20 Aug 2023 16:49:29 +0000 (+0200)
Subject: Added mpg123 command-line arguments
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=HEAD;p=emus.git

Added mpg123 command-line arguments
---

diff --git a/emus.el b/emus.el
index 22ac2a8..e5f2ea3 100644
--- a/emus.el
+++ b/emus.el
@@ -56,6 +56,10 @@
   "Name of (and, optionally, path to) mpg123 binary."
   :type '(string))
 
+(defcustom emus-mpg123-args nil
+  "Arguments to pass to mpg123."
+  :type '(repeat string))
+
 (defface emus-artist
   '((((background dark)) :inherit font-lock-string-face :background "#222" :extend t)
     (t :inherit font-lock-string-face :background "#ddd" :extend t))
@@ -125,7 +129,9 @@ To enable or disable progress tracking, using `emus-toggle-progress-tracking'.
         emus-process
       (let ((proc
              (make-process :name "emus-process"
-                           :command `(,emus-mpg123-program "-R"))))
+                           :command `(,emus-mpg123-program
+                                      ,@emus-mpg123-args
+                                      "-R"))))
         (set-process-query-on-exit-flag proc nil)
         (unless emus-progress-enabled
           (process-send-string proc "silence\n"))