1 |
edhill |
1.1 |
<!DOCTYPE style-sheet PUBLIC |
2 |
|
|
"-//James Clark//DTD DSSSL Style Sheet//EN" [ |
3 |
|
|
<!ENTITY % html "IGNORE"> |
4 |
|
|
<![%html;[ |
5 |
|
|
<!ENTITY % print "IGNORE"> |
6 |
|
|
<!ENTITY docbook.dsl PUBLIC |
7 |
|
|
"-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" |
8 |
|
|
CDATA dsssl> |
9 |
|
|
]]> |
10 |
|
|
<!ENTITY % print "INCLUDE"> |
11 |
|
|
<![%print;[ |
12 |
|
|
<!ENTITY docbook.dsl PUBLIC |
13 |
|
|
"-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" |
14 |
|
|
CDATA dsssl> |
15 |
|
|
]]> |
16 |
|
|
]> |
17 |
|
|
|
18 |
|
|
<style-sheet> |
19 |
|
|
|
20 |
|
|
;; ------------------------------------------------------------------------ |
21 |
|
|
;; ldp.dsl - LDP Customized DSSSL Stylesheet |
22 |
|
|
;; v1.11, 2003-02-03 |
23 |
|
|
;; Copyright (C) 2000-2003 |
24 |
|
|
;; |
25 |
|
|
;; This program is free software; you can redistribute it and/or modify |
26 |
|
|
;; it under the terms of the GNU General Public License as published by |
27 |
|
|
;; the Free Software Foundation; either version 2 of the License, or |
28 |
|
|
;; (at your option) any later version. |
29 |
|
|
;; |
30 |
|
|
;; This program is distributed in the hope that it will be useful, |
31 |
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
32 |
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
33 |
|
|
;; GNU General Public License for more details. |
34 |
|
|
;; |
35 |
|
|
;; You should have received a copy of the GNU General Public License |
36 |
|
|
;; along with this program; if not, write to the Free Software |
37 |
|
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
38 |
|
|
;; ------------------------------------------------------------------------ |
39 |
|
|
|
40 |
|
|
<style-specification id="print" use="docbook"> |
41 |
|
|
<style-specification-body> |
42 |
|
|
|
43 |
|
|
;; customize the print stylesheet |
44 |
|
|
|
45 |
|
|
(declare-characteristic preserve-sdata? |
46 |
|
|
;; this is necessary because right now jadetex does not understand |
47 |
|
|
;; symbolic entities, whereas things work well with numeric entities. |
48 |
|
|
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?" |
49 |
|
|
#f) |
50 |
|
|
|
51 |
|
|
(define %generate-article-toc% |
52 |
|
|
;; Should a Table of Contents be produced for Articles? |
53 |
|
|
#t) |
54 |
|
|
|
55 |
|
|
(define (toc-depth nd) |
56 |
|
|
4) |
57 |
|
|
|
58 |
|
|
(define %generate-article-titlepage-on-separate-page% |
59 |
|
|
;; Should the article title page be on a separate page? |
60 |
|
|
#t) |
61 |
|
|
|
62 |
|
|
(define %section-autolabel% |
63 |
|
|
;; Are sections enumerated? |
64 |
|
|
#t) |
65 |
|
|
|
66 |
|
|
(define %footnote-ulinks% |
67 |
|
|
;; Generate footnotes for ULinks? |
68 |
|
|
#f) |
69 |
|
|
|
70 |
|
|
(define %bop-footnotes% |
71 |
|
|
;; Make "bottom-of-page" footnotes? |
72 |
|
|
#f) |
73 |
|
|
|
74 |
|
|
(define %body-start-indent% |
75 |
|
|
;; Default indent of body text |
76 |
|
|
0pi) |
77 |
|
|
|
78 |
|
|
(define %para-indent-firstpara% |
79 |
|
|
;; First line start-indent for the first paragraph |
80 |
|
|
0pt) |
81 |
|
|
|
82 |
|
|
(define %para-indent% |
83 |
|
|
;; First line start-indent for paragraphs (other than the first) |
84 |
|
|
0pt) |
85 |
|
|
|
86 |
|
|
(define %block-start-indent% |
87 |
|
|
;; Extra start-indent for block-elements |
88 |
|
|
0pt) |
89 |
|
|
|
90 |
|
|
(define formal-object-float |
91 |
|
|
;; Do formal objects float? |
92 |
|
|
#t) |
93 |
|
|
|
94 |
|
|
(define %hyphenation% |
95 |
|
|
;; Allow automatic hyphenation? |
96 |
|
|
#t) |
97 |
|
|
|
98 |
|
|
(define %admon-graphics% |
99 |
|
|
;; Use graphics in admonitions? |
100 |
|
|
#f) |
101 |
|
|
|
102 |
|
|
(define %default-quadding% |
103 |
|
|
;; Full justification. |
104 |
|
|
'justify) |
105 |
|
|
|
106 |
|
|
(define (book-titlepage-verso-elements) |
107 |
|
|
;;added publisher, releaseinfo to the default list |
108 |
|
|
(list (normalize "title") |
109 |
|
|
(normalize "subtitle") |
110 |
|
|
(normalize "corpauthor") |
111 |
|
|
(normalize "authorgroup") |
112 |
|
|
(normalize "author") |
113 |
|
|
(normalize "publisher") |
114 |
|
|
(normalize "releaseinfo") |
115 |
|
|
(normalize "editor") |
116 |
|
|
(normalize "edition") |
117 |
|
|
(normalize "pubdate") |
118 |
|
|
(normalize "copyright") |
119 |
|
|
(normalize "abstract") |
120 |
|
|
(normalize "legalnotice") |
121 |
|
|
(normalize "revhistory"))) |
122 |
|
|
|
123 |
|
|
</style-specification-body> |
124 |
|
|
</style-specification> |
125 |
|
|
|
126 |
|
|
|
127 |
|
|
<!-- |
128 |
|
|
;; customize the html stylesheet; parts borrowed from |
129 |
|
|
;; Cygnus at http://sourceware.cygnus.com/ (cygnus-both.dsl) |
130 |
|
|
--> |
131 |
|
|
|
132 |
|
|
<style-specification id="html" use="docbook"> |
133 |
|
|
<style-specification-body> |
134 |
|
|
|
135 |
|
|
(declare-characteristic preserve-sdata? |
136 |
|
|
;; this is necessary because right now jadetex does not understand |
137 |
|
|
;; symbolic entities, whereas things work well with numeric entities. |
138 |
|
|
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?" |
139 |
|
|
#f) |
140 |
|
|
|
141 |
|
|
(declare-flow-object-class element |
142 |
|
|
;; for redhat |
143 |
|
|
"UNREGISTERED::James Clark//Flow Object Class::element") |
144 |
|
|
|
145 |
|
|
(define %generate-legalnotice-link% |
146 |
|
|
;; put the legal notice in a separate file |
147 |
|
|
#t) |
148 |
|
|
|
149 |
|
|
(define %admon-graphics-path% |
150 |
|
|
;; use graphics in admonitions, set their |
151 |
|
|
"../images/") |
152 |
|
|
|
153 |
|
|
(define %admon-graphics% |
154 |
|
|
#t) |
155 |
|
|
|
156 |
|
|
(define %funcsynopsis-decoration% |
157 |
|
|
;; make funcsynopsis look pretty |
158 |
|
|
#t) |
159 |
|
|
|
160 |
|
|
(define %html-ext% |
161 |
|
|
;; when producing HTML files, use this extension |
162 |
|
|
".html") |
163 |
|
|
|
164 |
|
|
(define %generate-book-toc% |
165 |
|
|
;; Should a Table of Contents be produced for books? |
166 |
|
|
#t) |
167 |
|
|
|
168 |
|
|
(define %generate-article-toc% |
169 |
|
|
;; Should a Table of Contents be produced for articles? |
170 |
|
|
#t) |
171 |
|
|
|
172 |
|
|
(define %generate-part-toc% |
173 |
|
|
;; Should a Table of Contents be produced for parts? |
174 |
|
|
#t) |
175 |
|
|
|
176 |
|
|
(define %generate-book-titlepage% |
177 |
|
|
;; produce a title page for books |
178 |
|
|
#t) |
179 |
|
|
|
180 |
|
|
(define %generate-article-titlepage% |
181 |
|
|
;; produce a title page for articles |
182 |
|
|
#t) |
183 |
|
|
|
184 |
|
|
(define (chunk-skip-first-element-list) |
185 |
|
|
;; forces the Table of Contents on separate page |
186 |
|
|
'()) |
187 |
|
|
|
188 |
|
|
(define (list-element-list) |
189 |
|
|
;; fixes bug in Table of Contents generation |
190 |
|
|
'()) |
191 |
|
|
|
192 |
|
|
(define %root-filename% |
193 |
|
|
;; The filename of the root HTML document (e.g, "index"). |
194 |
|
|
"index") |
195 |
|
|
|
196 |
|
|
(define %shade-verbatim% |
197 |
|
|
;; verbatim sections will be shaded if t(rue) |
198 |
|
|
#t) |
199 |
|
|
|
200 |
|
|
(define %use-id-as-filename% |
201 |
|
|
;; Use ID attributes as name for component HTML files? |
202 |
|
|
#t) |
203 |
|
|
|
204 |
|
|
(define %graphic-extensions% |
205 |
|
|
;; graphic extensions allowed |
206 |
|
|
'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" )) |
207 |
|
|
|
208 |
|
|
(define %graphic-default-extension% |
209 |
|
|
"gif") |
210 |
|
|
|
211 |
|
|
(define %section-autolabel% |
212 |
|
|
;; For enumerated sections (1.1, 1.1.1, 1.2, etc.) |
213 |
|
|
#t) |
214 |
|
|
|
215 |
|
|
(define (toc-depth nd) |
216 |
|
|
;; more depth (2 levels) to toc; instead of flat hierarchy |
217 |
|
|
2) |
218 |
|
|
|
219 |
|
|
(element emphasis |
220 |
|
|
;; make role=strong equate to bold for emphasis tag |
221 |
|
|
(if (equal? (attribute-string "role") "strong") |
222 |
|
|
(make element gi: "STRONG" (process-children)) |
223 |
|
|
(make element gi: "EM" (process-children)))) |
224 |
|
|
|
225 |
|
|
(define (book-titlepage-recto-elements) |
226 |
|
|
;; elements on a book's titlepage |
227 |
|
|
(list (normalize "title") |
228 |
|
|
(normalize "subtitle") |
229 |
|
|
(normalize "graphic") |
230 |
|
|
(normalize "mediaobject") |
231 |
|
|
(normalize "corpauthor") |
232 |
|
|
(normalize "authorgroup") |
233 |
|
|
(normalize "author") |
234 |
|
|
(normalize "othercredit") |
235 |
|
|
(normalize "edition") |
236 |
|
|
(normalize "releaseinfo") |
237 |
|
|
(normalize "publisher") |
238 |
|
|
(normalize "editor") |
239 |
|
|
(normalize "copyright") |
240 |
|
|
(normalize "pubdate") |
241 |
|
|
(normalize "revhistory") |
242 |
|
|
(normalize "abstract") |
243 |
|
|
(normalize "legalnotice"))) |
244 |
|
|
|
245 |
|
|
(define (article-titlepage-recto-elements) |
246 |
|
|
;; elements on an article's titlepage |
247 |
|
|
(list (normalize "title") |
248 |
|
|
(normalize "subtitle") |
249 |
|
|
(normalize "authorgroup") |
250 |
|
|
(normalize "author") |
251 |
|
|
(normalize "othercredit") |
252 |
|
|
(normalize "releaseinfo") |
253 |
|
|
(normalize "copyright") |
254 |
|
|
(normalize "pubdate") |
255 |
|
|
(normalize "revhistory") |
256 |
|
|
(normalize "abstract") |
257 |
|
|
(normalize "legalnotice"))) |
258 |
|
|
|
259 |
|
|
(define (process-contrib #!optional (sosofo (process-children))) |
260 |
|
|
;; print out with othercredit information; for translators, etc. |
261 |
|
|
(make sequence |
262 |
|
|
(make element gi: "SPAN" |
263 |
|
|
attributes: (list (list "CLASS" (gi))) |
264 |
|
|
(process-children)))) |
265 |
|
|
|
266 |
|
|
(define (process-othercredit #!optional (sosofo (process-children))) |
267 |
|
|
;; print out othercredit information; for translators, etc. |
268 |
|
|
(let ((author-name (author-string)) |
269 |
|
|
(author-contrib (select-elements (children (current-node)) |
270 |
|
|
(normalize "contrib")))) |
271 |
|
|
(make element gi: "P" |
272 |
|
|
attributes: (list (list "CLASS" (gi))) |
273 |
|
|
(make element gi: "B" |
274 |
|
|
(literal author-name) |
275 |
|
|
(literal " - ")) |
276 |
|
|
(process-node-list author-contrib)))) |
277 |
|
|
|
278 |
|
|
(mode article-titlepage-recto-mode |
279 |
|
|
(element contrib (process-contrib)) |
280 |
|
|
(element othercredit (process-othercredit)) |
281 |
|
|
) |
282 |
|
|
|
283 |
|
|
(mode book-titlepage-recto-mode |
284 |
|
|
(element contrib (process-contrib)) |
285 |
|
|
(element othercredit (process-othercredit)) |
286 |
|
|
) |
287 |
|
|
|
288 |
|
|
(define (article-title nd) |
289 |
|
|
(let* ((artchild (children nd)) |
290 |
|
|
(artheader (select-elements artchild (normalize "artheader"))) |
291 |
|
|
(artinfo (select-elements artchild (normalize "articleinfo"))) |
292 |
|
|
(ahdr (if (node-list-empty? artheader) |
293 |
|
|
artinfo |
294 |
|
|
artheader)) |
295 |
|
|
(ahtitles (select-elements (children ahdr) |
296 |
|
|
(normalize "title"))) |
297 |
|
|
(artitles (select-elements artchild (normalize "title"))) |
298 |
|
|
(titles (if (node-list-empty? artitles) |
299 |
|
|
ahtitles |
300 |
|
|
artitles))) |
301 |
|
|
(if (node-list-empty? titles) |
302 |
|
|
"" |
303 |
|
|
(node-list-first titles)))) |
304 |
|
|
|
305 |
|
|
(mode subtitle-mode |
306 |
|
|
;; do not print subtitle on subsequent pages |
307 |
|
|
(element subtitle (empty-sosofo))) |
308 |
|
|
|
309 |
|
|
;; Redefinition of $verbatim-display$ |
310 |
|
|
;; Origin: dbverb.dsl |
311 |
|
|
;; Different foreground and background colors for verbatim elements |
312 |
|
|
;; Author: Philippe Martin (feloy@free.fr) 2001-04-07 |
313 |
|
|
|
314 |
|
|
(define ($verbatim-display$ indent line-numbers?) |
315 |
|
|
(let ((verbatim-element (gi)) |
316 |
|
|
(content (make element gi: "PRE" |
317 |
|
|
attributes: (list |
318 |
|
|
(list "CLASS" (gi))) |
319 |
|
|
(if (or indent line-numbers?) |
320 |
|
|
($verbatim-line-by-line$ indent line-numbers?) |
321 |
|
|
(process-children))))) |
322 |
|
|
(if %shade-verbatim% |
323 |
|
|
(make element gi: "TABLE" |
324 |
|
|
attributes: (shade-verbatim-attr-element verbatim-element) |
325 |
|
|
(make element gi: "TR" |
326 |
|
|
(make element gi: "TD" |
327 |
|
|
(make element gi: "FONT" |
328 |
|
|
attributes: (list |
329 |
|
|
(list "COLOR" (car (shade-verbatim-element-colors |
330 |
|
|
verbatim-element)))) |
331 |
|
|
content)))) |
332 |
|
|
content))) |
333 |
|
|
|
334 |
|
|
;; |
335 |
|
|
;; Customize this function |
336 |
|
|
;; to change the foreground and background colors |
337 |
|
|
;; of the different verbatim elements |
338 |
|
|
;; Return (list "foreground color" "background color") |
339 |
|
|
;; |
340 |
|
|
(define (shade-verbatim-element-colors element) |
341 |
|
|
(case element |
342 |
|
|
(("SYNOPSIS") (list "#000000" "#6495ED")) |
343 |
|
|
;; ... |
344 |
|
|
;; Add your verbatim elements here |
345 |
|
|
;; ... |
346 |
|
|
(else (list "#000000" "#E0E0E0")))) |
347 |
|
|
|
348 |
|
|
(define (shade-verbatim-attr-element element) |
349 |
|
|
(list |
350 |
|
|
(list "BORDER" |
351 |
|
|
(cond |
352 |
|
|
((equal? element (normalize "SCREEN")) "1") |
353 |
|
|
(else "0"))) |
354 |
|
|
(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element)))) |
355 |
|
|
(list "WIDTH" ($table-width$)))) |
356 |
|
|
|
357 |
|
|
;; End of $verbatim-display$ redefinition |
358 |
|
|
|
359 |
|
|
</style-specification-body> |
360 |
|
|
</style-specification> |
361 |
|
|
|
362 |
|
|
<external-specification id="docbook" document="docbook.dsl"> |
363 |
|
|
|
364 |
|
|
</style-sheet> |