From 5601e302e068f253f99a154cfe7fc0c382e57083 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 10 Mar 2020 02:54:59 +0100
Subject: Add mkdir for html on chunked.

---
 module/output/html.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index bd28b390..6b2f8b6e 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -401,6 +401,14 @@
 
 
 (define-public (html-chunked-main count calendars events start-date)
+  ;; TODO This still doesn't account for PWD, file existing but is of
+  ;; wrong type, html directory existing but static symlink missing,
+  ;; static being a different file type, and probably something else
+  ;; i'm missing.
+  (unless (file-exists? "./html")
+    (mkdir "./html")
+    (symlink "../static" "./html/static"))
+
   ;; NOTE Something here isn't thread safe.
   ;; TODO make it thread safe
   (stream-for-each
-- 
cgit v1.2.3