From 733194e8567bc495db88de9b0ae1b228d59572fe Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 14 Jul 2024 17:16:52 -0600
Subject: initial commit

---
 src/operationnull/static.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/operationnull/static.scm

(limited to 'src/operationnull/static.scm')

diff --git a/src/operationnull/static.scm b/src/operationnull/static.scm
new file mode 100644
index 0000000..25f35e2
--- /dev/null
+++ b/src/operationnull/static.scm
@@ -0,0 +1,24 @@
+(define-module (operationnull static)
+  #:use-module (haunt artifact)
+  #:use-module (haunt reader commonmark)
+  #:use-module (haunt html)
+  #:use-module (haunt builder blog)
+  #:use-module (operationnull theme)
+  #:export (static-page))
+
+
+(define* (static-page page destination title
+                      #:key
+                      (theme main-theme)
+                      (reader commonmark-reader))
+  "Return a builder procedure that reads FILE into SXML, adjusts it
+according to the THEME and serialize to HTML and put it to
+build-directory of the site.  DESTINATION is a relative resulting file
+path."
+  (lambda (site posts)
+    (list
+     (serialized-artifact
+      destination
+      (with-layout theme site title page)
+      sxml->html))))
+
-- 
cgit v1.2.3