From 8a0f1eb5770582927dd6d7cca7718453277c0b71 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 5 Mar 2025 09:54:43 -0800 Subject: Setup playerctl to support mixing with pamixer setup If only one is imported and not the other, or they're imported in different orders, everything should still keep working. ‘defvar’ won't do anything if ‘*playerctl-bindings*’ already exists, and the ‘define-key’ will use whichever one was already defined. --- oni/home/services/stumpwm/playerctl.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/oni/home/services/stumpwm/playerctl.lisp b/oni/home/services/stumpwm/playerctl.lisp index 0e56454..b7dfc6c 100644 --- a/oni/home/services/stumpwm/playerctl.lisp +++ b/oni/home/services/stumpwm/playerctl.lisp @@ -1,6 +1,5 @@ -(defvar *playerctl-bindings* - (let ((m (make-sparse-keymap))) - (define-key m (kbd "SPC") (format nil "exec ~a play-pause" *playerctl-program*)) - m)) +(defvar *playerctl-bindings* (make-sparse-keymap)) + +(define-key *playerctl-bindings* (kbd "SPC") (format nil "exec ~a play-pause" *playerctl-program*)) (define-key *user-bindings* (kbd "p") '*playerctl-bindings*) -- cgit v1.3-2-g0d8e