blob: a3453381b2f0650558a0af2712a79e77583c5b4c (
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
(define site-build-time
(make-parameter
(time->string (seconds->utc-time) "%FT%TZ")))
|
