guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#61590] [PATCH 3/3] services: ladspa: Export accessors.


From: Bruno Victal
Subject: [bug#61590] [PATCH 3/3] services: ladspa: Export accessors.
Date: Sat, 18 Feb 2023 00:51:33 +0000

* 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.
---
 gnu/services/sound.scm | 6 ++++--
 1 file 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 @@ (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
-- 
2.39.1






reply via email to

[Prev in Thread] Current Thread [Next in Thread]