From 59598f42c16cf12e544e5bf2ce9c873fba94238e Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 6 Sep 2023 22:45:45 -0500
Subject: A newerer beginning

---
 boudin.site.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 boudin.site.scm

(limited to 'boudin.site.scm')

diff --git a/boudin.site.scm b/boudin.site.scm
new file mode 100644
index 0000000..ee94b9b
--- /dev/null
+++ b/boudin.site.scm
@@ -0,0 +1,46 @@
+(declare (module (boudin site))
+         (export site-author
+                 site-build-time
+                 site-config
+                 site-host
+                 site-name
+                 site-date-formats
+                 site-output
+                 site-rights
+                 site-sort)
+         (import (boudin util)
+                 (chicken time posix)))
+
+;; Configurables
+
+(define site-sort
+  (make-parameter identity))
+
+(define site-name
+  (make-parameter "a boudin site"))
+
+(define site-host
+  (make-parameter "example.com"))
+
+(define site-author
+  (make-parameter "nobody"))
+
+(define site-rights
+  (make-parameter
+   (delay (string-append "(C) " (site-author)))))
+
+(define site-output
+  (make-parameter "out/"))
+
+(define site-config
+  (make-parameter "config.scm"))
+
+(define site-date-formats
+  (make-parameter '("%Y-%m-%d"
+                    "%d/%m/%Y")))
+
+;; State variables
+
+(define site-build-time
+  (make-parameter
+   (time->string (seconds->utc-time) "%FT%TZ")))
-- 
cgit 1.4.1-21-gabe81