From 8390b47c045efca88785b5ed9210cb7aa13cb63a Mon Sep 17 00:00:00 2001 From: Bruno Victal Date: Sat, 18 Feb 2023 00:51:33 +0000 Subject: services: ladspa: Export accessors. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/service/sound.scm: Export ladspa-configuration? and ladspa-configuration-plugins. ()[plugins]: Rename accessor to ladspa-configuration-plugins. (ladspa-environment): Adjust to use renamed plugin accessor. Signed-off-by: Ludovic Courtès --- gnu/services/sound.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu/services') 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 @@ (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 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 -- cgit v1.2.3