blob: 0bb87e58ce909c410fd481ef9f46dd6ce7063d57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(use-modules (skribilo engine) ;; provides `find-engine'
(skribilo evaluator) ;; provides `evaluate-document'
(skribilo package base) ;; provides `chapter', etc.
(srfi srfi-1))
(let (;; Select an engine, i.e., an output format.
(e (find-engine 'html))
;; Create a document.
(d (document #:title "Some Title"
(chapter #:title "The Chapter"
(p "The paragraph... "
"Text consists of "
"a list of strings.")
(apply itemize
(map number->string
(iota 10)))))))
;; "Evaluate" the document to an HTML file.
(with-output-to-file "foo.html"
(lambda ()
(evaluate-document d e))))
|
