diff options
| author |  Tom Willemse | 2025-08-21 11:00:29 -0700 |
|---|---|---|
| committer | Tom Willemse | 2025-08-21 11:00:29 -0700 |
| commit | a8a799d19dbed73c458f038fc0991742543a228f (patch) | |
| tree | e557a756ce55d3a0f736fb1773d8a3a5ddb3737a | |
| parent | e0707d82a2befe64aff07028f8f65c03b137da96 (diff) | |
| download | new-dotfiles-a8a799d19dbed73c458f038fc0991742543a228f.tar.gz new-dotfiles-a8a799d19dbed73c458f038fc0991742543a228f.zip | |
stumpwm: Simplify audio controls
| -rw-r--r-- | oni/home/services/stumpwm/pamixer.lisp | 9 | ||||
| -rw-r--r-- | oni/home/services/stumpwm/playerctl.lisp | 9 |
2 files changed, 9 insertions, 9 deletions
diff --git a/oni/home/services/stumpwm/pamixer.lisp b/oni/home/services/stumpwm/pamixer.lisp index 35ccf9e..d7b2980 100644 --- a/oni/home/services/stumpwm/pamixer.lisp +++ b/oni/home/services/stumpwm/pamixer.lisp @@ -1,6 +1,5 @@ -(defvar *playerctl-bindings* (make-sparse-keymap)) +(in-package :stumpwm-user) -(define-key *playerctl-bindings* (kbd "+") (format nil "exec ~a -i 10" *pamixer-program*)) -(define-key *playerctl-bindings* (kbd "-") (format nil "exec ~a -d 10" *pamixer-program*)) - -(define-key *user-bindings* (kbd "p") '*playerctl-bindings*) +(define-key *top-map* (kbd "XF86AudioRaiseVolume") (format nil "exec ~a --increase 10" *pamixer-program*)) +(define-key *top-map* (kbd "XF86AudioLowerVolume") (format nil "exec ~a --decrease 10" *pamixer-program*)) +(define-key *top-map* (kbd "XF86AudioMute") (format nil "exec ~a --toggle-mute" *pamixer-program*)) diff --git a/oni/home/services/stumpwm/playerctl.lisp b/oni/home/services/stumpwm/playerctl.lisp index b7dfc6c..7505cd7 100644 --- a/oni/home/services/stumpwm/playerctl.lisp +++ b/oni/home/services/stumpwm/playerctl.lisp @@ -1,5 +1,6 @@ -(defvar *playerctl-bindings* (make-sparse-keymap)) +(in-package :stumpwm-user) -(define-key *playerctl-bindings* (kbd "SPC") (format nil "exec ~a play-pause" *playerctl-program*)) - -(define-key *user-bindings* (kbd "p") '*playerctl-bindings*) +(define-key *top-map* (kbd "XF86AudioStop") (format nil "exec ~a stop" *playerctl-program*)) +(define-key *top-map* (kbd "XF86AudioPlay") (format nil "exec ~a play-pause" *playerctl-program*)) +(define-key *top-map* (kbd "XF86AudioNext") (format nil "exec ~a next" *playerctl-program*)) +(define-key *top-map* (kbd "XF86AudioPrev") (format nil "exec ~a previous" *playerctl-program*)) |