mirror of
https://github.com/stumpwm/stumpwm-contrib.git
synced 2026-09-10 07:26:25 -04:00
Merge pull request #224 from fagg/stumpwm-sndioctl
Add stumpwm-sndioctl
This commit is contained in:
Javier Olaechea
GitHub
commit
1dd7729e64
|
|
@ -77,6 +77,7 @@ Advertise your module here, open a PR and include a org-mode link!
|
|||
- [[./media/amixer/README.org][amixer]] :: Manipulate the volume using amixer
|
||||
- [[./media/stump-radio/README.org][stump-radio]] :: Minimalistic mplayer-based radio for StumpWM.
|
||||
- [[./media/stump-volume-control/README.org][stump-volume-control]] :: Minimalistic amixer-based volume control for StumpWM.
|
||||
- [[./media/stumpwm-sndioctl/README.md][stumpwm-sndioctl]] :: Interface to OpenBSD's sndioctl for StumpWM.
|
||||
** Minor Modes
|
||||
- [[./minor-mode/mpd/README.org][mpd]] :: Displays information about the music player daemon (MPD).
|
||||
- [[./minor-mode/notifications/README.org][notifications]] :: A notification library that sends notifications to the modeline via stumpish or from stumpwm itself.
|
||||
|
|
|
|||
38
media/stumpwm-sndioctl/README.md
Normal file
38
media/stumpwm-sndioctl/README.md
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
# stumpwm-sndioctl
|
||||
|
||||
stumpwm-sndioctl adds some features to StumpWM so you can control the
|
||||
volume using OpenBSD's sndioctl, and have it show you pretty messages
|
||||
as you make changes.
|
||||
|
||||
After loading the module, add something like this to your StumpWM config:
|
||||
```
|
||||
(define-key *top-map* (kbd "XF86AudioMute") "toggle-mute")
|
||||
(define-key *top-map* (kbd "XF86AudioLowerVolume") "volume-down")
|
||||
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "volume-up")
|
||||
```
|
||||
The code is documented in Lisp style (i.e. self documenting), see
|
||||
`stumpwm-sndioctl.lisp` for all the knobs you can turn.
|
||||
|
||||
You can find the upstream repo at:
|
||||
|
||||
https://github.com/fagg/stumpwm-sndioctl
|
||||
|
||||
## License
|
||||
|
||||
Copyright 2021, Dr Ashton Fagg <ashton@fagg.id.au>
|
||||
|
||||
Permission to use, copy, modify, and/or distribute this software for
|
||||
any purpose with or without fee is hereby granted, provided that the
|
||||
above copyright notice and this permission notice appear in all
|
||||
copies.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
|
||||
WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
|
||||
WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
|
||||
AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
|
||||
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
||||
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
||||
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
||||
PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
|
||||
28
media/stumpwm-sndioctl/package.lisp
Normal file
28
media/stumpwm-sndioctl/package.lisp
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
;;;; package.lisp
|
||||
|
||||
;;;; Copyright 2021, Dr Ashton Fagg <ashton@fagg.id.au>
|
||||
;;;;
|
||||
;;;; Permission to use, copy, modify, and/or distribute this software for
|
||||
;;;; any purpose with or without fee is hereby granted, provided that the
|
||||
;;;; above copyright notice and this permission notice appear in all
|
||||
;;;; copies.
|
||||
;;;;
|
||||
;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
|
||||
;;;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
|
||||
;;;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
|
||||
;;;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
|
||||
;;;; DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
||||
;;;; PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
||||
;;;; TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
||||
;;;; PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
(defpackage #:stumpwm-sndioctl
|
||||
(:use #:cl #:stumpwm)
|
||||
(:export #:*terse*
|
||||
#:*step*
|
||||
#:volume-up
|
||||
#:volume-down
|
||||
#:toggle-mute
|
||||
#:set-mute
|
||||
#:unset-mute))
|
||||
|
||||
28
media/stumpwm-sndioctl/stumpwm-sndioctl.asd
Normal file
28
media/stumpwm-sndioctl/stumpwm-sndioctl.asd
Normal file
|
|
@ -0,0 +1,28 @@
|
|||
;;;; stump-sndioctl.asd
|
||||
|
||||
;;;; Copyright 2021, Dr Ashton Fagg <ashton@fagg.id.au>
|
||||
;;;;
|
||||
;;;; Permission to use, copy, modify, and/or distribute this software for
|
||||
;;;; any purpose with or without fee is hereby granted, provided that the
|
||||
;;;; above copyright notice and this permission notice appear in all
|
||||
;;;; copies.
|
||||
;;;;
|
||||
;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
|
||||
;;;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
|
||||
;;;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
|
||||
;;;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
|
||||
;;;; DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
||||
;;;; PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
||||
;;;; TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
||||
;;;; PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
(asdf:defsystem #:stumpwm-sndioctl
|
||||
:description "Interface to OpenBSD's sndioctl from StumpWM."
|
||||
:author "Dr Ashton Fagg <ashton@fagg.id.au>"
|
||||
:license "ISC""
|
||||
:version "0.0.1"
|
||||
:homepage "https://github.com/fagg/stumpwm-sndioctl"
|
||||
:serial t
|
||||
:depends-on (#:stumpwm)
|
||||
:components ((:file "package")
|
||||
(:file "stumpwm-sndioctl")))
|
||||
88
media/stumpwm-sndioctl/stumpwm-sndioctl.lisp
Normal file
88
media/stumpwm-sndioctl/stumpwm-sndioctl.lisp
Normal file
|
|
@ -0,0 +1,88 @@
|
|||
;;;; stumpwm-sndioctl.lisp
|
||||
|
||||
;;;; Copyright 2021, Dr Ashton Fagg <ashton@fagg.id.au>
|
||||
;;;;
|
||||
;;;; Permission to use, copy, modify, and/or distribute this software for
|
||||
;;;; any purpose with or without fee is hereby granted, provided that the
|
||||
;;;; above copyright notice and this permission notice appear in all
|
||||
;;;; copies.
|
||||
;;;;
|
||||
;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
|
||||
;;;; WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
|
||||
;;;; WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
|
||||
;;;; AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
|
||||
;;;; DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
||||
;;;; PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
||||
;;;; TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
||||
;;;; PERFORMANCE OF THIS SOFTWARE.
|
||||
|
||||
|
||||
(in-package #:stumpwm-sndioctl)
|
||||
|
||||
|
||||
(defvar *step* 0.05)
|
||||
(defvar *terse* nil "If t, this will supress messages that get shown on changes to volume.")
|
||||
|
||||
(defun call-sndioctl (args captive)
|
||||
"Calls sndioctl with the required arguments."
|
||||
(run-shell-command (format nil "sndioctl ~a" args) captive))
|
||||
|
||||
(defun make-step-cmd (direction)
|
||||
"Helpful wrapper for generating command strings for incrementing/decrementing volume."
|
||||
(cond
|
||||
((string= "+" direction)
|
||||
(format nil "-q output.level=+~a" *step*))
|
||||
((string= "-" direction)
|
||||
(format nil "-q output.level=-~a" *step*))
|
||||
(t (error "Not a valid step direction!"))))
|
||||
|
||||
(defun get-mute-state-string ()
|
||||
"Returns a nicely formatted string containing the current mute state."
|
||||
(let ((state (aref (call-sndioctl "-n output.mute" t) 0)))
|
||||
(cond
|
||||
((string= "0" state)
|
||||
(format nil "Muted: No"))
|
||||
((string= "1" state)
|
||||
(format nil "Muted: Yes"))
|
||||
(t (error "Unknown output from sndioctl -n output.mute")))))
|
||||
|
||||
(defun get-volume-level-string ()
|
||||
"Returns a nicely formatted string containing the current volume level."
|
||||
(let ((level
|
||||
(with-input-from-string (vol-str (call-sndioctl "-n output.level" t))
|
||||
(read vol-str))))
|
||||
(format nil "Volume: ~2$%" (* 100.0 level))))
|
||||
|
||||
(defun sndioctl-status-message ()
|
||||
"Returns a string indicating currrent sndioctl state."
|
||||
(format nil "~a ~a" (get-volume-level-string) (get-mute-state-string)))
|
||||
|
||||
(defcommand volume-up () ()
|
||||
"Volume goes up"
|
||||
(call-sndioctl (make-step-cmd "+") nil)
|
||||
(if (not *terse*)
|
||||
(message (sndioctl-status-message))))
|
||||
|
||||
(defcommand volume-down () ()
|
||||
"Volume goes down"
|
||||
(call-sndioctl (make-step-cmd "-") nil)
|
||||
(if (not *terse*)
|
||||
(message (sndioctl-status-message))))
|
||||
|
||||
(defcommand toggle-mute () ()
|
||||
"Toggles mute"
|
||||
(call-sndioctl "-q output.mute=!" nil)
|
||||
(if (not *terse*)
|
||||
(message (sndioctl-status-message))))
|
||||
|
||||
(defcommand set-mute () ()
|
||||
"Force sets mute to ON"
|
||||
(call-sndioctl "-q output.mute=1" nil)
|
||||
(if (not *terse*)
|
||||
(message (sndioctl-status-message))))
|
||||
|
||||
(defcommand unset-mute () ()
|
||||
"Force sets mute to OFF"
|
||||
(call-sndioctl "-q output.mute=0" nil)
|
||||
(if (not *terse*)
|
||||
(message (sndioctl-status-message))))
|
||||
Loading…
Reference in a new issue