tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-28 05:00:29 +02:00
Code Activity

services: pulseaudio: Use match-record-lambda.

Browse Source 
* gnu/packages/sound.scm (pulseaudio-etc): Reimplement in terms of
match-record-lambda.
This commit is contained in:
Liliana Marie Prikler
2026-02-04 10:20:14 +01:00
parent 2201f7ad39
commit 1c7a4a564a
1 changed files with 23 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/services/sound.scm
View File

@@ -213,28 +213,29 @@ computed-file object~%") file))))
.include /etc/pulse/default.pa.d~%")))))))
(define pulseaudio-etc
(match-lambda
(($ <pulseaudio-configuration> client-conf daemon-conf default-script-file
extra-script-files system-script-file)
`(("pulse"
,(file-union
"pulse"
`(("default.pa"
,(if (null? extra-script-files)
default-script-file
(append-include-directive default-script-file)))
("system.pa" ,system-script-file)
,@(if (null? extra-script-files)
'()
`(("default.pa.d" ,(extra-script-files->file-union
extra-script-files))))
("daemon.conf"
,(apply mixed-text-file "daemon.conf"
"default-script-file = /etc/pulse/default.pa\n"
(map pulseaudio-conf-entry daemon-conf)))
("client.conf"
,(apply mixed-text-file "client.conf"
(map pulseaudio-conf-entry client-conf))))))))))
(match-record-lambda <pulseaudio-configuration>
;; Note: extra space for Emacs alignment.
( client-conf daemon-conf
script-file extra-script-files system-script-file )
`(("pulse"
,(file-union
"pulse"
`(("default.pa"
,(if (null? extra-script-files)
script-file
(append-include-directive script-file)))
("system.pa" ,system-script-file)
,@(if (null? extra-script-files)
'()
`(("default.pa.d" ,(extra-script-files->file-union
extra-script-files))))
("daemon.conf"
,(apply mixed-text-file "daemon.conf"
"default-script-file = /etc/pulse/default.pa\n"
(map pulseaudio-conf-entry daemon-conf)))
("client.conf"
,(apply mixed-text-file "client.conf"
(map pulseaudio-conf-entry client-conf)))))))))
(define pulseaudio-service-type
(service-type