1
2
3
4
5
6
7
8
9
10
11
12
13
|
<!DOCTYPE html>
<html>
◊html$-page-head[(select-from-metas 'title here)]
◊html$-page-body-open[]
◊spell-of-summoning![]
◊crystalize-article![here doc]
|
>
>
>
>
|
<
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
<!DOCTYPE html>
<html>
◊spell-of-summoning![]
◊(define article-html (crystalize-article! here doc))
◊(define page-title (article-plain-title here))
◊html$-page-head[page-title]
◊html$-page-body-open[]
◊article-html
◊html$-page-body-close[]
</html>
|
