me
/
guix
Archived
1
0
Fork 0
Code

services: Add pulseaudio service. 

* gnu/services/sound.scm (pulseaudio-environment): New procedure.
(pulseaudio-service-type): New variable.
* doc/guix.texi (Sound Services): Document it.
master
Oleg Pykhalov 2020-01-05 20:11:01 +03:00
parent 9f5cb517d0
commit a66ee82a05
No known key found for this signature in database
GPG Key ID: 167F8EA5001AFA9C
2 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
doc/guix.texi
View File

@ -15951,6 +15951,20 @@ pcm.!default @{
See @uref{https://www.alsa-project.org/main/index.php/Asoundrc} for the See @uref{https://www.alsa-project.org/main/index.php/Asoundrc} for the
details. details.
@deffn {Scheme Variable} pulseaudio-service-type
This is the type for the @uref{http://www.pulseaudio.org/, PulseAudio
sound server}, which sets the @var{LADSPA_PATH} environment variable to
allow PulseAudio load modules from @code{swh-plugins} package.
See @uref{http://plugin.org.uk/ladspa-swh/docs/ladspa-swh.html} for the
details.
The following example will setup the service:
@lisp
(service pulseaudio-service-type)
@end lisp
@end deffn
@node Database Services @node Database Services
@subsection Database Services @subsection Database Services

28
gnu/services/sound.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -21,16 +21,20 @@
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu system pam)
#:use-module (gnu system shadow) #:use-module (gnu system shadow)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix store) #:use-module (guix store)
#:use-module (gnu packages audio)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages pulseaudio) #:use-module (gnu packages pulseaudio)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (alsa-configuration #:export (alsa-configuration
alsa-service-type)) alsa-service-type
pulseaudio-service-type))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -97,4 +101,24 @@ ctl.!default {
(default-value (alsa-configuration)) (default-value (alsa-configuration))
(description "Configure low-level Linux sound support, ALSA."))) (description "Configure low-level Linux sound support, ALSA.")))
;;;
;;; PulseAudio
;;;
(define (pulseaudio-environment config)
;; Define this variable in the global environment such that
;; pulseaudio swh-plugins works.
`(("LADSPA_PATH"
. ,(file-append swh-plugins "/lib/ladspa"))))
(define pulseaudio-service-type
(service-type
(name 'pulseaudio)
(extensions
(list (service-extension session-environment-service-type
pulseaudio-environment)))
(default-value #f)
(description "Configure PulseAudio sound support.")))
;;; sound.scm ends here ;;; sound.scm ends here