ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

pop-os: Add service for playerctl bindings in stumpwm

Browse source
This commit is contained in:
Tom Willemse 2025-02-06 14:40:17 -08:00
parent 46c9198adc
commit a5eff7a9cc
3 changed files with 57 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
oni/home/config/pop-os.scm
View file

@ -33,7 +33,9 @@
home-stumpwm-gaps-service-type home-stumpwm-gaps-service-type
home-stumpwm-gaps-configuration home-stumpwm-gaps-configuration
home-stumpwm-stumptray-service-type home-stumpwm-stumptray-service-type
home-stumpwm-stumptray-configuration)) home-stumpwm-stumptray-configuration
home-stumpwm-playerctl-service-type
home-stumpwm-playerctl-configuration))
#:use-module (oni home services zsh) #:use-module (oni home services zsh)
#:use-module ((oni packages emacs) #:use-module ((oni packages emacs)
#:select (emacs-php-ts-mode)) #:select (emacs-php-ts-mode))
@ -156,4 +158,8 @@
(configurations (configurations
(list (mixed-text-file "config-stumptray" (list (mixed-text-file "config-stumptray"
"(require 'stumptray)\n" "(require 'stumptray)\n"
"(stumptray::stumptray)\n")))))))) "(stumptray::stumptray)\n")))))
(service home-stumpwm-playerctl-service-type
(home-stumpwm-playerctl-configuration
(configurations
(list (local-file "../services/stumpwm/playerctl.lisp"))))))))

44
oni/home/services/stumpwm.scm
View file

@ -8,6 +8,8 @@
serialize-text-config)) serialize-text-config))
#:use-module ((gnu packages lisp) #:use-module ((gnu packages lisp)
#:select (sbcl)) #:select (sbcl))
#:use-module ((gnu packages music)
#:select (playerctl))
#:use-module ((gnu packages wm) #:use-module ((gnu packages wm)
#:select (stumpwm #:select (stumpwm
stumpish stumpish
@ -38,7 +40,10 @@
home-stumpwm-gaps-configuration home-stumpwm-gaps-configuration
home-stumpwm-stumptray-service-type home-stumpwm-stumptray-service-type
home-stumpwm-stumptray-configuration)) home-stumpwm-stumptray-configuration
home-stumpwm-playerctl-service-type
home-stumpwm-playerctl-configuration))
(define (serialize-integer field value) (define (serialize-integer field value)
"") "")
@ -193,3 +198,40 @@
(compose identity) (compose identity)
(default-value (home-stumpwm-stumptray-configuration)) (default-value (home-stumpwm-stumptray-configuration))
(description "Install and configure stumpwm-stumptray."))) (description "Install and configure stumpwm-stumptray.")))
(define-configuration/no-serialization home-stumpwm-playerctl-configuration
(package
(package playerctl)
"Package to use for setting playerctl in stumpwm.")
(configurations
(text-config '())
"Configuration for playerctl in stumpwm."))
(define (add-stumpwm-playerctl-packages config)
(list (home-stumpwm-playerctl-configuration-package config)))
(define (add-stumpwm-playerctl config)
(home-stumpwm-extension
(configurations
(append
(list
(mixed-text-file
"playerctl.lisp"
"(defvar *playerctl-program* \""
(home-stumpwm-playerctl-configuration-package config)
"/bin/playerctl\")\n"))
(home-stumpwm-playerctl-configuration-configurations config)))))
(define home-stumpwm-playerctl-service-type
(service-type
(name 'home-stumpwm-playerctl)
(extensions
(list (service-extension
home-stumpwm-service-type
add-stumpwm-playerctl)
(service-extension
home-profile-service-type
add-stumpwm-playerctl-packages)))
(compose identity)
(default-value (home-stumpwm-playerctl-configuration))
(description "Install and configure playerctl in stumpwm.")))

6
oni/home/services/stumpwm/playerctl.lisp Normal file
View file

@ -0,0 +1,6 @@
(defvar *playerctl-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "SPC") (format nil "exec ~a play-pause" *playerctl-program*))
m))
(define-key *user-bindings* (kbd "p") '*playerctl-bindings*)