mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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:
parent
16a48d94bc
commit
8390b47c04
1 changed files with 4 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue