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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!-- HTML by default -->
<!ENTITY % html "INCLUDE">
<!ENTITY % print "IGNORE">
<![%html;[
<!ENTITY % print "IGNORE">
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
]]>
<![%print;[
<!ENTITY % html "IGNORE">
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
]]>
]>
<style-sheet>
<style-specification id="html" use="docbook">
<style-specification-body>
(define %use-id-as-filename% #t)
(define %generate-legalnotice-link% #t)
(define (toc-depth nd) 1)
(define (chunk-element-list)
(list (normalize "preface")
(normalize "chapter")
(normalize "appendix")
(normalize "article")
(normalize "glossary")
(normalize "bibliography")
(normalize "index")
(normalize "setindex")
(normalize "reference")
(normalize "refentry")
(normalize "part")
(normalize "book") ;; just in case nothing else matches...
(normalize "set") ;; sets are definitely chunks...
))
(define (chunk-skip-first-element-list)
'())
(define (set-titlepage-recto-elements)
(list (normalize "title")
(normalize "subtitle")
(normalize "graphic")
(normalize "corpauthor")
(normalize "authorgroup")
(normalize "author")
(normalize "editor")
(normalize "releaseinfo")
(normalize "pubdate")
(normalize "copyright")
(normalize "legalnotice")))
</style-specification-body>
</style-specification>
<style-specification id="print" use="docbook">
<style-specification-body>
(element pubdate
(if (equal? (attribute-string (normalize "role")) "rcs")
(let* ((datelist (split (data (current-node))))
(date (car (cdr datelist))))
(literal date))
(process-children)))
(mode book-titlepage-verso-mode
(element pubdate
(make paragraph
(literal (gentext-element-name-space (gi (current-node))))
(if (equal? (attribute-string (normalize "role")) "rcs")
(let* ((datelist (split (data (current-node))))
(date (car (cdr datelist))))
(literal date))
(process-children))))
)
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>
|
