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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY html-ss PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
<!ENTITY print-ss PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA DSSSL>
]>
<style-sheet>
<!-- Customizations for the HTML version -->
<style-specification id="html" use="html-stylesheet">
<style-specification-body>
;; Specify the CSS stylesheet to use
(define %stylesheet% "../../style.css")
;; Suppress Lists of Tables, Examples, ...
(define ($generate-book-lot-list$)
'())
;; Display only the first two section levels in the table of contents
(define (toc-depth nd)
(if (string=? (gi nd) (normalize "book"))
2
1))
;; Make references be appendices (or chapters), not parts.
(define (en-label-number-format-list)
(list
(list (normalize "set") "1")
(list (normalize "book") "1")
(list (normalize "prefix") "1")
(list (normalize "part") "I")
(list (normalize "chapter") "1")
(list (normalize "appendix") "A")
;;(list (normalize "reference") "1") ; references-as-chapters
(list (normalize "reference") "A") ; references-as-appendices
(list (normalize "example") "1")
(list (normalize "figure") "1")
(list (normalize "table") "1")
(list (normalize "procedure") "1")
(list (normalize "step") "1")
(list (normalize "refsect1") "1")
(list (normalize "refsect2") "1")
(list (normalize "refsect3") "1")
(list (normalize "sect1") "1")
(list (normalize "sect2") "1")
(list (normalize "sect3") "1")
(list (normalize "sect4") "1")
(list (normalize "sect5") "1")
(list (normalize "section") "1")
))
;;; for references-as-appendices
(define (reference-number-sibling-list cmp) (list (normalize "appendix")))
(define (appendix-number-sibling-list cmp) (list (normalize "reference")))
;;; for references-as-chapters
;;(define (reference-number-sibling-list cmp) (list (normalize "chapter")))
;;(define (chapter-number-sibling-list cmp) (list (normalize "reference")))
</style-specification-body>
</style-specification>
<external-specification id="html-stylesheet" document="html-ss">
<!-- Customizations for the print version -->
<style-specification id="print" use="print-stylesheet">
<style-specification-body>
;; Suppress Lists of Tables, Examples, ...
(define ($generate-book-lot-list$)
'())
;; Display only the first two section levels in the table of contents
(define (toc-depth nd)
(if (string=? (gi nd) (normalize "book"))
2
1))
(define %two-side% #t)
(define bop-footnotes #t) ; doesn't seem to work
;; Make references be appendices (or chapters), not parts.
(define (en-label-number-format-list)
(list
(list (normalize "set") "1")
(list (normalize "book") "1")
(list (normalize "prefix") "1")
(list (normalize "part") "I")
(list (normalize "chapter") "1")
(list (normalize "appendix") "A")
;;(list (normalize "reference") "1") ; references-as-chapters
(list (normalize "reference") "A") ; references-as-appendices
(list (normalize "example") "1")
(list (normalize "figure") "1")
(list (normalize "table") "1")
(list (normalize "procedure") "1")
(list (normalize "step") "1")
(list (normalize "refsect1") "1")
(list (normalize "refsect2") "1")
(list (normalize "refsect3") "1")
(list (normalize "sect1") "1")
(list (normalize "sect2") "1")
(list (normalize "sect3") "1")
(list (normalize "sect4") "1")
(list (normalize "sect5") "1")
(list (normalize "section") "1")
))
;;; for references-as-appendices
(define (reference-number-sibling-list cmp) (list (normalize "appendix")))
(define (appendix-number-sibling-list cmp) (list (normalize "reference")))
;;; for references-as-chapters
;;(define (reference-number-sibling-list cmp) (list (normalize "chapter")))
;;(define (chapter-number-sibling-list cmp) (list (normalize "reference")))
</style-specification-body>
</style-specification>
<external-specification id="print-stylesheet" document="print-ss">
</style-sheet>
<!-- Local Variables -->
<!-- mode: scheme -->
<!-- End -->
|
