diff options
| -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*)) |