From ffb9666aa54e543b0f0561936e9c0b7e04e48bf6 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 28 Jan 2020 08:36:57 +0000
Subject: Put the update code in a function

---
 update.scm | 55 +++++++++++++++++++++++++++++--------------------------
 1 file changed, 29 insertions(+), 26 deletions(-)

diff --git a/update.scm b/update.scm
index 3716984..45dfd65 100644
--- a/update.scm
+++ b/update.scm
@@ -48,29 +48,32 @@
             (display data port)))
         (simple-format #t "written ~A\n" output)))))
 
-(for-each
- (match-lambda
-   ((year . weeks)
-    (for-each
-     (lambda (week)
-       (let ((week-string
-              (format #f "~2'0d" week)))
-         (let ((week-end-date
-                (lookup-end-date-for-week year week)))
-           (when (time>? (current-time)
-                         (date->time-utc week-end-date))
-             (unless (file-exists?
-                      (compare-data-filename-for-week year week))
-               (download-data-for-week year week)))
-           (let ((filename
-                  (format
-                   #f "posts/~d/~2'0d/en_US.md"
-                   year week)))
-             (mkdir-p (dirname filename))
-             (when (not (file-exists? filename))
-               (call-with-output-file filename
-                 (lambda (port)
-                   (display "---\n" port)))
-               (simple-format #t "written ~A\n" filename))))))
-     (map car weeks))))
- %week-start-lookup-data)
+(define (update)
+  (for-each
+   (match-lambda
+     ((year . weeks)
+      (for-each
+       (lambda (week)
+         (let ((week-string
+                (format #f "~2'0d" week)))
+           (let ((week-end-date
+                  (lookup-end-date-for-week year week)))
+             (when (time>? (current-time)
+                           (date->time-utc week-end-date))
+               (unless (file-exists?
+                        (compare-data-filename-for-week year week))
+                 (download-data-for-week year week)))
+             (let ((filename
+                    (format
+                     #f "posts/~d/~2'0d/en_US.md"
+                     year week)))
+               (mkdir-p (dirname filename))
+               (when (not (file-exists? filename))
+                 (call-with-output-file filename
+                   (lambda (port)
+                     (display "---\n" port)))
+                 (simple-format #t "written ~A\n" filename))))))
+       (map car weeks))))
+   %week-start-lookup-data))
+
+(update)
-- 
cgit v1.2.3