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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
<!DOCTYPE style-sheet PUBLIC
"-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY % html "IGNORE">
<![%html;[
<!ENTITY % print "IGNORE">
<!ENTITY docbook.dsl PUBLIC
"-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
CDATA dsssl>
]]>
<!ENTITY % print "INCLUDE">
<![%print;[
<!ENTITY docbook.dsl PUBLIC
"-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
CDATA dsssl>
]]>
]>
<style-sheet>
<!-- PRINT -->
<style-specification id="print" use="docbook">
<style-specification-body>
;; The following are
;; <!-- Cygnus customizations by Mark Galassi -->
;; ====================
;; customize the print stylesheet
;; ====================
;; make funcsynopsis look pretty
(define %funcsynopsis-decoration%
;; Decorate elements of a FuncSynopsis?
#t)
;; use graphics in admonitions, and have their path be "."
;; NO: we are not yet ready to use gifs in TeX and so forth
(define %admon-graphics-path%
"./")
(define %admon-graphics%
#f)
;; this is necessary because right now jadetex does not understand
;; symbolic entities, whereas things work well with numeric entities.
(declare-characteristic preserve-sdata?
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
#f)
(define %two-side% #t)
(define %section-autolabel%
;; Are sections enumerated?
#t)
;; (define %title-font-family%
;; ;; The font family used in titles
;; "Ariel")
(define %visual-acuity%
;; General measure of document text size
;; "presbyopic"
;; "large-type"
"presbyopic")
(define %generate-part-toc% #t)
;;; The following customizations are from Tim Waugh's selfdocbook
;;; http://cyberelk.net/tim/docbook/
;;;
;;; TeX backend can go to PS (where EPS is needed)
;;; or to PDF (where PNG is needed). So, just
;;; omit the file extension altogether and let
;;; tex/pdfjadetex sort it out on its own.
(define (graphic-file filename)
(let ((ext (file-extension filename)))
(if (or (equal? 'backend 'tex) ;; Leave off the extension for TeX
(not filename)
(not %graphic-default-extension%)
(member ext %graphic-extensions%))
filename
(string-append filename "." %graphic-default-extension%))))
;;; Full justification.
(define %default-quadding%
'justify)
;;; To make URLs line wrap we use the TeX 'url' package.
;;; See also: jadetex.cfg
;; First we need to declare the 'formatting-instruction' flow class.
(declare-flow-object-class formatting-instruction
"UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
;; Then redefine ulink to use it.
(element ulink
(make sequence
(if (node-list-empty? (children (current-node)))
; ulink url="...", /ulink
(make formatting-instruction
data: (string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
(if (equal? (attribute-string (normalize "url"))
(data-of (current-node)))
; ulink url="http://...", http://..., /ulink
(make formatting-instruction data:
(string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
; ulink url="http://...", some text, /ulink
(make sequence
($charseq$)
(literal " (")
(make formatting-instruction data:
(string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
(literal ")"))))))
;;; And redefine filename to use it too.
(element filename
(make formatting-instruction
data: (string-append "\\path{" (data-of (current-node)) "}")))
</style-specification-body>
</style-specification>
<!-- HTML -->
<style-specification id="html" use="docbook">
<style-specification-body>
;; If true (non-zero), elements of the FuncSynopsis will be decorated
;; (e.g. bold or italic).
(define %funcsynopsis-decoration% #t)
;; If true, a Table of Contents will be generated for each 'Article'.
(define %generate-article-toc% #t)
;; If true, a Table of Contents will be generated for each Part.
(define %generate-part-toc% #t)
;; The name of the stylesheet to place in the HTML LINK TAG,
;; or #f to suppress the stylesheet LINK.
(define %stylesheet% "docbook.css")
(define %use-id-as-filename% #t)
(define %html-ext% ".html")
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>
|
