blob: 6f4b7ac5b4828dedc74fca68206a21dbc3340e01 (
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
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style-Sheet//EN">
<style-sheet>
<style-specification>
<style-specification-body>
(declare-flow-object-class element
"UNREGISTERED::James Clark//Flow Object Class::element")
(declare-flow-object-class empty-element
"UNREGISTERED::James Clark//Flow Object Class::empty-element")
(declare-flow-object-class document-type
"UNREGISTERED::James Clark//Flow Object Class::document-type")
(define FontSize 12pt)
(root
(make simple-page-sequence
left-margin: 25mm
page-width: 205mm
right-margin: 25mm
(make sequence
font-size: FontSize
line-spacing: FontSize
(make document-type
name: "HTML"
public-id: "-//W3C//DTD HTML 3.2//EN")
(make element gi: "HEAD"
(make element gi: "TITLE"
(literal "Invitation (XML to HTML transformation)"))
(make empty-element gi: "LINK"
attributes: (list (list "href" "invit.css")
(list "rel" "stylesheet")
(list "type" "text/css"))))
(make element gi: "BODY"
(make sequence
(make element gi: "H1"
(literal "INVITATION"))
(process-children))))))
(element (front)
(make element gi: "TABLE"
attributes: (list (list "border" "5")
(list "frame" "hsides")
(list "rules" "none")
(list "width" "100%"))
(process-children)))
(element (front date)
(make element gi: "TR"
(make sequence
(make element gi: "TD"
attributes: (list (list "class" "front"))
(literal "When: "))
(make element gi: "TD"
(process-children)))))
(element (front to)
(make element gi: "TR"
(make sequence
(make element gi: "TD"
attributes: (list (list "class" "front"))
(literal "To: "))
(make element gi: "TD"
(process-children)))))
(element (front where)
(make element gi: "TR"
(make sequence
(make element gi: "TD"
attributes: (list (list "class" "front"))
(literal "Venue: "))
(make element gi: "TD"
(process-children)))))
(element (front why)
(make element gi: "TR"
(make sequence
(make element gi: "TD"
attributes: (list (list "class" "front"))
(literal "Occasion: "))
(make element gi: "TD"
(process-children)))))
(element (body par)
(make element gi: "P"
(process-children)))
(element emph
(make element gi: "EM"
(process-children)))
(element (back signature)
(make element gi: "P"
attributes: (list (list "class" "signature"))
(make sequence
(literal "From: ")
(process-children))))
</style-specification-body>
</style-specification>
</style-sheet>
|
