summaryrefslogtreecommitdiff
path: root/gnu/services/sound.scm
diff options
context:
space:
mode:
authorBruno Victal <mirai@makinata.eu>2023-02-18 00:51:33 +0000
committerLudovic Courtès <ludo@gnu.org>2023-03-07 11:39:50 +0100
commit8390b47c045efca88785b5ed9210cb7aa13cb63a (patch)
treeebda33098fe2ce45fec9b1b30b2ebd5b5341c852 /gnu/services/sound.scm
parent16a48d94bc67afbfbe83ac4b2245ba94fd5bda70 (diff)
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>
Diffstat (limited to 'gnu/services/sound.scm')
-rw-r--r--gnu/services/sound.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm
index c3f64171dc..8ca7acd737 100644
--- a/gnu/services/sound.scm
+++ b/gnu/services/sound.scm
@@ -54,6 +54,8 @@
pulseaudio-service-type
ladspa-configuration
+ ladspa-configuration?
+ ladspa-configuration-plugins
ladspa-service-type))
;;; Commentary:
@@ -241,7 +243,7 @@ computed-file object~%") file))))
(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 @@ computed-file object~%") file))))
`(("LADSPA_PATH" .
(string-join
',(map (lambda (package) (file-append package "/lib/ladspa"))
- (ladspa-plugins config))
+ (ladspa-configuration-plugins config))
":"))))
(define ladspa-service-type