stumpwm/sound.lisp @ dedc81b8510c
Diagram
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Tue, 19 Mar 2024 14:06:36 -0400 |
| parents | 4673e928c08e |
| children | ea681bd9c52d |
(in-package :stumpwm-user) (defcommand mute () () (run-shell-command "mute") (echo "Muted.")) (defcommand volume-up () () (run-shell-command "amixer -q sset Master 5%+") (message "Volume: ~D%" (volume))) (defcommand volume-down () () (run-shell-command "amixer -q sset Master 5%-") (message "Volume: ~D%" (volume)))