blob: e8f73ac90a9977b0aaee668b6aaedf13264d62ec (
plain)
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
|
<!--
print.dsl.in - stylesheets for hardcopy output.
$Id: print.dsl.in,v 1.3 2000/04/26 17:06:02 cdegroot Exp $
SGMLtools - an SGML toolkit.
Copyright (C) 1998 Cees A. de Groot
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
]>
<style-sheet>
<style-specification id="print" use="docbook">
<style-specification-body>
;; 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% #f)
(define %section-autolabel% #t)
(define %visual-acuity% "normal")
;;
;; Graphical admonitions.
;;
(define %admon-graphics% #t)
(define %admon-graphics-path%
"@dbimages@")
(define ($admon-graphic$ #!optional (nd (current-node)))
(cond ((equal? (gi nd) (normalize "tip"))
(string-append %admon-graphics-path% "tip."
%graphic-default-extension%))
((equal? (gi nd) (normalize "note"))
(string-append %admon-graphics-path% "note."
%graphic-default-extension%))
((equal? (gi nd) (normalize "important"))
(string-append %admon-graphics-path% "important."
%graphic-default-extension%))
((equal? (gi nd) (normalize "caution"))
(string-append %admon-graphics-path% "caution."
%graphic-default-extension%))
((equal? (gi nd) (normalize "warning"))
(string-append %admon-graphics-path% "warning."
%graphic-default-extension%))
(else (error (string-append (gi nd) " is not an admonition.")))))
</style-specification-body>
</style-specification>
<style-specification id="print.ps" use="print">
<style-specification-body>
(define %graphic-default-extension% "eps")
</style-specification-body>
</style-specification>
<style-specification id="print.pdf" use="print">
<style-specification-body>
(define %graphic-default-extension% "pdf")
</style-specification-body>
</style-specification>
<style-specification id="howto" use="print">
<style-specification-body>
;;
;; A paper-saving stylesheet that mimics the SGMLtools 1.0 howto style.
;; Not two-sided, because most people won't print two-sided.
;;
(define %visual-acuity% "normal")
(define %two-side% #f)
(define %left-margin% 3pi)
(define %right-margin% 4pi)
(define %body-start-indent% 2pi)
(define %generate-article-toc% #t)
;;
;; Gnuishly correct fonts...
;;
(define %body-font-family% "Computer Modern Roman")
(define %mono-font-family% "Computer Modern Typewriter")
(define %title-font-family% "Computer Modern Sans");
(define %admon-font-family% "Computer Modern Sans");
(define %guilabel-font-family% "Computer Modern Sans");
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>
|
