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