initial commit

1 files changed, 24 insertions, 0 deletions

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