mirror of
https://git.in.rschanz.org/ryan77627/guix-config.git
synced 2024-11-07 11:46:15 -05:00
100 lines
4.1 KiB
Scheme
100 lines
4.1 KiB
Scheme
|
(define-module (home-configuration pipewire)
|
||
|
|
#:use-module (gnu packages)
|
||
|
|
#:use-module (gnu packages linux)
|
||
|
|
#:use-module (gnu services)
|
||
|
|
#:use-module (gnu services configuration)
|
||
|
|
#:use-module (gnu home services)
|
||
|
|
#:use-module (gnu home services shepherd)
|
||
|
|
#:use-module (guix gexp))
|
||
|
|
|
||
|
|
(define (home-pipewire-profile-service config)
|
||
|
|
(map specification->package
|
||
|
|
(list "pipewire"
|
||
|
|
"wireplumber")))
|
||
|
|
|
||
|
|
(define (home-pipewire-shepherd-service config)
|
||
|
|
(list
|
||
|
|
;; Pipewire daemon
|
||
|
|
(shepherd-service
|
||
|
|
(requirement '(dbus))
|
||
|
|
(provision '(pipewire))
|
||
|
|
(stop #~(make-kill-destructor))
|
||
|
|
(start #~(make-forkexec-constructor
|
||
|
|
(list #$(file-append pipewire "/bin/pipewire"))
|
||
|
|
#:log-file (string-append
|
||
|
|
(or (getenv "XDG_LOG_HOME")
|
||
|
|
(format #f "~a/.local/var/log"
|
||
|
|
(getenv "HOME")))
|
||
|
|
"/pipewire.log")
|
||
|
|
#:environment-variables
|
||
|
|
(append (list "DISABLE_RTKIT=0")
|
||
|
|
(default-environment-variables)))))
|
||
|
|
;; Pipewire-pulse
|
||
|
|
(shepherd-service
|
||
|
|
(requirement '(pipewire))
|
||
|
|
(provision '(pipewire-pulse))
|
||
|
|
(stop #~(make-kill-destructor))
|
||
|
|
(start #~(make-forkexec-constructor
|
||
|
|
(list #$(file-append pipewire "/bin/pipewire-pulse"))
|
||
|
|
#:log-file (string-append
|
||
|
|
(or (getend "XDG_LOG_HOME")
|
||
|
|
(format #f "~a/.local/var/log"
|
||
|
|
(getenv "HOME")))
|
||
|
|
"/pipewire-pulse.log")
|
||
|
|
#:environment-variables
|
||
|
|
(append (list "DISABLE_RTKIT=0")
|
||
|
|
(default-environment-variables)))))
|
||
|
|
;; Wireplumber
|
||
|
|
(shepherd-service
|
||
|
|
(requirement '(pipewire))
|
||
|
|
(provision '(wireplumber))
|
||
|
|
(stop #~(make-kill-destructor))
|
||
|
|
(start #~(make-forkexec-constructor
|
||
|
|
(list #$(file-append wireplumber "/bin/wireplumber"))
|
||
|
|
#:log-file (string-append
|
||
|
|
(or (getenv "XDG_LOG_HOME")
|
||
|
|
(format #f "~a/.local/var/log"
|
||
|
|
(getenv "HOME")))
|
||
|
|
"/wireplumber.log")
|
||
|
|
#:environment-variables
|
||
|
|
(append (list "DISABLE_RTKIT=0")
|
||
|
|
(default-environment-variables)))))))
|
||
|
|
|
||
|
|
(define (home-pipewire-xdg-configuration-service config)
|
||
|
|
`(("alsa/asoundrc"
|
||
|
|
,(mixed-text-file
|
||
|
|
"asoundrc"
|
||
|
|
#~(string-append
|
||
|
|
"<"
|
||
|
|
#$(file-append
|
||
|
|
pipewire "/share/alsa/alsa.conf.d/50-pipewire.conf")
|
||
|
|
">\n<"
|
||
|
|
#$(file-append
|
||
|
|
pipewire "/share/alsa/alsa.conf.d/99-pipewire-default.conf")
|
||
|
|
">/n"
|
||
|
|
"
|
||
|
|
pcm_type.pipewire {
|
||
|
|
lib " #$(file-append pipewire "/lib/alsa-lib/libasound_module_pcm_pipewire.so")
|
||
|
|
"
|
||
|
|
}
|
||
|
|
ctl_type.pipewire {
|
||
|
|
lib " #$(file-append pipewire "/lib/alsa-lib/libasound_module_ctl_pipewire.so")
|
||
|
|
"
|
||
|
|
}
|
||
|
|
")))))
|
||
|
|
|
||
|
|
(define-public home-pipewire-service-type
|
||
|
|
(service-type (name 'home-pipewire)
|
||
|
|
(extensions
|
||
|
|
(list (service-extension
|
||
|
|
home-profile-service-type
|
||
|
|
home-pipewire-profile-service)
|
||
|
|
(service-extension
|
||
|
|
home-shepherd-service-type
|
||
|
|
home-pipewire-shepherd-service)
|
||
|
|
(service-extension
|
||
|
|
home-xdg-configuration-files-service-type
|
||
|
|
home-pipewire-xdg-configuration-service)))
|
||
|
|
(default-value #f)
|
||
|
|
(description "Configures and runs Pipewire and Wireplumber")))
|