diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 21:46:29 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-03-16 23:03:17 +0100 |
commit | 8f219e658d8d2d89a2d6ec10729099130791a3a2 (patch) | |
tree | 5b7302a7e432be59f8317be12fff01dd772bd851 /gnu/home/services/media.scm | |
parent | 9cb17464679de2c29aa6db0b0a11142bfb4ca042 (diff) |
home: services: kodi, znc, ssh-agent: Use 'match-record'.
* gnu/home/services/media.scm (home-kodi-services): Use 'match-record'
instead of 'match'.
* gnu/home/services/messaging.scm (home-znc-services): Likewise.
* gnu/home/services/ssh.scm (home-ssh-agent-services): Likewise.
Diffstat (limited to 'gnu/home/services/media.scm')
-rw-r--r-- | gnu/home/services/media.scm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/gnu/home/services/media.scm b/gnu/home/services/media.scm index 25e83ea4b9..c6454dfe15 100644 --- a/gnu/home/services/media.scm +++ b/gnu/home/services/media.scm @@ -18,7 +18,6 @@ (define-module (gnu home services media) #:use-module (srfi srfi-26) - #:use-module (ice-9 match) #:use-module (gnu home services) #:use-module (gnu home services shepherd) #:use-module (gnu packages kodi) @@ -44,18 +43,18 @@ (define (home-kodi-services config) "Return a <shepherd-service> for kodi with CONFIG." - (match config - (($ <home-kodi-configuration> kodi extra-options) - (let* ((kodi (file-append kodi "/bin/kodi")) - (command #~'(#$kodi "-fs" #$@extra-options)) - (log-file #~(string-append %user-log-dir "/kodi.log"))) - (list (shepherd-service - (documentation "Run the kodi media center.") - (provision '(kodi)) - (modules '((shepherd support))) ;for '%user-log-dir' - (start #~(make-forkexec-constructor #$command - #:log-file #$log-file)) - (stop #~(make-kill-destructor)))))))) + (match-record config <home-kodi-configuration> + (kodi extra-options) + (let* ((kodi (file-append kodi "/bin/kodi")) + (command #~'(#$kodi "-fs" #$@extra-options)) + (log-file #~(string-append %user-log-dir "/kodi.log"))) + (list (shepherd-service + (documentation "Run the kodi media center.") + (provision '(kodi)) + (modules '((shepherd support))) ;for '%user-log-dir' + (start #~(make-forkexec-constructor #$command + #:log-file #$log-file)) + (stop #~(make-kill-destructor))))))) (define home-kodi-service-type (service-type |