diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2026-02-04 10:20:14 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2026-02-25 13:32:34 +0100 |
| commit | 1c7a4a564a72a97954d51300bb50ce058a4eaa3b (patch) | |
| tree | 48c070ad57fde2513bb697296e9b862c5c28119f | |
| parent | 2201f7ad394932ce52248a3eb433af59dc680548 (diff) | |
services: pulseaudio: Use match-record-lambda.
* gnu/packages/sound.scm (pulseaudio-etc): Reimplement in terms of
match-record-lambda.
| -rw-r--r-- | gnu/services/sound.scm | 45 |
1 files changed, 23 insertions, 22 deletions
diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm index 97520815de3..b41ff3921b1 100644 --- a/gnu/services/sound.scm +++ b/gnu/services/sound.scm @@ -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 |