services: ladspa: Export accessors.

* gnu/service/sound.scm: Export ladspa-configuration? and
ladspa-configuration-plugins.
(<ladspa-configuration>)[plugins]: Rename accessor to ladspa-configuration-plugins.
(ladspa-environment): Adjust to use renamed plugin accessor.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-02-18 00:51:33 +00:00 committed by Ludovic Courtès
parent 16a48d94bc
commit 8390b47c04
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -54,6 +54,8 @@ (define-module (gnu services sound)
pulseaudio-service-type
ladspa-configuration
ladspa-configuration?
ladspa-configuration-plugins
ladspa-service-type))
;;; Commentary:
@ -241,7 +243,7 @@ (define pulseaudio-service-type
(define-record-type* <ladspa-configuration>
ladspa-configuration make-ladspa-configuration
ladspa-configuration?
(plugins ladspa-plugins (default '())))
(plugins ladspa-configuration-plugins (default '())))
(define (ladspa-environment config)
;; Define this variable in the global environment such that
@ -249,7 +251,7 @@ (define (ladspa-environment config)
`(("LADSPA_PATH" .
(string-join
',(map (lambda (package) (file-append package "/lib/ladspa"))
(ladspa-plugins config))
(ladspa-configuration-plugins config))
":"))))
(define ladspa-service-type