blob: bdd6ef5fd4437f5e7f61d0ab87aa4f8520099dd5 (
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
|
;;; (boudin config) --- default values for configuration options
;;
;; To change these, make a `config.scm' in your site's root directory and change
;; these. They're all parameters so .. change em like that.
(define-library (boudin config)
(import (scheme base)
(boudin schmaltz)
;; not portable
(chicken pathname)
(html-parser)
)
(export site-url site-dest
page-path-transformers page-text-transformers
page-template index-template feed-template)
(begin
;; Site information
(define site-url
(make-parameter "example.com"))
(define site-dest
(make-parameter "out/"))
;; Transformers
(define page-path-transformers
(make-parameter
(list (lambda (path) (make-pathname (site-dest) path)))))
(define page-text-transformers
(make-parameter
(list wrap-paragraphs
render-string
html->sxml)))
;; Templates --- note that we use quote but include unquote forms here.
;; This is to simplify the configuration and to avoid a cyclical dependency
;; with (boudin types).
(define page-template
(make-parameter
'(html (@ (lang "en-us"))
(head (title (or (page-ref pg "title") "[untitled]")))
(body ,@(page-sxml pg)))))
(define index-template
(make-parameter 'todo))
(define feed-template
(make-parameter 'todo))
))
|
