source: project/release/3/web-scheme/trunk/web-scheme-html-symbols.scm @ 11681

Last change on this file since 11681 was 11681, checked in by Mario Domenech Goulart, 12 years ago

Added tbody, tfoot and embed tags (thanks to Rodrigo Real).

  • Property svn:executable set to *
File size: 7.3 KB
Line 
1(eval-when (compile load)
2
3(define ws:common-attributes '(class id lang title style dir lang xml:lang
4                                tabindex accesskey onclick
5                                onabort onblur onchange onclick ondblclick
6                                onfocus onkeydown onkeypress onkeyup
7                                onload onmousedown onmousemove
8                                onmouseover onmouseout onmouseup
9                                onreset onselect onsubmit onunload))
10
11(define ws:html-boolean-attribs '(disabled))
12
13(define ws:html-tags-open-close
14  (map (lambda (elt) ;; insert some common attributes
15         (cons (car elt) (append (cdr elt) ws:common-attributes)))
16       '((a         . (name href hreflang type rel rev charset coords shape accesskey tabindex target))
17         (abbr      . ())
18         (acronym   . ())
19         (address   . ())
20         (applet    . ())
21         (area      . (accesskey alt coords hash host hostname href noHref pathname
22                                 port protocol search shape tabindex target))
23         (b         . ())
24         (base      . (href target))
25         (basefont  . ())
26         (bdo       . ())
27         (big       . ())
28         (blink     . ()) ;; attributes?
29         (blockquote . ())
30         (body      . (background bgcolor text link vlink alink accesskey aLink scrollleft scrolltop))
31         (bold      . ())
32         (button    . (accesskey disabled form name tabindex type value))
33         (caption   . ())
34         (center    . ())
35         (cite      . ())
36         (code      . ())
37         (colgroup  . ())
38         (dd        . ())
39         (del       . ())
40         (dir       . ())
41         (div       . ())
42         (dfn       . ())
43         (dl        . ())
44         (dt        . ())
45         (em        . ())
46         (embed     . (src width height align name pluginspage pluginurl hidden href target
47                       autostart loop playcount volume controls controller mastersound starttime endtime))
48         (fieldset  . ())
49         (font      . (color face size))
50         (form      . (action method acceptcharset encoding enctype length name tabindex target))
51         (frame     . (src contentdocument frameborder longdesc marginheight marginwidth name noresize scrolling))
52         (frameset  . (rows cols))
53         (h1        . (align))
54         (h2        . (align))
55         (h3        . (align))
56         (h4        . (align))
57         (h5        . (align))
58         (h6        . (align))
59         (head      . ())
60         (html      . ())
61         (i         . ())
62         (iframe    . (src width align height contentdocument frameborder longdesc
63                           marginheight marginwidth name noresize scrolling))
64         (ins       . ())
65         (kbd       . ())
66         (label     . (for accesskey onfocus onblur))
67         (legend    . ())
68         (li        . (type value))
69         (ws:map    . ())
70         (menu      . ())
71         (noframes  . ())
72         (noscript  . ())
73         (object    . ())
74         (option    . (value defaultselected disabled form index label selected text))
75         (optgroup  . ())
76         (ol        . ())
77         (p         . (align)) ;; something else?
78         (param     . ())
79         (pre       . (width))
80         (q         . ())
81         (script    . (src type language))
82         (s         . ())
83         (samp      . ())
84         (select    . (name accesskey align disabled form length multiple selectedindex size tabindex type value))
85         (ws:select . (name accesskey align disabled form length multiple selectedindex size tabindex type value)) ;; selects clashes with chicken's select macro
86         (small     . ())
87         (span      . ())
88         (strong    . ())
89         (sub       . ())
90         (sup       . ())
91         (strike    . ())
92         (style     . (media type))
93         (table     . (align border cellspacing cellpadding color frame rules summary valign width bgcolor))
94         (td        . (rowspan colspan nowrap align valign width height abbr accesskey axis background
95                               bgcolor bordercolor cellindex ch choff disabled headers innerhtml innertext
96                               rowspan scope tabindex))
97         (textarea  . (name rows cols wrap accesskey defaultvalue disabled readonly form))
98         (thead     . ())
99         (tbody     . ())
100         (tfoot     . ())
101         (th        . (rowspan colspan nowrap align valign width height abbr accesskey axis background
102                               bgcolor bordercolor cellindex ch choff disabled headers innerhtml innertext
103                               rowSpan scope tabindex))
104         (title     . ()) ;; something else?
105         (tfoot     . ())
106         (tr        . (align valign bgcolor rowspan colspan nowrap align valign width height abbr accesskey
107                             axis background bgcolor bordercolor rowindex ch choff disabled headers
108                             innerhtml innertext scope tabindex sectionrowindex outerhtml outertext))
109         (tt        . ())
110         (u         . (bgcolor))
111         (ul        . (type compact)) ;; compact
112         (var       . ())
113         )))
114
115(define ws:html-tags-no-line-break
116  '(a abbr acronym b big blink bold cite code dfn em font i img kbd q samp small
117      strong small span strike sub sup tt u var))
118
119(define ws:html-tags-open
120  (map (lambda (elt) ;; insert some common attributes
121         (cons (car elt) (append (cdr elt) ws:common-attributes)))
122       '((br      . (clear))
123         (img     . (src alt align height width border hspace vspace usemap ismap longdesc lowsrc))         
124         (input   . (type name value size maxlength checked src accept accesskey
125                          align alt defaultchecked disabled form tabindex))
126         (link      . (charset disabled href hreflang media name rev rel target type))
127         (meta      . (name content charset disabled http-equiv scheme))
128         (hr      . (align))
129         )))
130
131(define ws:iso-8859-1-translation-alist
132  (map (lambda (char-trans)
133         (cons (car char-trans)
134               (string-intersperse (list "&" (cdr char-trans) ";") "")))
135       '(("ã"  . "atilde")
136         ("Ã"  . "Atilde")
137         ("á"  . "aacute")
138         ("Á"  . "Aacute")
139         ("â"  . "acirc")
140         ("Â"  . "Acirc")
141         ("à"  . "agrave")
142         ("À"  . "Agrave")
143         ("ä"  . "auml")
144         ("Ä"  . "Auml")
145         ("é"  . "eacute")
146         ("É"  . "Eacute")
147         ("ê"  . "ecirc")
148         ("Ê"  . "Ecirc")
149         ("è"  . "egrave")
150         ("È"  . "Egrave")
151         ("ë"  . "euml")
152         ("Ë"  . "Euml")
153         ("í"  . "iacute")
154         ("Í"  . "Iacute")
155         ("î"  . "icirc")
156         ("Î"  . "Icirc")
157         ("ì"  . "igrave")
158         ("Ì"  . "Igrave")
159         ("ï"  . "iuml")
160         ("Ï"  . "Iuml")
161         ("õ"  . "otilde")
162         ("Õ"  . "Otilde")
163         ("ó"  . "oacute")
164         ("Ó"  . "Oacute")
165         ("ô"  . "ocirc")
166         ("Ô"  . "Ocirc")
167         ("ò"  . "ograve")
168         ("Ò"  . "Ograve")
169         ("ö"  . "ouml")
170         ("Ö"  . "Ouml")
171         ("ú"  . "uacute")
172         ("Ú"  . "Uacute")
173         ("û"  . "ucirc")
174         ("Û"  . "Ucirc")
175         ("ù"  . "ugrave")
176         ("Ù"  . "Ugrave")
177         ("ü"  . "uuml")
178         ("Ü"  . "Uuml")
179         ("ç"  . "ccedil")
180         ("Ç"  . "Ccedil")
181         )))
182
183) ; eval-when
Note: See TracBrowser for help on using the repository browser.