me/guix
Archived
1
0
Fork 0
Code Activity

services: ladspa: Export accessors.

Browse source 
* 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
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/services/sound.scm
View file

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