x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

unifiy -c and -D options for amixer

Browse source 
see discussion https://github.com/stumpwm/stumpwm-contrib/pull/187

I don't know where to put tests, I tested with:
```
(list (let ((*default-device* "default"))
        (list (string= (translate-device-to-option nil) "-D default ")
             (string= (translate-device-to-option 1) "-D hw:1 ")
             (string= (translate-device-to-option "my-device") "-D my-device ")))
      (let ((*default-device* 0))
        (list (string= (translate-device-to-option nil) "-D hw:0 ")
              (string= (translate-device-to-option 1) "-D hw:1 ")
              (string= (translate-device-to-option "my-device") "-D my-device ")))
      (let ((*default-device* nil))
        (list (string= (translate-device-to-option nil) "")
              (string= (translate-device-to-option 1) "-D hw:1 ")
              (string= (translate-device-to-option "my-device") "-D my-device "))))
```
This commit is contained in:
mgr 2020-04-08 17:28:02 +02:00
parent dd5b037923
commit 98c7692070
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
media/amixer/amixer.lisp
View file

@ -9,12 +9,25 @@
;;; Maintainer: Ivy Foster
;;;
;;; Code:
(defvar *default-device* "default")
(defvar *default-device* "default"
"default audio device to control by amixer, string, number, or null.
If it is a string, it will be used as a device name as it is,
if it is a number it will be translated to the string \"hw:0\",
if NIL don't send any device at all.")
(defun translate-device-to-option (device)
"see docstring of *DEFAULT-DEVICE*"
(etypecase device
(string (format nil "-D ~a " device))
(number (format nil "-D hw:~d " device))
(null (if *default-device*
(translate-device-to-option *default-device*)
""))))
(defun volcontrol (device channel amount)
(let* ((output (run-shell-command
(concat "amixer -D "
(or device *default-device*)
(concat "amixer "
(translate-device-to-option device)
" sset "
channel
" "