From a8a799d19dbed73c458f038fc0991742543a228f Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 21 Aug 2025 11:00:29 -0700 Subject: stumpwm: Simplify audio controls --- oni/home/services/stumpwm/pamixer.lisp | 9 ++++----- 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*)) -- cgit v1.3-2-g0d8e