1 files changed, 46 insertions, 0 deletions

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