blob: eac8c01392e9e17ca2cf2cb9abc595fe746fb02c (
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
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style-Sheet//EN">
<style-sheet>
<style-specification>
<style-specification-body>
(define FontSize 12pt)
(root
(make simple-page-sequence
left-margin: 1cm
page-width: 10cm
right-margin: 1cm
(make scroll
font-size: FontSize
(process-children))))
(element invitation
(make sequence
(make paragraph
quadding: 'center
space-before: 20pt
font-weight: 'bold
font-size: 24pt
(literal "INVITATION"))
(make table
table-border: #f ; no border
display-alignment: 'start
space-before: 20pt
(make table-part
(make table-column width: 25mm)
(make table-column width: 10cm)
(make table-row
(make table-cell
(make paragraph quadding: 'start
(literal "When:")))
(make table-cell
(make paragraph quadding: 'start
(literal (attribute-string "date")))))
(make table-row
(make table-cell
(make paragraph quadding: 'start
(literal "To:")))
(make table-cell
(make paragraph quadding: 'start
(literal (attribute-string "to")))))
(make table-row
(make table-cell
(make paragraph quadding: 'start
(literal "Venue:")))
(make table-cell
(make paragraph quadding: 'start
(literal (attribute-string "where")))))
(make table-row
(make table-cell
(make paragraph quadding: 'start
(literal "Occasion:")))
(make table-cell
(make paragraph quadding: 'start
(literal (attribute-string "why")))))))
(process-children)
(make paragraph
quadding: 'end
space-before: FontSize
(literal "From: "
(attribute-string "signature")))))
(element par
(make paragraph
quadding: 'justify
font-size: FontSize
space-before: FontSize
(process-children-trim)))
(element emph
(make sequence
font-posture: 'italic
(process-children-trim)))
</style-specification-body>
</style-specification>
</style-sheet>
|