1 | <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
---|
2 | <!-- HTML -->
|
---|
3 | <!ENTITY html-ss
|
---|
4 | PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
|
---|
5 | CDATA DSSSL>
|
---|
6 | <!-- PS -->
|
---|
7 | <!ENTITY print-ss
|
---|
8 | PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
|
---|
9 | CDATA DSSSL>
|
---|
10 | ]>
|
---|
11 |
|
---|
12 | <style-sheet>
|
---|
13 |
|
---|
14 | <!-- HTML -->
|
---|
15 | <style-specification id="html" use="html-stylesheet">
|
---|
16 | <style-specification-body>
|
---|
17 |
|
---|
18 | ;; From documentation projet of FreeBSD
|
---|
19 |
|
---|
20 | ;; Use tables to build the navigation headers and footers?
|
---|
21 | (define %gentext-nav-use-tables% #t)
|
---|
22 |
|
---|
23 | ;; Default extension for HTML output files
|
---|
24 | (define %html-ext% ".html")
|
---|
25 |
|
---|
26 | ;; Name for the root HTML document
|
---|
27 | (define %root-filename% "index")
|
---|
28 |
|
---|
29 | ;; Should verbatim environments be shaded?
|
---|
30 | (define %shade-verbatim% #t)
|
---|
31 |
|
---|
32 | ;; Write a manifest?
|
---|
33 | (define html-manifest #t)
|
---|
34 |
|
---|
35 | ;; Are sections enumerated?
|
---|
36 | (define %section-autolabel% #t)
|
---|
37 |
|
---|
38 | ;; Use graphics in admonitions?
|
---|
39 | (define %admon-graphics% #t)
|
---|
40 |
|
---|
41 | ;; Path to admonition graphics
|
---|
42 | (define %admon-graphics-path% "images/")
|
---|
43 |
|
---|
44 | ;; l'extension par défaut en mode HTML
|
---|
45 | (define %graphic-default-extension% "png")
|
---|
46 |
|
---|
47 | ;; From ldp.dsl
|
---|
48 | ;; Should a Table of Contents be produced for parts?
|
---|
49 | (define %generate-part-toc% #t)
|
---|
50 |
|
---|
51 | ;; Use ID attributes as name for component HTML files? (Greg Ferguson)
|
---|
52 | (define %use-id-as-filename% #t)
|
---|
53 |
|
---|
54 | (define (list-element-list)
|
---|
55 | ;; fixes bug in Table of Contents generation
|
---|
56 | '())
|
---|
57 |
|
---|
58 | (element emphasis
|
---|
59 | ;; make role=strong equate to bold for emphasis tag
|
---|
60 | (if (equal? (attribute-string "role") "strong")
|
---|
61 | (make element gi: "STRONG" (process-children))
|
---|
62 | (make element gi: "EM" (process-children))))
|
---|
63 |
|
---|
64 |
|
---|
65 | ;; Custom headers
|
---|
66 |
|
---|
67 | (define %html-header-tags%
|
---|
68 | '(("META" ("HTTP-EQUIV" "Content-Type") ("CONTENT" "text/html; charset=iso-8859-1")) ("META" ("NAME" "Author") ("CONTENT" "Bruno Cornec")) ("META" ("NAME" "KeyWords") ("CONTENT" "Linux,Disaster Recovery, Mondo, Mindi, MondoRescue")))
|
---|
69 | )
|
---|
70 |
|
---|
71 | ;; ---------------------
|
---|
72 | ;; Navigation Icons
|
---|
73 | ;; ---------------------
|
---|
74 | ;;
|
---|
75 | ;; Redefine links as graphic icons instead of text
|
---|
76 | ;;
|
---|
77 | ;; (Overrides definitions in common/dbl1en.dsl)
|
---|
78 | ;;
|
---|
79 | (define (gentext-en-nav-prev prev)
|
---|
80 | (make empty-element gi: "IMG"
|
---|
81 | attributes: '(("SRC" "images/prev.png")
|
---|
82 | ("BORDER" "0")
|
---|
83 | ("ALT" "Previous"))))
|
---|
84 |
|
---|
85 | (define (gentext-en-nav-next next)
|
---|
86 | (make empty-element gi: "IMG"
|
---|
87 | attributes: '(("SRC" "images/next.png")
|
---|
88 | ("BORDER" "0")
|
---|
89 | ("ALT" "Next"))))
|
---|
90 |
|
---|
91 | (define (gentext-en-nav-up up)
|
---|
92 | (make empty-element gi: "IMG"
|
---|
93 | attributes: '(("SRC" "images/up.png")
|
---|
94 | ("BORDER" "0")
|
---|
95 | ("ALT" "Up"))))
|
---|
96 |
|
---|
97 | (define (gentext-en-nav-home home)
|
---|
98 | (make empty-element gi: "IMG"
|
---|
99 | attributes: '(("SRC" "images/home.png")
|
---|
100 | ("BORDER" "0")
|
---|
101 | ("ALT" "Home"))))
|
---|
102 |
|
---|
103 | ;;
|
---|
104 | ;;
|
---|
105 | ;;=================================================================
|
---|
106 | ;; End of navigation icons section
|
---|
107 | ;;=================================================================
|
---|
108 |
|
---|
109 |
|
---|
110 | ;;=================================================================
|
---|
111 | ;; NAVIGATION HEADER TABLES
|
---|
112 | ;;=================================================================
|
---|
113 | ;;
|
---|
114 | ;;
|
---|
115 | ;; Rearrange navigation header to put bigger jumps at outside edge
|
---|
116 | ;;
|
---|
117 | ;; (Overrides stuff defined in html/dbnavig.dsl)
|
---|
118 | ;;
|
---|
119 | ;;
|
---|
120 | ;;=================================================================
|
---|
121 | ;;=================================================================
|
---|
122 | ;;
|
---|
123 | ;;
|
---|
124 |
|
---|
125 | (define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib)
|
---|
126 | (let* ((r1? (nav-banner? elemnode))
|
---|
127 | (r1-sosofo (make element gi: "TR"
|
---|
128 | (make element gi: "TH"
|
---|
129 | attributes: (list
|
---|
130 | (list "COLSPAN" "5")
|
---|
131 | (list "ALIGN" "center")
|
---|
132 | (list "VALIGN" "bottom"))
|
---|
133 | (nav-banner elemnode))))
|
---|
134 | (r2? (or (not (node-list-empty? prev))
|
---|
135 | (not (node-list-empty? next))
|
---|
136 | (not (node-list-empty? prevsib))
|
---|
137 | (not (node-list-empty? nextsib))
|
---|
138 | (nav-context? elemnode)))
|
---|
139 | (r2-sosofo (make element gi: "TR"
|
---|
140 |
|
---|
141 | ;; constructs Fast-Backward link
|
---|
142 |
|
---|
143 | (make element gi: "TD"
|
---|
144 | attributes: (list
|
---|
145 | (list "WIDTH" "10%")
|
---|
146 | (list "ALIGN" "left")
|
---|
147 | (list "VALIGN" "top"))
|
---|
148 | (if (node-list-empty? prevsib)
|
---|
149 | (make entity-ref name: "nbsp")
|
---|
150 | (make element gi: "A"
|
---|
151 | attributes: (list
|
---|
152 | (list "HREF"
|
---|
153 | (href-to
|
---|
154 | prevsib)))
|
---|
155 | (gentext-nav-prev-sibling prevsib))))
|
---|
156 |
|
---|
157 | ;; constructs Previous link
|
---|
158 | (make element gi: "TD"
|
---|
159 | attributes: (list
|
---|
160 | (list "WIDTH" "10%")
|
---|
161 | (list "ALIGN" "left")
|
---|
162 | (list "VALIGN" "top"))
|
---|
163 | (if (node-list-empty? prev)
|
---|
164 | (make entity-ref name: "nbsp")
|
---|
165 | (make element gi: "A"
|
---|
166 | attributes: (list
|
---|
167 | (list "HREF"
|
---|
168 | (href-to
|
---|
169 | prev)))
|
---|
170 | (gentext-nav-prev prev))))
|
---|
171 |
|
---|
172 | ;; center part: navigation context, title, etc.
|
---|
173 |
|
---|
174 | (make element gi: "TD"
|
---|
175 | attributes: (list
|
---|
176 | (list "WIDTH" "60%")
|
---|
177 | (list "ALIGN" "center")
|
---|
178 | (list "VALIGN" "bottom"))
|
---|
179 | (nav-context elemnode))
|
---|
180 | ;; constructs Next link
|
---|
181 | (make element gi: "TD"
|
---|
182 | attributes: (list
|
---|
183 | (list "WIDTH" "10%")
|
---|
184 | (list "ALIGN" "right")
|
---|
185 | (list "VALIGN" "top"))
|
---|
186 | (if (node-list-empty? next)
|
---|
187 | (make entity-ref name: "nbsp")
|
---|
188 | (make element gi: "A"
|
---|
189 | attributes: (list
|
---|
190 | (list "HREF"
|
---|
191 | (href-to
|
---|
192 | next)))
|
---|
193 | (gentext-nav-next next))))
|
---|
194 |
|
---|
195 | ;; constructs Fast-Forward link
|
---|
196 |
|
---|
197 | (make element gi: "TD"
|
---|
198 | attributes: (list
|
---|
199 | (list "WIDTH" "10%")
|
---|
200 | (list "ALIGN" "right")
|
---|
201 | (list "VALIGN" "top"))
|
---|
202 | (if (node-list-empty? nextsib)
|
---|
203 | (make entity-ref name: "nbsp")
|
---|
204 | (make element gi: "A"
|
---|
205 | attributes: (list
|
---|
206 | (list "HREF"
|
---|
207 | (href-to
|
---|
208 | nextsib)))
|
---|
209 | (gentext-nav-next-sibling nextsib))))
|
---|
210 | )))
|
---|
211 | (if (or r1? r2?)
|
---|
212 | (make element gi: "DIV"
|
---|
213 | attributes: '(("CLASS" "NAVHEADER"))
|
---|
214 | (make element gi: "TABLE"
|
---|
215 | attributes: (list
|
---|
216 | (list "WIDTH" %gentext-nav-tblwidth%)
|
---|
217 | (list "BORDER" "0")
|
---|
218 | (list "CELLPADDING" "0")
|
---|
219 | (list "CELLSPACING" "0"))
|
---|
220 | (if r1? r1-sosofo (empty-sosofo))
|
---|
221 | (if r2? r2-sosofo (empty-sosofo)))
|
---|
222 | (make empty-element gi: "HR"
|
---|
223 | attributes: (list
|
---|
224 | (list "ALIGN" "LEFT")
|
---|
225 | (list "WIDTH" %gentext-nav-tblwidth%))))
|
---|
226 | (empty-sosofo))))
|
---|
227 |
|
---|
228 | ;;
|
---|
229 | ;;
|
---|
230 | ;;=================================================================
|
---|
231 |
|
---|
232 |
|
---|
233 | </style-specification-body>
|
---|
234 | </style-specification>
|
---|
235 |
|
---|
236 | <!-- PS -->
|
---|
237 | <style-specification id="print" use="print-stylesheet">
|
---|
238 | <style-specification-body>
|
---|
239 |
|
---|
240 | ;; Bookmark generation for PDF
|
---|
241 | (declare-characteristic heading-level
|
---|
242 | "UNREGISTERED::James Clark//Characteristic::heading-level" 2)
|
---|
243 |
|
---|
244 | ;;; To make URLs line wrap we use the TeX 'url' package.
|
---|
245 | ;;; See also: jadetex.cfg
|
---|
246 | ;; First we need to declare the 'formatting-instruction' flow class.
|
---|
247 | ;; (declare-flow-object-class formatting-instruction
|
---|
248 | ;; "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
|
---|
249 | ;; Then redefine ulink to use it.
|
---|
250 | ;; (element ulink
|
---|
251 | ;; (make sequence
|
---|
252 | ;; (if (node-list-empty? (children (current-node)))
|
---|
253 | ;; ; ulink url="...", /ulink
|
---|
254 | ;; (make formatting-instruction
|
---|
255 | ;; data: (string-append "\\url{"
|
---|
256 | ;; (attribute-string (normalize "url"))
|
---|
257 | ;; "}"))
|
---|
258 | ;; (if (equal? (attribute-string (normalize "url"))
|
---|
259 | ;; (data-of (current-node)))
|
---|
260 | ;; ; ulink url="http://...", http://..., /ulink
|
---|
261 | ;; (make formatting-instruction data:
|
---|
262 | ;; (string-append "\\url{"
|
---|
263 | ;; (attribute-string (normalize "url"))
|
---|
264 | ;; "}"))
|
---|
265 | ;; ; ulink url="http://...", some text, /ulink
|
---|
266 | ;; (make sequence
|
---|
267 | ;; ($charseq$)
|
---|
268 | ;; (literal " (")
|
---|
269 | ;; (make formatting-instruction data:
|
---|
270 | ;; (string-append "\\url{"
|
---|
271 | ;; (attribute-string (normalize "url"))
|
---|
272 | ;; "}"))
|
---|
273 | ;; (literal ")"))))))
|
---|
274 | ;;; And redefine filename to use it too.
|
---|
275 | ;; (element filename
|
---|
276 | ;; (make formatting-instruction
|
---|
277 | ;; data: (string-append "\\path{" (data-of (current-node)) "}")))
|
---|
278 |
|
---|
279 |
|
---|
280 | ;; Ne montre pas les liens
|
---|
281 | (define %show-ulinks% #f)
|
---|
282 |
|
---|
283 | ;; Are sections enumerated?
|
---|
284 | (define %section-autolabel% #t)
|
---|
285 |
|
---|
286 | ;; Use graphics in admonitions?
|
---|
287 | (define %admon-graphics% #t)
|
---|
288 |
|
---|
289 | ;; Path to admonition graphics
|
---|
290 | (define %admon-graphics-path% "images/")
|
---|
291 |
|
---|
292 | (define ($admon-graphic$ #!optional (nd (current-node)))
|
---|
293 | (cond ((equal? (gi nd) (normalize "tip"))
|
---|
294 | (string-append %admon-graphics-path% "tip.png"))
|
---|
295 | ((equal? (gi nd) (normalize "note"))
|
---|
296 | (string-append %admon-graphics-path% "note.png"))
|
---|
297 | ((equal? (gi nd) (normalize "important"))
|
---|
298 | (string-append %admon-graphics-path% "important.png"))
|
---|
299 | ((equal? (gi nd) (normalize "caution"))
|
---|
300 | (string-append %admon-graphics-path% "caution.png"))
|
---|
301 | ((equal? (gi nd) (normalize "warning"))
|
---|
302 | (string-append %admon-graphics-path% "warning.png"))
|
---|
303 | (else (error (string-append (gi nd) " is not an admonition.")))))
|
---|
304 |
|
---|
305 |
|
---|
306 |
|
---|
307 |
|
---|
308 |
|
---|
309 | ;; No recto-verso
|
---|
310 | (define %two-side% #f)
|
---|
311 |
|
---|
312 | ;; links for URLs ?
|
---|
313 | (define %footnote-ulinks% #t)
|
---|
314 |
|
---|
315 | ;; Make "bottom-of-page" footnotes?
|
---|
316 | (define bop-footnotes #t)
|
---|
317 | (define tex-backend #t)
|
---|
318 |
|
---|
319 | ;; Allow justification
|
---|
320 | (define %default-quadding% 'justify)
|
---|
321 |
|
---|
322 | ;; Allow automatic hyphenation?
|
---|
323 | (define %hyphenation% #t)
|
---|
324 |
|
---|
325 | ;; défaut extension (print mode)
|
---|
326 | (define %graphic-default-extension% "eps")
|
---|
327 |
|
---|
328 | ;; From Norman Walsh
|
---|
329 | (define (book-titlepage-recto-elements)
|
---|
330 | (list (normalize "title")
|
---|
331 | (normalize "subtitle")
|
---|
332 | (normalize "graphic")
|
---|
333 | (normalize "mediaobject")
|
---|
334 | (normalize "corpauthor")
|
---|
335 | (normalize "authorgroup")
|
---|
336 | (normalize "author")
|
---|
337 | (normalize "editor")
|
---|
338 | ;;(normalize "copyright")
|
---|
339 | (normalize "printhistory") ;; add this...
|
---|
340 | ;; (normalize "revhistory")
|
---|
341 | ;;(normalize "abstract")
|
---|
342 | ;;(normalize "releaseinfo")
|
---|
343 | (normalize "pubdate")
|
---|
344 | ;;(normalize "legalnotice")
|
---|
345 | ))
|
---|
346 |
|
---|
347 | ;; From ldp.dsl
|
---|
348 | (define %body-start-indent%
|
---|
349 | ;; Default indent of body text
|
---|
350 | 0pi)
|
---|
351 |
|
---|
352 | (define %para-indent-firstpara%
|
---|
353 | ;; First line start-indent for the first paragraph
|
---|
354 | 0pt)
|
---|
355 |
|
---|
356 | (define %para-indent%
|
---|
357 | ;; First line start-indent for paragraphs (other than the first)
|
---|
358 | 0pt)
|
---|
359 |
|
---|
360 | (define %block-start-indent%
|
---|
361 | ;; Extra start-indent for block-elements
|
---|
362 | 0pt)
|
---|
363 |
|
---|
364 |
|
---|
365 | </style-specification-body>
|
---|
366 | </style-specification>
|
---|
367 |
|
---|
368 | <!-- Pour le PDF -->
|
---|
369 | <style-specification id="pdf" use="print">
|
---|
370 | <style-specification-body>
|
---|
371 |
|
---|
372 | ;; l'extension par défaut en mode HTML
|
---|
373 | (define %graphic-default-extension% "png")
|
---|
374 |
|
---|
375 | ;; Pour PDF
|
---|
376 | (declare-characteristic heading-level
|
---|
377 | "UNREGISTERED::James Clark//Characteristic::heading-level" 2)
|
---|
378 | (define %generate-heading-level% #t)
|
---|
379 |
|
---|
380 | </style-specification-body>
|
---|
381 | </style-specification>
|
---|
382 |
|
---|
383 | <!-- Pour le TXT -->
|
---|
384 | <style-specification id="txt" use="html">
|
---|
385 | <style-specification-body>
|
---|
386 |
|
---|
387 | ;; One page
|
---|
388 | (define nochunks #t)
|
---|
389 |
|
---|
390 | ;; no manifest
|
---|
391 | (define %html-manifest% #f)
|
---|
392 |
|
---|
393 | </style-specification-body>
|
---|
394 | </style-specification>
|
---|
395 |
|
---|
396 | <external-specification id="html-stylesheet" document="html-ss">
|
---|
397 | <external-specification id="print-stylesheet" document="print-ss">
|
---|
398 |
|
---|
399 | </style-sheet>
|
---|