From 95834660fd0a993f103972ec2214a38443221d79 Mon Sep 17 00:00:00 2001 From: Henry Webster Date: Sun, 19 Jul 2026 19:51:39 -0500 Subject: Initial commit of personal site on haunt. --- theme.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 theme.scm (limited to 'theme.scm') diff --git a/theme.scm b/theme.scm new file mode 100644 index 0000000..94b2800 --- /dev/null +++ b/theme.scm @@ -0,0 +1,25 @@ +(define-module (theme) + #:use-module (haunt html) + #:use-module (haunt site) + #:use-module (haunt builder blog) + #:export (hwebs-theme + flat-page-template)) + +(define hwebs-theme + (theme #:name "hwebs" + #:layout + (lambda (site title body) + `((doctype "html") + (html + (head + (meta (@ (charset "utf-8"))) + (meta (@ (name "viewport") + (content "width=device-width, initial-scale=1.0"))) + (title ,(string-append title " — " (site-title site)))) + (body + (main + (article (h1 ,title) + ,body)))))))) + +(define (flat-page-template site metadata body) + ((theme-layout hwebs-theme) site (assq-ref metadata 'title) body)) -- cgit v1.3