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 @@
 | 
			
		|||
            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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue