[STUMP] amixer device

[Vitaly Mayatskikh]

Hi!

I need to specify exact device for amixer to let it chance to control
real buzzer (it is not a `default' in my system). (defconstant
+amixer-dev+ ...) in ~/.stumpwrc and the patch do this.

diff --git a/contrib/amixer.lisp b/contrib/amixer.lisp
index 617a7ff..1c1c180 100644
--- a/contrib/amixer.lisp
+++ b/contrib/amixer.lisp
@@ -47,7 +47,9 @@
 (defun volcontrol (channel amount)
   (let ((percent (parse-integer
                  (run-shell-command
-                  (concat "amixer sset " channel " " (or amount "toggle")
+                  (concat "amixer " (when (boundp '+amixer-dev+)
+                                      (format nil "-c ~D " +amixer-dev+))
+                          "sset " channel " " (or amount "toggle")
                           "| tail -1"
                           "| sed 's/^.*\\[\\([[:digit:]]\\+\\)%\\].*$/\\1/'")
                   t))))

--
wbr, Vitaly