1 files changed, 19 insertions, 1 deletions

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))