From 533fb6bd336ae32f109712e9e2d59f18159736e3 Mon Sep 17 00:00:00 2001 From: "Henry J. Webster" Date: Sat, 15 Aug 2026 09:53:12 -0500 Subject: Only blog posts are
Attempting to be more semantic. - Blog posts are wrapped in
- Other pages are not --- theme.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/theme.scm b/theme.scm index 7e9ac41..7eb63a3 100644 --- a/theme.scm +++ b/theme.scm @@ -40,8 +40,7 @@ (li (a (@ (href "/now")) "Now")) (li (a (@ (href "/blog")) "Blog"))))) (main - (article (h1 ,title) - ,body))))))) + ,body)))))) (define hwebs-theme-blog @@ -51,11 +50,13 @@ (lambda (post) ;; TODO fill in datetime correctly ;; TODO add ? (as hidden?) - `((time ,(date->string*(post-date post))) - ,(post-sxml post))) + `((article (h1 ,(post-title post)) + (time ,(date->string*(post-date post))) + ,(post-sxml post)))) #:collection-template (lambda (site title posts prefix) - `((p (a (@ (href "/blog/feed.xml")) "Atom feed.")) + `((h1 ,title) + (p (a (@ (href "/blog/feed.xml")) "Atom feed.")) (ul ,@(map (lambda (post) `(li (a (@ (href ,(post-uri post site prefix))) @@ -65,7 +66,7 @@ posts)))))) (define (flat-page-template site metadata body) - ((theme-layout hwebs-theme-blog) site (assq-ref metadata 'title) body)) + ((theme-layout hwebs-theme-blog) site (assq-ref metadata 'title) `((h1 ,(assq-ref metadata 'title)) ,body))) ;; ;; NOW @@ -88,7 +89,8 @@ #:collection-template (lambda (site title posts prefix) - `((p "My implementation of the " + `((h1 ,title) + (p "My implementation of the " (a (@ (href "https://nownownow.com/about")) "\"now page\" concept by Derek Sivers") ".") ,@(map (lambda (post) -- cgit v1.3