From 1bb96ebf8b93b856de64d7bb02c8fb47254932cb Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sat, 3 Jun 2023 23:59:17 +0200
Subject: Indent *-file functions more conveniently

Files with potentially long or complex contents shouldn't be indented quite as
far.
---
 tw/services/media.scm | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

(limited to 'tw/services/media.scm')

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
-- 
cgit v1.2.3