diff options
Diffstat (limited to 'haunt/builder/flat-pages.scm')
-rw-r--r-- | haunt/builder/flat-pages.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/haunt/builder/flat-pages.scm b/haunt/builder/flat-pages.scm index edf778a..d0594ca 100644 --- a/haunt/builder/flat-pages.scm +++ b/haunt/builder/flat-pages.scm @@ -80,12 +80,15 @@ complete HTML page that presumably wraps the page body." (#f (error "no reader available for page" file-name)) (reader (let-values (((metadata body) (reader-read reader file-name))) - (let* ((dir (substring (dirname file-name) + (let* ((title (or (assq-ref metadata 'title) "Untitled")) + (index? (equal? (assq-ref metadata 'index) "true")) + (dir (substring (dirname file-name) (string-length directory))) (out (string-append prefix dir (if (string-null? dir) "" "/") - (strip-extension file-name) ".html")) - (title (or (assq-ref metadata 'title) "Untitled"))) + (strip-extension file-name) + (if index? "/index" "") + ".html"))) (serialized-artifact out (template site title body) sxml->html)))))) src-files))) |