diff options
author | Timo Wilken | 2023-06-03 23:59:17 +0200 |
---|---|---|
committer | Timo Wilken | 2023-06-03 23:59:17 +0200 |
commit | 1bb96ebf8b93b856de64d7bb02c8fb47254932cb (patch) | |
tree | c7159da346a3179333c72d36248b2a4620758c22 /tw/services/media.scm | |
parent | bb169097d97e9ff20e56d7d1a950866c6b25f007 (diff) |
Indent *-file functions more conveniently
Files with potentially long or complex contents shouldn't be indented quite as
far.
Diffstat (limited to 'tw/services/media.scm')
-rw-r--r-- | tw/services/media.scm | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/tw/services/media.scm b/tw/services/media.scm index ec4d0afc..36637093 100644 --- a/tw/services/media.scm +++ b/tw/services/media.scm @@ -44,16 +44,15 @@ run the download script. By default, picks a random time between 04:00 and (string-append (yt-dlp-configuration-media-directory config) "/.yt-dlp/yt-dlp")))) #~(job #$(yt-dlp-configuration-schedule config) - #$(program-file - "yt-dlp-command" - #~(begin - (setenv "SSL_CERT_DIR" #$(file-append nss-certs "/etc/ssl/certs")) - (chdir #$(yt-dlp-configuration-media-directory config)) - ;; Auto-update if we're using yt-dlp from the media directory. - #$@(if yt-dlp-package '() - (list #~(system* #$yt-dlp-executable "--ignore-config" "--update"))) - (execl #$yt-dlp-executable - "yt-dlp" "--ignore-config" "--config-location" ".yt-dlp"))) + #$(program-file "yt-dlp-command" + #~(begin + (setenv "SSL_CERT_DIR" #$(file-append nss-certs "/etc/ssl/certs")) + (chdir #$(yt-dlp-configuration-media-directory config)) + ;; Auto-update if we're using yt-dlp from the media directory. + #$@(if yt-dlp-package '() + (list #~(system* #$yt-dlp-executable "--ignore-config" "--update"))) + (execl #$yt-dlp-executable + "yt-dlp" "--ignore-config" "--config-location" ".yt-dlp"))) #:user #$(yt-dlp-configuration-user config))))) (define yt-dlp-service-type @@ -77,14 +76,13 @@ run the download script. By default, picks a random time between 01:00 and (define (get-iplayer-cronjob config) (list #~(job #$(get-iplayer-configuration-schedule config) - #$(program-file - "get-iplayer-command" - #~(begin - (setenv "SSL_CERT_DIR" #$(file-append nss-certs "/etc/ssl/certs")) - (execl #$(file-append (get-iplayer-configuration-get-iplayer config) - "/bin/get_iplayer") - "get_iplayer" "--pvr" "--profile-dir" - #$(get-iplayer-configuration-config-directory config)))) + #$(program-file "get-iplayer-command" + #~(begin + (setenv "SSL_CERT_DIR" #$(file-append nss-certs "/etc/ssl/certs")) + (execl #$(file-append (get-iplayer-configuration-get-iplayer config) + "/bin/get_iplayer") + "get_iplayer" "--pvr" "--profile-dir" + #$(get-iplayer-configuration-config-directory config)))) #:user #$(get-iplayer-configuration-user config)))) (define get-iplayer-service-type |