From 5ddceabece8367ee5487dc93ebe89b742c5258e6 Mon Sep 17 00:00:00 2001
From: "Henry J. Webster" <hwebs@hwebs.info>
Date: Sat, 15 Aug 2026 10:32:46 -0500
Subject: Add games page

---
 theme.scm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'theme.scm')

diff --git a/theme.scm b/theme.scm
index 7eb63a3..0a2668e 100644
--- a/theme.scm
+++ b/theme.scm
@@ -2,11 +2,13 @@
   #:use-module (haunt html)
   #:use-module (haunt site)
   #:use-module (haunt post)
+  #:use-module (haunt artifact)
   #:use-module (haunt builder blog)
   #:use-module (sxml xpath)
   #:export (hwebs-theme-blog
             hwebs-theme-now
-            flat-page-template))
+            flat-page-template
+            game-page))
 
 (define (post-uri post site prefix)
   (string-append "/" (or prefix "") "/"
@@ -110,3 +112,19 @@
                                     ((header "updated " (time ,(date->string*(post-date post))))
                                      ,(post-sxml post)))))
                     posts)))))
+
+
+;;; GAMES
+(define (static-page title file-name body)
+  (lambda (site posts)
+    (serialized-artifact file-name
+                         ;; TODO: simplify this
+                         (with-layout hwebs-theme-now site title body)
+                         sxml->html)))
+
+(define (game-page name js file-name)
+  (define body
+    `((h1 ,name)
+      (script (@ (src ,js)))
+      (div (@ (id "app")))))
+  (static-page name (string-append "games/" file-name) body))
-- 
cgit v1.3