The Lambda Lab
/
projects
/
emus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added mpg123 command-line arguments
[emus.git]
/
emus.el
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"))