diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-10 02:54:59 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-10 02:54:59 +0100 |
| commit | 5601e302e068f253f99a154cfe7fc0c382e57083 (patch) | |
| tree | 2352492fc1a538e9256d9f1df05154b1dbc8fa19 /module/output | |
| parent | Restructured TODO. (diff) | |
| download | calp-5601e302e068f253f99a154cfe7fc0c382e57083.tar.gz calp-5601e302e068f253f99a154cfe7fc0c382e57083.tar.xz | |
Add mkdir for html on chunked.
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/html.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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 |