diff options
| -rw-r--r-- | website/haunt.scm | 6 | ||||
| -rw-r--r-- | website/www/news.scm | 17 |
2 files changed, 13 insertions, 10 deletions
diff --git a/website/haunt.scm b/website/haunt.scm index ed78634..4c5c6df 100644 --- a/website/haunt.scm +++ b/website/haunt.scm @@ -74,7 +74,7 @@ #:builders `(,(lambda (site posts) ;the main page (with-url-parameters - (make-page "guix.html" (main-page site posts) + (make-page "guix.html" `((doctype "html") ,(main-page site posts)) sxml->html))) ,@(filter-map (match-lambda (("guix.html" _) ;handled above @@ -82,7 +82,9 @@ ((file-name contents) (lambda (site posts) (with-url-parameters - (make-page file-name (contents) sxml->html))))) + (make-page file-name + `((doctype "html") ,(contents)) + sxml->html))))) %web-pages) ,(blog #:theme (parameterized-theme %news-haunt-theme) #:prefix "news") diff --git a/website/www/news.scm b/website/www/news.scm index 849fc44..e6b59ef 100644 --- a/website/www/news.scm +++ b/website/www/news.scm @@ -56,17 +56,18 @@ posts)))) (define (base-layout body) - `(html (@ (lang "en")) - ,(html-page-header "News" #:css "news.css") + `((doctype "html") + (html (@ (lang "en")) + ,(html-page-header "News" #:css "news.css") - (body - ,(html-page-description) - ,(html-page-links) + (body + ,(html-page-description) + ,(html-page-links) - (div (@ (id "content-box")) - (article ,body)) + (div (@ (id "content-box")) + (article ,body)) - ,(html-page-footer)))) + ,(html-page-footer))))) (define %news-haunt-theme ;; Theme for the rendering of the news pages. |