diff options
| author |  Tom Willemse | 2025-03-05 09:43:46 -0800 |
|---|---|---|
| committer | Tom Willemse | 2025-03-05 09:54:08 -0800 |
| commit | 869e4f00d46baf5f4b6b600f6942681d90d5ed15 (patch) | |
| tree | 6e7546d14c999782b56c58f763d266de13f0ee49 /oni/home/services | |
| parent | fe01c5e98f37999f127f112ac312818422bb275a (diff) | |
| download | new-dotfiles-869e4f00d46baf5f4b6b600f6942681d90d5ed15.tar.gz new-dotfiles-869e4f00d46baf5f4b6b600f6942681d90d5ed15.zip | |
pop-os: Add vterm configuration and pamixer
Diffstat (limited to 'oni/home/services')
| -rw-r--r-- | oni/home/services/stumpwm.scm | 44 | ||||
| -rw-r--r-- | oni/home/services/stumpwm/pamixer.lisp | 6 |
2 files changed, 49 insertions, 1 deletions
diff --git a/oni/home/services/stumpwm.scm b/oni/home/services/stumpwm.scm index 56d1ae3..9bde255 100644 --- a/oni/home/services/stumpwm.scm +++ b/oni/home/services/stumpwm.scm @@ -10,6 +10,8 @@ #:select (sbcl)) #:use-module ((gnu packages music) #:select (playerctl)) + #:use-module ((gnu packages pulseaudio) + #:select (pamixer)) #:use-module ((gnu packages wm) #:select (stumpwm stumpish @@ -43,7 +45,10 @@ home-stumpwm-stumptray-configuration home-stumpwm-playerctl-service-type - home-stumpwm-playerctl-configuration)) + home-stumpwm-playerctl-configuration + + home-stumpwm-pamixer-service-type + home-stumpwm-pamixer-configuration)) (define (serialize-integer field value) "") @@ -235,3 +240,40 @@ (compose identity) (default-value (home-stumpwm-playerctl-configuration)) (description "Install and configure playerctl in stumpwm."))) + +(define-configuration/no-serialization home-stumpwm-pamixer-configuration + (package + (package pamixer) + "Package to use for setting pamixer in stumpwm.") + (configurations + (text-config '()) + "Configuration for pamixer in stumpwm.")) + +(define (add-stumpwm-pamixer-packages config) + (list (home-stumpwm-pamixer-configuration-package config))) + +(define (add-stumpwm-pamixer config) + (home-stumpwm-extension + (configurations + (append + (list + (mixed-text-file + "pamixer.lisp" + "(defvar *pamixer-program* \"" + (home-stumpwm-pamixer-configuration-package config) + "/bin/pamixer\")\n")) + (home-stumpwm-pamixer-configuration-configurations config))))) + +(define home-stumpwm-pamixer-service-type + (service-type + (name 'home-stumpwm-pamixer) + (extensions + (list (service-extension + home-stumpwm-service-type + add-stumpwm-pamixer) + (service-extension + home-profile-service-type + add-stumpwm-pamixer-packages))) + (compose identity) + (default-value (home-stumpwm-pamixer-configuration)) + (description "Install and configure pamixer in stumpwm."))) diff --git a/oni/home/services/stumpwm/pamixer.lisp b/oni/home/services/stumpwm/pamixer.lisp new file mode 100644 index 0000000..35ccf9e --- /dev/null +++ b/oni/home/services/stumpwm/pamixer.lisp @@ -0,0 +1,6 @@ +(defvar *playerctl-bindings* (make-sparse-keymap)) + +(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*) |