bleh again

1 files changed, 14 insertions, 2 deletions

@@ -8,12 +8,15 @@
           (boudin schmaltz)
           ;; not portable
           (chicken pathname)
+          (chicken time posix)
           (html-parser)
           )
 
   (export site-url site-dest
           page-path-transformers page-text-transformers
-          page-template index-template feed-template)
+          page-date-formats
+          page-template index-template feed-template
+          build-time)
 
   (begin
     ;; Site information
@@ -42,4 +45,13 @@
       (make-parameter 'todo))
     (define feed-template
       (make-parameter 'todo))
-    ))
+    ;; Miscellaneous
+    (define page-date-formats
+      (make-parameter (list "%Y-%m-%d"
+                            "%Y-%m-%d%n%H:%M"
+                            "%Y-%m-%d%n%I:%M%n%p")))
+    ;; Not actually configuration, but state ... meh
+    (define build-time
+      (make-parameter
+       (time->string (seconds->utc-time) "%FT%TZ"))))
+    )