(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

(define site-build-time
  (make-parameter
   (time->string (seconds->utc-time) "%FT%TZ")))