From 95834660fd0a993f103972ec2214a38443221d79 Mon Sep 17 00:00:00 2001
From: Henry Webster <hwebs@hwebs.info>
Date: Sun, 19 Jul 2026 19:51:39 -0500
Subject: Initial commit of personal site on haunt.

---
 haunt.scm      | 16 ++++++++++++++++
 pages/index.md |  5 +++++
 theme.scm      | 25 +++++++++++++++++++++++++
 3 files changed, 46 insertions(+)
 create mode 100644 haunt.scm
 create mode 100644 pages/index.md
 create mode 100644 theme.scm

diff --git a/haunt.scm b/haunt.scm
new file mode 100644
index 0000000..15f5fff
--- /dev/null
+++ b/haunt.scm
@@ -0,0 +1,16 @@
+(use-modules
+ (haunt builder flat-pages)
+ (haunt builder blog)
+ (haunt reader)
+ (haunt reader commonmark)
+ (haunt site)
+ (theme))
+
+(site #:title "hwebs"
+      #:domain "hwebs.info"
+      #:default-metadata
+      '((author . "Henry J. Webster")
+        (email . "hwebs@hwebs.info"))
+      #:readers (list commonmark-reader)
+      #:builders (list (flat-pages #:template flat-page-template)))
+
diff --git a/pages/index.md b/pages/index.md
new file mode 100644
index 0000000..fa9c7a9
--- /dev/null
+++ b/pages/index.md
@@ -0,0 +1,5 @@
+title: About Me
+---
+My name is Henry J. Webster.
+
+I work in technology and live in the great American city. I'm an avid do-it-yourself-er and aspiring "hacker with a beautiful yet whimsical technique."
\ No newline at end of file
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