summaryrefslogtreecommitdiff
path: root/info/examples/lwc/ch7/invitation.dsl
blob: fb1da6b1647506482273c0d34430472dbbabb683 (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
<!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:  25mm
    page-width:   205mm
    right-margin: 25mm
    (make scroll
      font-size: FontSize
      line-spacing: FontSize
      (process-children)
    )
  )
)
(element (front date)
  (make paragraph
    (literal "When: ")
    (process-children)
  )
)
(element (front to)
  (make paragraph
    (literal "To: ")
    (process-children)
  )
)
(element (front where)
  (make paragraph
    (literal "Venue: ")
    (process-children)
  )
)
(element (front why)
  (make paragraph
    (literal "Occasion: ")
    (process-children)
  )
)
(element (body par)
  (make paragraph
    quadding: 'justify
    font-size: FontSize
    space-before: FontSize
    (process-children)
  )
)
(element emph
  (make sequence
    font-posture:   'italic
    (process-children)
  )
)
(element (back signature)
  (make paragraph
    quadding: 'justify
    space-before: FontSize
    (literal "From: ")
    (process-children)
  )
)
</style-specification-body>
</style-specification>
</style-sheet>