|
102
|
1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
|
|
2 <!ENTITY % html "IGNORE">
|
|
|
3 <![%html;[
|
|
|
4 <!ENTITY % print "IGNORE">
|
|
|
5 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
|
|
|
6 ]]>
|
|
|
7 <!ENTITY % print "INCLUDE">
|
|
|
8 <![%print;[
|
|
|
9 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
|
|
|
10 ]]>
|
|
|
11 ]>
|
|
|
12
|
|
|
13 <!--
|
|
|
14 ;;#######################################################################
|
|
|
15 ;;# #
|
|
|
16 ;;# The GNOME Documentation Project's #
|
|
|
17 ;;# Custion DocBook Stylesheet Layer #
|
|
|
18 ;;# by Dave Mason dcm@redhat.com #
|
|
|
19 ;;# Based on Norman Walsh's Modular Stylesheets #
|
|
|
20 ;;# #
|
|
|
21 ;;# This is intended as a drop-in replacement for #
|
|
|
22 ;;# the cygnus-both.dsl file in DocBook Tools. #
|
|
|
23 ;;# Just copy it to the location dbtools created #
|
|
|
24 ;;# and rename it cygnus-both.dsl #
|
|
|
25 ;;# #
|
|
|
26 ;;# This is Version 1.0-4 #
|
|
|
27 ;;# patched to fix RTF output (#49677) #
|
|
|
28 ;;# patched to work with docbook-dsssl-1.72 #
|
|
|
29 ;;# patched for ADDRESS output (#50605) #
|
|
|
30 ;;# removed comment and remark #
|
|
|
31 ;;# disabled use-id-as-filename #
|
|
|
32 ;;#######################################################################
|
|
|
33 -->
|
|
|
34
|
|
|
35 <style-sheet>
|
|
|
36
|
|
|
37
|
|
|
38 <style-specification id="print" use="docbook">
|
|
|
39 <style-specification-body>
|
|
|
40
|
|
|
41 ;;==========================================================================
|
|
|
42 ;; PRINT
|
|
|
43 ;;==========================================================================
|
|
|
44
|
|
|
45 ;;======================================
|
|
|
46 ;;General Options
|
|
|
47 ;;======================================
|
|
|
48
|
|
|
49 ;;Do you want to print on both sides of the paper?
|
|
|
50 (define %two-side%
|
|
|
51 #t)
|
|
|
52
|
|
|
53 ;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
|
|
|
54 (define %section-autolabel%
|
|
|
55 #t)
|
|
|
56
|
|
|
57 ;;What is the default extension for graphics?
|
|
|
58 (define %graphic-default-extension%
|
|
|
59 "eps")
|
|
|
60
|
|
|
61 ;;Show URL links? If the text of the link and the URL are identical,
|
|
|
62 ;;the parenthetical URL is suppressed.
|
|
|
63 (define %show-ulinks%
|
|
|
64 #t)
|
|
|
65
|
|
|
66 ;Make Ulinks footnotes to stop bleeding in the edges - this increases
|
|
|
67 ;'jade --> print' time tremendously keep this in mind before
|
|
|
68 ;complaining!
|
|
|
69 (define %footnote-ulinks%
|
|
|
70 #t)
|
|
|
71
|
|
|
72 ;;Tex Backend on
|
|
|
73 (define tex-backend
|
|
|
74 #t)
|
|
|
75
|
|
|
76 ;;Define Line Spacing
|
|
|
77 (define %line-spacing-factor% 1.1)
|
|
|
78
|
|
|
79 ;;Define the Paragraph Style
|
|
|
80 (define para-style
|
|
|
81 (style
|
|
|
82 font-size: %bf-size%
|
|
|
83 font-weight: 'medium
|
|
|
84 font-posture: 'upright
|
|
|
85 font-family-name: %body-font-family%
|
|
|
86 line-spacing: (* %bf-size% %line-spacing-factor%)))
|
|
|
87
|
|
|
88 (define ($object-titles-after$)
|
|
|
89 (list (normalize "figure")))
|
|
|
90
|
|
|
91 ;;======================================
|
|
|
92 ;;Book Options
|
|
|
93 ;;======================================
|
|
|
94
|
|
|
95
|
|
|
96 ;;Do you want a title page for a Book?
|
|
|
97 (define %generate-book-titlepage%
|
|
|
98 #t)
|
|
|
99
|
|
|
100 ;;Do you want a separate page for the title?
|
|
|
101 (define %generate-book-titlepage-on-separate-page%
|
|
|
102 #t)
|
|
|
103
|
|
|
104 ;;Generate Book TOC?
|
|
|
105 (define %generate-book-toc%
|
|
|
106 #t)
|
|
|
107
|
|
|
108 ;;What depth should the TOC generate?
|
|
|
109 ;;!Only top level of appendixes!
|
|
|
110 (define (toc-depth nd)
|
|
|
111 (if (string=? (gi nd) (normalize "book"))
|
|
|
112 3
|
|
|
113 (if (string=? (gi nd) (normalize "appendix"))
|
|
|
114 0
|
|
|
115 1)))
|
|
|
116
|
|
|
117 ;;Do you want a TOC for the element part?
|
|
|
118 (define %generate-part-toc%
|
|
|
119 #f)
|
|
|
120
|
|
|
121 ;;Do you want the part toc on the part titlepage or separate?
|
|
|
122 (define %generate-part-toc-on-titlepage%
|
|
|
123 #t)
|
|
|
124
|
|
|
125 ;;Generate Part Title Page?
|
|
|
126 (define %generate-part-titlepage%
|
|
|
127 #f)
|
|
|
128
|
|
|
129 ;;Do you want the Part intro on the part title page?
|
|
|
130 (define %generate-partintro-on-titlepage%
|
|
|
131 #t)
|
|
|
132
|
|
|
133 ;;What elements should have a LOT?
|
|
|
134 (define ($generate-book-lot-list$)
|
|
|
135 (list (normalize "equation")))
|
|
|
136
|
|
|
137 ;;Do you want chapters enumerated?
|
|
|
138 (define %chapter-autolabel%
|
|
|
139 #t)
|
|
|
140
|
|
|
141 ;;Do you want Chapter's and Appendix's
|
|
|
142 ;;to have automatic labels?
|
|
|
143 (define %chap-app-running-head-autolabel%
|
|
|
144 #t)
|
|
|
145
|
|
|
146
|
|
|
147 ;;======================================
|
|
|
148 ;;Article Options
|
|
|
149 ;;======================================
|
|
|
150
|
|
|
151 ;;Do you want a title page for an Article?
|
|
|
152 (define %generate-article-titlepage%
|
|
|
153 #t)
|
|
|
154
|
|
|
155 ;;Generate Article TOC?
|
|
|
156 (define %generate-article-toc%
|
|
|
157 #t)
|
|
|
158
|
|
|
159 ;;Do you want a separate page for the title?
|
|
|
160 (define %generate-article-titlepage-on-separate-page%
|
|
|
161 #t)
|
|
|
162
|
|
|
163 ;;Do you want the article toc on the titlepage or separate?
|
|
|
164 (define %generate-article-toc-on-titlepage%
|
|
|
165 #t)
|
|
|
166
|
|
|
167 ;;Do you want to start new page numbers with each article?
|
|
|
168 (define %article-page-number-restart%
|
|
|
169 #f)
|
|
|
170
|
|
|
171 ;;Titlepage Separate?
|
|
|
172 (define (chunk-skip-first-element-list)
|
|
|
173 '())
|
|
|
174
|
|
|
175 ;;Titlepage Not Separate
|
|
|
176 ;(define (chunk-skip-first-element-list)
|
|
|
177 ; (list (normalize "sect1")
|
|
|
178 ; (normalize "section")))
|
|
|
179
|
|
|
180 ;;======================================
|
|
|
181 ;;Columns
|
|
|
182 ;;======================================
|
|
|
183
|
|
|
184 ;;How many columns do you want?
|
|
|
185 (define %page-n-columns%
|
|
|
186 1)
|
|
|
187
|
|
|
188 ;;How much space between columns?
|
|
|
189 (define %page-column-sep%
|
|
|
190 0.2in)
|
|
|
191
|
|
|
192 ;;How many Columns on the titlepage?
|
|
|
193 (define %titlepage-n-columns%
|
|
|
194 1)
|
|
|
195
|
|
|
196 ;;Balance columns?
|
|
|
197 (define %page-balance-colums%
|
|
|
198 #t)
|
|
|
199
|
|
|
200 ;;======================================
|
|
|
201 ;;Fonts
|
|
|
202 ;;======================================
|
|
|
203
|
|
|
204 ;;Defines the general size of the text in the document. normal(10),
|
|
|
205 ;;presbyopic(12), and large-type(24).
|
|
|
206 (define %visual-acuity%
|
|
|
207 "normal")
|
|
|
208
|
|
|
209 ;;What font would you like for titles?
|
|
|
210 (define %title-font-family%
|
|
|
211 "Helvetica")
|
|
|
212
|
|
|
213 ;;What font would you like for the body?
|
|
|
214 (define %body-font-family%
|
|
|
215 "Palatino")
|
|
|
216
|
|
|
217 ;;What font would you like for mono-seq?
|
|
|
218 (define %mono-font-family%
|
|
|
219 "Courier New")
|
|
|
220
|
|
|
221 ;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
|
|
|
222 ;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
|
|
|
223 (define %hsize-bump-factor%
|
|
|
224 1.1)
|
|
|
225
|
|
|
226 ;;What size do you want the body fonts?
|
|
|
227 (define %bf-size%
|
|
|
228 (case %visual-acuity%
|
|
|
229 (("tiny") 8pt)
|
|
|
230 (("normal") 10pt)
|
|
|
231 (("presbyopic") 12pt)
|
|
|
232 (("large-type") 24pt)))
|
|
|
233
|
|
|
234 (define-unit em %bf-size%)
|
|
|
235
|
|
|
236 ;;======================================
|
|
|
237 ;;Margins
|
|
|
238 ;;======================================
|
|
|
239
|
|
|
240 (define %left-right-margin% 6pi)
|
|
|
241
|
|
|
242 ;;How much indentation for the body?
|
|
|
243 (define %body-start-indent%
|
|
|
244 4pi)
|
|
|
245
|
|
|
246 ;;How big is the left margin? (relative to physical page)
|
|
|
247 (define %left-margin%
|
|
|
248 8pi) ;white-paper-column
|
|
|
249
|
|
|
250 ;;How big is the right margin? (relative to physical page)
|
|
|
251 (define %right-margin%
|
|
|
252 8pi) ;white-paper-column
|
|
|
253
|
|
|
254 ;;How big do you want the margin at the top?
|
|
|
255 (define %top-margin%
|
|
|
256 (if (equal? %visual-acuity% "large-type")
|
|
|
257 7.5pi
|
|
|
258 6pi))
|
|
|
259
|
|
|
260 ;;How big do you want the margin at the bottom?
|
|
|
261 (define %bottom-margin%
|
|
|
262 (if (equal? %visual-acuity% "large-type")
|
|
|
263 7.5pi
|
|
|
264 5pi))
|
|
|
265
|
|
|
266 ;;Define the text width. (Change the elements in the formula rather
|
|
|
267 ;;than the formula itself)
|
|
|
268 ;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
|
|
|
269 (define %text-width% (- %page-width% (+ %left-margin% %right-margin%)))
|
|
|
270
|
|
|
271 ;;Define the body width. (Change the elements in the formula rather
|
|
|
272 ;;than the formula itself)
|
|
|
273 (define %body-width%
|
|
|
274 (- %text-width% %body-start-indent%))
|
|
|
275
|
|
|
276 ;;Define distance between paragraphs
|
|
|
277 (define %para-sep%
|
|
|
278 (/ %bf-size% 2.0))
|
|
|
279
|
|
|
280 ;;Define distance between block elements (figures, tables, etc.).
|
|
|
281 (define %block-sep%
|
|
|
282 (* %para-sep% 2.0))
|
|
|
283
|
|
|
284 ;;Indent block elements?
|
|
|
285 (define %block-start-indent%
|
|
|
286 0pt)
|
|
|
287 ;0pt
|
|
|
288
|
|
|
289 ;;======================================
|
|
|
290 ;;Admon Graphics
|
|
|
291 ;;======================================
|
|
|
292
|
|
|
293 ;;Do you want admon graohics on?
|
|
|
294 (define %admon-graphics%
|
|
|
295 #f)
|
|
|
296
|
|
|
297 ;;Where are the admon graphics?
|
|
|
298 (define %admon-graphics-path%
|
|
|
299 "../images/")
|
|
|
300
|
|
|
301 ;;======================================
|
|
|
302 ;;Quadding
|
|
|
303 ;;======================================
|
|
|
304
|
|
|
305 ;;What quadding do you want by default; start, center, justify, or end?
|
|
|
306 (define %default-quadding%
|
|
|
307 'justify)
|
|
|
308
|
|
|
309 ;;What quadding for component titles(Chapter, Appendix, etc)?
|
|
|
310 (define %component-title-quadding%
|
|
|
311 'start)
|
|
|
312
|
|
|
313 ;;What quadding for section titles?
|
|
|
314 (define %section-title-quadding%
|
|
|
315 'start)
|
|
|
316
|
|
|
317 ;;What quadding for section sub-titles?
|
|
|
318 (define %section-subtitle-quadding%
|
|
|
319 'start)
|
|
|
320
|
|
|
321 ;;What quadding for article title?
|
|
|
322 (define %article-title-quadding%
|
|
|
323 'center)
|
|
|
324
|
|
|
325 ;;What quadding for article sub-titles?
|
|
|
326 (define %article-subtitle-quadding%
|
|
|
327 'center)
|
|
|
328
|
|
|
329 ;;What quadding for division subtitles?
|
|
|
330 (define %division-subtitle-quadding%
|
|
|
331 'start)
|
|
|
332
|
|
|
333 ;;What quadding for component subtitles?
|
|
|
334 (define %component-subtitle-quadding%
|
|
|
335 'start)
|
|
|
336
|
|
|
337
|
|
|
338
|
|
|
339
|
|
|
340 ;;======================================
|
|
|
341 ;;Paper Options
|
|
|
342 ;;======================================
|
|
|
343
|
|
|
344 ;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
|
|
|
345 (define %paper-type%
|
|
|
346 "A4")
|
|
|
347
|
|
|
348 ;;Now define those paper types' width
|
|
|
349 (define %page-width%
|
|
|
350 (case %paper-type%
|
|
|
351 (("A4") 210mm)
|
|
|
352 (("USletter") 8.5in)
|
|
|
353 (("USlandscape") 11in)))
|
|
|
354
|
|
|
355 ;;Now define those paper types' height
|
|
|
356 (define %page-height%
|
|
|
357 (case %paper-type%
|
|
|
358 (("A4") 297mm)
|
|
|
359 (("USletter") 11in)
|
|
|
360 (("USlandscape") 8.5in)))
|
|
|
361
|
|
|
362 ;;======================================
|
|
|
363 ;;Functions
|
|
|
364 ;;======================================
|
|
|
365
|
|
|
366 (define (OLSTEP)
|
|
|
367 (case
|
|
|
368 (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
|
|
|
369 ((1) 1.2em)
|
|
|
370 ((2) 1.2em)
|
|
|
371 ((3) 1.6em)
|
|
|
372 ((0) 1.4em)))
|
|
|
373
|
|
|
374 (define (ILSTEP) 1.0em)
|
|
|
375
|
|
|
376 (define (PROCSTEP ilvl)
|
|
|
377 (if (> ilvl 1) 1.8em 1.4em))
|
|
|
378
|
|
|
379 (define (PROCWID ilvl)
|
|
|
380 (if (> ilvl 1) 1.8em 1.4em))
|
|
|
381
|
|
|
382
|
|
|
383 (define ($comptitle$)
|
|
|
384 (make paragraph
|
|
|
385 font-family-name: %title-font-family%
|
|
|
386 font-weight: 'bold
|
|
|
387 font-size: (HSIZE 2)
|
|
|
388 line-spacing: (* (HSIZE 2) %line-spacing-factor%)
|
|
|
389 space-before: (* (HSIZE 2) %head-before-factor%)
|
|
|
390 space-after: (* (HSIZE 2) %head-after-factor%)
|
|
|
391 start-indent: 0pt
|
|
|
392 first-line-start-indent: 0pt
|
|
|
393 quadding: 'start
|
|
|
394 keep-with-next?: #t
|
|
|
395 (process-children-trim)))
|
|
|
396
|
|
|
397 ;;Callouts are confusing in Postscript... fix them.
|
|
|
398 (define %callout-fancy-bug%
|
|
|
399 #f)
|
|
|
400
|
|
|
401
|
|
|
402 ;;By default perils are centered and dropped into a box with a really
|
|
|
403 ;;big border - I have simply decreased the border thickness -
|
|
|
404 ;;unfortunately it takes all this to do it - sigh.
|
|
|
405 (define ($peril$)
|
|
|
406 (let* ((title (select-elements
|
|
|
407 (children (current-node)) (normalize "title")))
|
|
|
408 (has-title (not (node-list-empty? title)))
|
|
|
409 (adm-title (if has-title
|
|
|
410 (make sequence
|
|
|
411 (with-mode title-sosofo-mode
|
|
|
412 (process-node-list (node-list-first title))))
|
|
|
413 (literal
|
|
|
414 (gentext-element-name
|
|
|
415 (current-node)))))
|
|
|
416 (hs (HSIZE 2)))
|
|
|
417 (if %admon-graphics%
|
|
|
418 ($graphical-admonition$)
|
|
|
419 (make display-group
|
|
|
420 space-before: %block-sep%
|
|
|
421 space-after: %block-sep%
|
|
|
422 font-family-name: %admon-font-family%
|
|
|
423 font-size: (- %bf-size% 1pt)
|
|
|
424 font-weight: 'medium
|
|
|
425 font-posture: 'upright
|
|
|
426 line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
|
|
|
427 (make box
|
|
|
428 display?: #t
|
|
|
429 box-type: 'border
|
|
|
430 line-thickness: .5pt
|
|
|
431 start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
|
|
|
432 end-indent: (inherited-end-indent)
|
|
|
433 (make paragraph
|
|
|
434 space-before: %para-sep%
|
|
|
435 space-after: %para-sep%
|
|
|
436 start-indent: 1em
|
|
|
437 end-indent: 1em
|
|
|
438 font-family-name: %title-font-family%
|
|
|
439 font-weight: 'bold
|
|
|
440 font-size: hs
|
|
|
441 line-spacing: (* hs %line-spacing-factor%)
|
|
|
442 quadding: 'center
|
|
|
443 keep-with-next?: #t
|
|
|
444 adm-title)
|
|
|
445 (process-children))))))
|
|
|
446
|
|
|
447
|
|
|
448 ;;======================================
|
|
|
449 ;;Non-printing Elements
|
|
|
450 ;;======================================
|
|
|
451 (element TITLEABBREV (empty-sosofo))
|
|
|
452 (element SUBTITLE (empty-sosofo))
|
|
|
453 (element SETINFO (empty-sosofo))
|
|
|
454 (element BOOKINFO (empty-sosofo))
|
|
|
455 (element BIBLIOENTRY (empty-sosofo))
|
|
|
456 (element BIBLIOMISC (empty-sosofo))
|
|
|
457 (element BOOKBIBLIO (empty-sosofo))
|
|
|
458 (element SERIESINFO (empty-sosofo))
|
|
|
459 (element DOCINFO (empty-sosofo))
|
|
|
460 (element ARTHEADER (empty-sosofo))
|
|
|
461 ;;(element ADDRESS (empty-sosofo))
|
|
|
462
|
|
|
463 ;;Show comment element?
|
|
|
464 (define %show-comments%
|
|
|
465 #t)
|
|
|
466
|
|
|
467 ;;======================================
|
|
|
468 ;;Formalpara titles
|
|
|
469 ;;======================================
|
|
|
470
|
|
|
471
|
|
|
472 ;;Change the way Formal Paragraph titles are displayed. The commented
|
|
|
473 ;;out section will run the titles in the paragraphs.
|
|
|
474 (element (formalpara title)
|
|
|
475 ;(make sequence
|
|
|
476 ;font-weight: 'bold
|
|
|
477 ;($runinhead$))
|
|
|
478 ($lowtitle$ 5 7))
|
|
|
479
|
|
|
480 ;;======================================
|
|
|
481 ;;Inlines
|
|
|
482 ;;======================================
|
|
|
483
|
|
|
484 (element application ($mono-seq$))
|
|
|
485 (element command ($bold-seq$))
|
|
|
486 (element filename ($mono-seq$))
|
|
|
487 (element function ($mono-seq$))
|
|
|
488 (element guibutton ($bold-seq$))
|
|
|
489 (element guiicon ($bold-seq$))
|
|
|
490 (element guilabel ($italic-seq$))
|
|
|
491 (element guimenu ($bold-seq$))
|
|
|
492 (element guimenuitem ($bold-seq$))
|
|
|
493 (element hardware ($bold-mono-seq$))
|
|
|
494 (element keycap ($bold-seq$))
|
|
|
495 (element literal ($mono-seq$))
|
|
|
496 (element parameter ($italic-mono-seq$))
|
|
|
497 (element prompt ($mono-seq$))
|
|
|
498 (element symbol ($charseq$))
|
|
|
499 (element emphasis ($italic-seq$))
|
|
|
500
|
|
|
501 </style-specification-body>
|
|
|
502 </style-specification>
|
|
|
503
|
|
|
504
|
|
|
505 <!--
|
|
|
506 ;;===========================================================================
|
|
|
507 ;; HTML
|
|
|
508 ;;===========================================================================
|
|
|
509 -->
|
|
|
510
|
|
|
511 <style-specification id="html" use="docbook">
|
|
|
512 <style-specification-body>
|
|
|
513
|
|
|
514 ;; this is necessary because right now jadetex does not understand
|
|
|
515 ;; symbolic entities, whereas things work well with numeric entities.
|
|
|
516 (declare-characteristic preserve-sdata?
|
|
|
517 "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
|
|
|
518 #f)
|
|
|
519
|
|
|
520
|
|
|
521 ;;=========================
|
|
|
522 ;;Header HTML 4.0.1
|
|
|
523 ;;=========================
|
|
|
524
|
|
|
525 (define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
|
|
|
526
|
|
|
527 ;;=========================
|
|
|
528 ;;Common Stuff
|
|
|
529 ;;=========================
|
|
|
530
|
|
|
531 ;;Should there be a link to the legalnotice?
|
|
|
532 (define %generate-legalnotice-link%
|
|
|
533 #t)
|
|
|
534
|
|
|
535 ;;What graphics extensions allowed?
|
|
|
536 (define %graphic-extensions%
|
|
|
537 '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
|
|
|
538
|
|
|
539 ;;What is the default extension for images?
|
|
|
540 (define %graphic-default-extension% "png")
|
|
|
541
|
|
|
542 ;;Use element ids as filenames?
|
|
|
543 (define %use-id-as-filename%
|
|
|
544 #f)
|
|
|
545
|
|
|
546
|
|
|
547 ;;=========================
|
|
|
548 ;;Book Stuff
|
|
|
549 ;;=========================
|
|
|
550
|
|
|
551 ;;Do you want a TOC for Books?
|
|
|
552 (define %generate-book-toc%
|
|
|
553 #t)
|
|
|
554
|
|
|
555 ;;What depth should the TOC generate?
|
|
|
556 ;;!Only top level of appendixes!
|
|
|
557 (define (toc-depth nd)
|
|
|
558 (if (string=? (gi nd) (normalize "book"))
|
|
|
559 3
|
|
|
560 (if (string=? (gi nd) (normalize "appendix"))
|
|
|
561 0
|
|
|
562 1)))
|
|
|
563
|
|
|
564 ;;What elements should have an LOT?
|
|
|
565 (define ($generate-book-lot-list$)
|
|
|
566 (list (normalize "equation")))
|
|
|
567
|
|
|
568 ;;Do you want a title page for your Book?
|
|
|
569 (define %generate-book-titlepage%
|
|
|
570 #t)
|
|
|
571
|
|
|
572 ;;=========================
|
|
|
573 ;;Part Stuff
|
|
|
574 ;;=========================
|
|
|
575
|
|
|
576 ;;Should parts have TOCs?
|
|
|
577 (define %generate-part-toc%
|
|
|
578 #t)
|
|
|
579
|
|
|
580 ;;Should part TOCs be on their titlepages?
|
|
|
581 (define %generate-part-toc-on-titlepage%
|
|
|
582 #t)
|
|
|
583
|
|
|
584 ;;Do you want a title page for your part?
|
|
|
585 (define %generate-part-titlepage%
|
|
|
586 #t)
|
|
|
587
|
|
|
588 ;;Should the Part intro be on the part title page?
|
|
|
589 (define %generate-partintro-on-titlepage%
|
|
|
590 #t)
|
|
|
591
|
|
|
592 (define %para-autolabel%
|
|
|
593 #t)
|
|
|
594
|
|
|
595 ;;========================
|
|
|
596 ;;Chapter Stuff
|
|
|
597 ;;=======================
|
|
|
598
|
|
|
599 ;;No TOCs in Chapters
|
|
|
600 (define $generate-chapter-toc$
|
|
|
601 (lambda ()
|
|
|
602 #f))
|
|
|
603
|
|
|
604 ;;=========================
|
|
|
605 ;;Navigation
|
|
|
606 ;;=========================
|
|
|
607
|
|
|
608 ;;Should there be navigation at top?
|
|
|
609 (define %header-navigation%
|
|
|
610 #t)
|
|
|
611
|
|
|
612 ;;Should there be navigation at bottom?
|
|
|
613 (define %footer-navigation%
|
|
|
614 #t)
|
|
|
615
|
|
|
616 ;;Use tables to create the navigation?
|
|
|
617 (define %gentext-nav-use-tables%
|
|
|
618 #t)
|
|
|
619
|
|
|
620 ;;If tables are used for navigation,
|
|
|
621 ;;how wide should they be?
|
|
|
622 (define %gentext-nav-tblwidth%
|
|
|
623 "100%")
|
|
|
624
|
|
|
625 ;;Add arrows to navigation (comment these
|
|
|
626 ;;out if you want admon graphics here)
|
|
|
627 (define (gentext-en-nav-prev prev)
|
|
|
628 (make sequence (literal "<<< Previous")))
|
|
|
629
|
|
|
630 ;;Add arrows to navigation (comment these
|
|
|
631 ;;out if you want admon graphics here)
|
|
|
632 (define (gentext-en-nav-next next)
|
|
|
633 (make sequence (literal "Next >>>")))
|
|
|
634
|
|
|
635
|
|
|
636 ;;=========================
|
|
|
637 ;;Tables and Lists
|
|
|
638 ;;=========================
|
|
|
639
|
|
|
640 ;;Should Variable lists be tables?
|
|
|
641 (define %always-format-variablelist-as-table%
|
|
|
642 #f)
|
|
|
643
|
|
|
644 ;;What is the length of the 'Term' in a variablelist?
|
|
|
645 (define %default-variablelist-termlength%
|
|
|
646 20)
|
|
|
647
|
|
|
648 ;;When true | If the terms are shorter than
|
|
|
649 ;;the termlength above then the variablelist
|
|
|
650 ;;will be formatted as a table.
|
|
|
651 (define %may-format-variablelist-as-table%
|
|
|
652 #f)
|
|
|
653
|
|
|
654 ;;This overrides the tgroup definition
|
|
|
655 ;;(copied from 1.20, dbtable.dsl).
|
|
|
656 ;;It changes the table background color,
|
|
|
657 ;;cell spacing and cell padding.
|
|
|
658 ;;This is based on gtk-doc additions - thanks!
|
|
|
659
|
|
|
660 (element tgroup
|
|
|
661 (let* ((wrapper (parent (current-node)))
|
|
|
662 (frameattr (attribute-string (normalize "frame") wrapper))
|
|
|
663 (pgwide (attribute-string (normalize "pgwide") wrapper))
|
|
|
664 (footnotes (select-elements (descendants (current-node))
|
|
|
665 (normalize "footnote")))
|
|
|
666 (border (if (equal? frameattr (normalize "none"))
|
|
|
667 '(("BORDER" "0"))
|
|
|
668 '(("BORDER" "1"))))
|
|
|
669 (bgcolor '(("BGCOLOR" "#E0E0E0")))
|
|
|
670 (width (if (equal? pgwide "1")
|
|
|
671 (list (list "WIDTH" ($table-width$)))
|
|
|
672 '()))
|
|
|
673 (head (select-elements (children (current-node)) (normalize "thead")))
|
|
|
674 (body (select-elements (children (current-node)) (normalize "tbody")))
|
|
|
675 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
|
|
|
676 (make element gi: "TABLE"
|
|
|
677 attributes: (append
|
|
|
678 border
|
|
|
679 width
|
|
|
680 bgcolor
|
|
|
681 '(("CELLSPACING" "0"))
|
|
|
682 '(("CELLPADDING" "4"))
|
|
|
683 (if %cals-table-class%
|
|
|
684 (list (list "CLASS" %cals-table-class%))
|
|
|
685 '()))
|
|
|
686 (process-node-list head)
|
|
|
687 (process-node-list body)
|
|
|
688 (process-node-list feet)
|
|
|
689 (make-table-endnotes))))
|
|
|
690
|
|
|
691 ;;===================
|
|
|
692 ;; Admon Graphics
|
|
|
693 ;;===================
|
|
|
694
|
|
|
695 ;;Should Admon Graphics be used?
|
|
|
696 (define %admon-graphics%
|
|
|
697 #t)
|
|
|
698
|
|
|
699 ;;Where are those admon graphics?
|
|
|
700 (define %admon-graphics-path%
|
|
|
701 "./stylesheet-images/")
|
|
|
702
|
|
|
703 ;;Given an admonition node, returns the
|
|
|
704 ;;name of the graphic that should
|
|
|
705 ;;be used for that admonition.
|
|
|
706 ;;Define admon graphics usage
|
|
|
707 ;;NOTE these will change to pngs
|
|
|
708 ;;soon in the GDP when Tigert gets
|
|
|
709 ;;the time to make special ones for us!
|
|
|
710 (define ($admon-graphic$ #!optional (nd (current-node)))
|
|
|
711 (cond ((equal? (gi nd) (normalize "tip"))
|
|
|
712 (string-append %admon-graphics-path% "tip.gif"))
|
|
|
713 ((equal? (gi nd) (normalize "note"))
|
|
|
714 (string-append %admon-graphics-path% "note.gif"))
|
|
|
715 ((equal? (gi nd) (normalize "important"))
|
|
|
716 (string-append %admon-graphics-path% "important.gif"))
|
|
|
717 ((equal? (gi nd) (normalize "caution"))
|
|
|
718 (string-append %admon-graphics-path% "caution.gif"))
|
|
|
719 ((equal? (gi nd) (normalize "warning"))
|
|
|
720 (string-append %admon-graphics-path% "warning.gif"))
|
|
|
721 (else (error (string-append (gi nd) " is not an admonition.")))))
|
|
|
722
|
|
|
723 ;;Given an admonition node, returns
|
|
|
724 ;;the width of the graphic that will
|
|
|
725 ;;be used for that admonition.
|
|
|
726 (define ($admon-graphic-width$ #!optional (nd (current-node)))
|
|
|
727 "25")
|
|
|
728
|
|
|
729 ;;=========================
|
|
|
730 ;;Labels
|
|
|
731 ;;=========================
|
|
|
732
|
|
|
733 ;;Enumerate Chapters?
|
|
|
734 (define %chapter-autolabel%
|
|
|
735 #t)
|
|
|
736
|
|
|
737 ;;Enumerate Sections?
|
|
|
738 (define %section-autolabel%
|
|
|
739 #t)
|
|
|
740
|
|
|
741 ;;=========================
|
|
|
742 ;; HTML Attributes
|
|
|
743 ;;=========================
|
|
|
744
|
|
|
745 ;;What attributes should be hung off
|
|
|
746 ;;of 'body'?
|
|
|
747 (define %body-attr%
|
|
|
748 (list
|
|
|
749 (list "BGCOLOR" "#FFFFFF")
|
|
|
750 (list "TEXT" "#000000")
|
|
|
751 (list "LINK" "#0000FF")
|
|
|
752 (list "VLINK" "#840084")
|
|
|
753 (list "ALINK" "#0000FF")))
|
|
|
754
|
|
|
755 ;;Default extension for filenames?
|
|
|
756 (define %html-ext%
|
|
|
757 ".html")
|
|
|
758
|
|
|
759 ;;Use a CSS stylesheet?
|
|
|
760 ;;Which one? Should work on
|
|
|
761 ;;this one soon
|
|
|
762 ;(define %stylesheet%
|
|
|
763 ; "./gnome.css")
|
|
|
764
|
|
|
765 ;;Use it
|
|
|
766 ;(define %stylesheet-type%
|
|
|
767 ;"text/css")
|
|
|
768
|
|
|
769
|
|
|
770 ;;========================
|
|
|
771 ;;Title Pages for Books
|
|
|
772 ;;=======================
|
|
|
773
|
|
|
774 (define (book-titlepage-recto-elements)
|
|
|
775 (list (normalize "title")
|
|
|
776 (normalize "subtitle")
|
|
|
777 (normalize "corpauthor")
|
|
|
778 (normalize "authorgroup")
|
|
|
779 (normalize "author")
|
|
|
780 (normalize "orgname")
|
|
|
781 (normalize "graphic")
|
|
|
782 (normalize "copyright")
|
|
|
783 (normalize "legalnotice")
|
|
|
784 (normalize "releaseinfo")
|
|
|
785 (normalize "publisher")
|
|
|
786 (normalize "isbn")))
|
|
|
787
|
|
|
788 ;;========================
|
|
|
789 ;;Title Pages for Articles
|
|
|
790 ;;========================
|
|
|
791
|
|
|
792 ;;Should Articles have a TOC?
|
|
|
793 (define %generate-article-toc%
|
|
|
794 #t)
|
|
|
795
|
|
|
796 ;;Which elements should appear
|
|
|
797 ;;on title page?
|
|
|
798 (define (article-titlepage-recto-elements)
|
|
|
799 (list (normalize "title")
|
|
|
800 (normalize "subtitle")
|
|
|
801 (normalize "authorgroup")
|
|
|
802 (normalize "copyright")
|
|
|
803 (normalize "legalnotice")
|
|
|
804 (normalize "abstract")))
|
|
|
805
|
|
|
806 ;;How should elements on title page look?
|
|
|
807 (mode article-titlepage-recto-mode
|
|
|
808
|
|
|
809 ;;Author name is too big - change it!
|
|
|
810 (element author
|
|
|
811 (let ((author-name (author-string))
|
|
|
812 (author-affil (select-elements (children (current-node))
|
|
|
813 (normalize "affiliation"))))
|
|
|
814 (make sequence
|
|
|
815 (make element gi: "H4"
|
|
|
816 attributes: (list (list "CLASS" (gi)))
|
|
|
817 (make element gi: "A"
|
|
|
818 attributes: (list (list "NAME" (element-id)))
|
|
|
819 (literal author-name)))
|
|
|
820 (process-node-list author-affil))))
|
|
|
821
|
|
|
822 ;;Address?
|
|
|
823 (element address
|
|
|
824 (make sequence
|
|
|
825 (make element gi: "DIV"
|
|
|
826 attributes: (list (list "CLASS" (gi)))
|
|
|
827 (process-children))))
|
|
|
828
|
|
|
829 ;;Get rid of spam-producing "mailto" links
|
|
|
830 ;;and get rid of email indentation
|
|
|
831 (element email
|
|
|
832 (make sequence
|
|
|
833 (make element gi: "DIV"
|
|
|
834 attributes: (list (list "CLASS" (gi)))
|
|
|
835 (process-children))))
|
|
|
836
|
|
|
837 ;;Point Abstract to custom table function
|
|
|
838 ;;(See $dcm-abstract-object$ below. For default
|
|
|
839 ;;use $semiformal-object$
|
|
|
840 (element abstract
|
|
|
841 (make element gi: "DIV"
|
|
|
842 ($dcm-abstract-object$)))
|
|
|
843
|
|
|
844 (element (abstract title) (empty-sosofo))
|
|
|
845
|
|
|
846 ;;subtitle sizing
|
|
|
847 (element subtitle
|
|
|
848 (make element gi: "H4"
|
|
|
849 attributes: (list (list "CLASS" (gi)))
|
|
|
850 (process-children-trim))))
|
|
|
851
|
|
|
852 ;;=================
|
|
|
853 ;; INLINES
|
|
|
854 ;;=================
|
|
|
855
|
|
|
856 ;Define my own series of fonts for various elements
|
|
|
857 (element application ($mono-seq$))
|
|
|
858 (element command ($bold-seq$))
|
|
|
859 (element filename ($mono-seq$))
|
|
|
860 (element function ($mono-seq$))
|
|
|
861 (element guibutton ($bold-seq$))
|
|
|
862 (element guiicon ($bold-seq$))
|
|
|
863 (element guilabel ($bold-mono-seq$))
|
|
|
864 (element guimenu ($bold-seq$))
|
|
|
865 (element guimenuitem ($bold-seq$))
|
|
|
866 (element guisubmenu ($bold-seq$))
|
|
|
867 (element hardware ($bold-mono-seq$))
|
|
|
868 (element keycap ($bold-seq$))
|
|
|
869 (element literal ($mono-seq$))
|
|
|
870 (element parameter ($italic-mono-seq$))
|
|
|
871 (element prompt ($mono-seq$))
|
|
|
872 (element symbol ($charseq$))
|
|
|
873 (element emphasis ($italic-seq$))
|
|
|
874
|
|
|
875 ;;Show comment element?
|
|
|
876 (define %show-comments%
|
|
|
877 #t)
|
|
|
878
|
|
|
879 ;;====================
|
|
|
880 ;; General Formatting
|
|
|
881 ;;====================
|
|
|
882
|
|
|
883 ;;Formal Paras are ugly by default!
|
|
|
884 ;;Make the title run in - otherwise
|
|
|
885 ;;you should use a sect!
|
|
|
886 (element formalpara
|
|
|
887 (make element gi: "DIV"
|
|
|
888 attributes: (list
|
|
|
889 (list "CLASS" (gi)))
|
|
|
890 (make element gi: "P"
|
|
|
891 (process-children))))
|
|
|
892
|
|
|
893 ;;This is the old one
|
|
|
894 ;(element (formalpara title)
|
|
|
895 ;($lowtitle$ 5))
|
|
|
896
|
|
|
897 ;;This is the new one
|
|
|
898 (element (formalpara title)
|
|
|
899 (make element gi: "B"
|
|
|
900 ($runinhead$)))
|
|
|
901
|
|
|
902 ;;Make captions come after objects in the list
|
|
|
903 (define ($object-titles-after$)
|
|
|
904 (list (normalize "figure")))
|
|
|
905
|
|
|
906
|
|
|
907 ;; Handle qanda labelling with Q: A:
|
|
|
908 (define (qanda-defaultlabel)
|
|
|
909 (normalize "qanda"))
|
|
|
910
|
|
|
911 ;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
|
|
|
912
|
|
|
913 (element question
|
|
|
914 (let* ((chlist (children (current-node)))
|
|
|
915 (firstch (node-list-first chlist))
|
|
|
916 (restch (node-list-rest chlist)))
|
|
|
917 (make element gi: "DIV"
|
|
|
918 attributes: (list (list "CLASS" (gi)))
|
|
|
919 (make element gi: "P"
|
|
|
920 (make element gi: "BIG"
|
|
|
921 (make element gi: "A"
|
|
|
922 attributes: (list
|
|
|
923 (list "NAME" (element-id)))
|
|
|
924 (empty-sosofo))
|
|
|
925 (make element gi: "B"
|
|
|
926 (literal (question-answer-label
|
|
|
927 (current-node)) " ")
|
|
|
928 (process-node-list (children firstch)))))
|
|
|
929 (process-node-list restch))))
|
|
|
930
|
|
|
931 ;;Literal Elements
|
|
|
932
|
|
|
933 ;;Indent Literal layouts?
|
|
|
934 (define %indent-literallayout-lines%
|
|
|
935 #f)
|
|
|
936
|
|
|
937 ;;Indent Programlistings?
|
|
|
938 (define %indent-programlisting-lines%
|
|
|
939 #f)
|
|
|
940
|
|
|
941 ;;Number lines in Programlistings?
|
|
|
942 (define %number-programlisting-lines%
|
|
|
943 #f)
|
|
|
944
|
|
|
945 ;;Should verbatim items be 'shaded' with a table?
|
|
|
946 (define %shade-verbatim%
|
|
|
947 #t)
|
|
|
948
|
|
|
949 ;;Define shade-verbatim attributes
|
|
|
950 (define ($shade-verbatim-attr$)
|
|
|
951 (list
|
|
|
952 (list "BORDER" "0")
|
|
|
953 (list "BGCOLOR" "#E0E0E0")
|
|
|
954 (list "WIDTH" ($table-width$))))
|
|
|
955
|
|
|
956 ;;===================
|
|
|
957 ;; Entities
|
|
|
958 ;;===================
|
|
|
959
|
|
|
960 ;;Netscape doesn't handle trademark
|
|
|
961 ;;entity right at all!! Get rid of it.
|
|
|
962 ;;Make a TM in a superscipt font.
|
|
|
963 (element trademark
|
|
|
964 (make sequence
|
|
|
965 (process-children)
|
|
|
966 (make element gi: "sup"
|
|
|
967 (literal "TM"))))
|
|
|
968
|
|
|
969
|
|
|
970 ;;===================
|
|
|
971 ;; New Definitions
|
|
|
972 ;;==================
|
|
|
973
|
|
|
974 (define ($dcm-abstract-object$)
|
|
|
975 (make element gi: "TABLE"
|
|
|
976 attributes: '(("BORDER" "0")
|
|
|
977 ("BGCOLOR" "#E0E0E0")
|
|
|
978 ("WIDTH" "50%")
|
|
|
979 ("CELLSPACING" "0")
|
|
|
980 ("CELLPADDING" "0")
|
|
|
981 ("ALIGN" "CENTER"))
|
|
|
982 (make element gi: "TR"
|
|
|
983 (make element gi: "TD"
|
|
|
984 attributes: '(("VALIGN" "TOP"))
|
|
|
985 (make element gi: "B"
|
|
|
986 (literal "Abstract"))))
|
|
|
987 (make element gi: "TR"
|
|
|
988 (make element gi: "TD"
|
|
|
989 attributes: '(("VALIGN" "TOP"))
|
|
|
990 (process-children)))))
|
|
|
991
|
|
|
992 ;;Redefine Titlepage Separator on Articles
|
|
|
993
|
|
|
994 (define (article-titlepage-separator side)
|
|
|
995 (make empty-element gi: "HR"
|
|
|
996 attributes: '(("WIDTH" "75%")
|
|
|
997 ("ALIGN" "CENTER")
|
|
|
998 ("COLOR" "#000000")
|
|
|
999 ("SIZE" "1"))))
|
|
|
1000
|
|
|
1001
|
|
|
1002
|
|
|
1003
|
|
|
1004 (define (chunk-element-list)
|
|
|
1005 (list (normalize "preface")
|
|
|
1006 (normalize "chapter")
|
|
|
1007 (normalize "appendix")
|
|
|
1008 (normalize "article")
|
|
|
1009 (normalize "glossary")
|
|
|
1010 (normalize "bibliography")
|
|
|
1011 (normalize "index")
|
|
|
1012 (normalize "colophon")
|
|
|
1013 (normalize "setindex")
|
|
|
1014 (normalize "reference")
|
|
|
1015 (normalize "refentry")
|
|
|
1016 (normalize "part")
|
|
|
1017 (normalize "sect1")
|
|
|
1018 (normalize "section")
|
|
|
1019 (normalize "book") ;; just in case nothing else matches...
|
|
|
1020 (normalize "set") ;; sets are definitely chunks...
|
|
|
1021 ))
|
|
|
1022
|
|
|
1023 ;;Do you want Callouts to be graphics?
|
|
|
1024 (define %callout-graphics%
|
|
|
1025 #f)
|
|
|
1026
|
|
|
1027
|
|
|
1028 ;;Make Callout graphics PNGs
|
|
|
1029 (define %callout-graphics-path%
|
|
|
1030 "./imagelib/callouts/")
|
|
|
1031
|
|
|
1032 ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
|
|
|
1033 ;; variable.
|
|
|
1034 (define ($callout-bug$ conumber)
|
|
|
1035 (let ((number (if conumber (format-number conumber "1") "0")))
|
|
|
1036 (if conumber
|
|
|
1037 (if %callout-graphics%
|
|
|
1038 (if (<= conumber %callout-graphics-number-limit%)
|
|
|
1039 (make empty-element gi: "IMG"
|
|
|
1040 attributes: (list (list "SRC"
|
|
|
1041 (root-rel-path
|
|
|
1042 (string-append
|
|
|
1043 %callout-graphics-path%
|
|
|
1044 number
|
|
|
1045 %callout-graphics-ext%)))
|
|
|
1046 (list "HSPACE" "0")
|
|
|
1047 (list "VSPACE" "0")
|
|
|
1048 (list "BORDER" "0")
|
|
|
1049 (list "ALT"
|
|
|
1050 (string-append
|
|
|
1051 "(" number ")"))))
|
|
|
1052 (make element gi: "B"
|
|
|
1053 (literal "(" (format-number conumber "1") ")")))
|
|
|
1054 (make element gi: "B"
|
|
|
1055 (literal "(" (format-number conumber "1") ")")))
|
|
|
1056 (make element gi: "B"
|
|
|
1057 (literal "(??)")))))
|
|
|
1058
|
|
|
1059 </style-specification-body>
|
|
|
1060 </style-specification>
|
|
|
1061
|
|
|
1062 <external-specification id="docbook" document="docbook.dsl">
|
|
|
1063
|
|
|
1064 </style-sheet>
|
