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