Added mpg123 command-line arguments

diff --git a/emus.el b/emus.el
index 22ac2a8..e5f2ea3 100644 (file)
--- a/emus.el
+++ b/emus.el
@@ -56,6 +56,10 @@
   "Name of (and, optionally, path to) mpg123 binary."
   :type '(string))
 
   "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))
 (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"
         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"))
         (set-process-query-on-exit-flag proc nil)
         (unless emus-progress-enabled
           (process-send-string proc "silence\n"))