summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-web-companion/ch7/invtab2.dsl
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>