blob: 0365d14cb8ab2291a3186bf8f42675319a94489d (
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
|
<!-- $FML: fml.dsl,v 1.2 2001/06/05 13:25:57 fukachan Exp $ -->
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
<!ENTITY % output.html "INCLUDE">
<!ENTITY % output.html.images "INCLUDE">
<!ENTITY % output.print "IGNORE">
<!ENTITY % output.print.pdf "IGNORE">
<![ %output.html; [
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
CDATA DSSSL>
]]>
<![ %output.print; [
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
CDATA DSSSL>
]]>
]>
<style-sheet>
<style-specification use="docbook">
<style-specification-body>
<![ %output.html; [
(define %root-filename%
;; Name for the root HTML document
"index")
(define %html-ext%
;; Default extension for HTML output files
".html")
(define %use-id-as-filename%
;; Use ID attributes as name for component HTML files?
#t)
(define ($html-body-end$)
(if (equal? $email-footer$ (normalize ""))
(empty-sosofo)
(make sequence
(if nochunks
(make empty-element gi: "hr")
(empty-sosofo))
($email-footer$))))
(define ($email-footer$)
(make sequence
(make element gi: "p"
attributes: (list (list "align" "center"))
(make element gi: "small"
(literal "fml-devel (fml 5.0), fml next generation prototype, homepage is ")
(make element gi: "a"
attributes:
(list (list "href" "http://www.fml.org/software/fml-devel/")
(list "target" "_top"))
(literal "www.fml.org/software/fml-devel/"))
(literal "."))
(make empty-element gi: "br")
(make element gi: "small"
(literal "fml 4.0 homepage is ")
(make element gi: "a"
attributes:
(list (list "href" "http://www.fml.org/fml/menu.html")
(list "target" "_top"))
(literal "www.fml.org/fml/menu.html"))
(literal "."))
(make empty-element gi: "br")
(make element gi: "small"
(literal "For questions about FML, e-mail <")
(make element gi: "a"
attributes: (list (list "href" "mailto:fml-bugs@fml.org"))
(literal "fml-bugs@fml.org"))
(literal ">.")))))
]]>
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>
|
