summary refs log tree commit diff stats
path: root/boudin.site.scm
blob: ee94b9b9f7e69c383522720cf7b7e5685f84638b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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")))