source: project/web-scheme/trunk/web-scheme-html-symbols.scm @ 6008

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

date in the contents

  • Property svn:executable set to *
File size: 7.0 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         (fieldset  . ())
47         (font      . (color face size))
48         (form      . (action method acceptcharset encoding enctype length name tabindex target))
49         (frame     . (src contentdocument frameborder longdesc marginheight marginwidth name noresize scrolling))
50         (frameset  . (rows cols))
51         (h1        . (align))
52         (h2        . (align))
53         (h3        . (align))
54         (h4        . (align))
55         (h5        . (align))
56         (h6        . (align))
57         (head      . ())
58         (html      . ())
59         (i         . ())
60         (iframe    . (src width align height contentdocument frameborder longdesc
61                           marginheight marginwidth name noresize scrolling))
62         (ins       . ())
63         (kbd       . ())
64         (label     . (for accesskey onfocus onblur))
65         (legend    . ())
66         (li        . (type value))
67         (ws:map    . ())
68         (menu      . ())
69         (noframes  . ())
70         (noscript  . ())
71         (object    . ())
72         (option    . (value defaultselected disabled form index label selected text))
73         (optgroup  . ())
74         (ol        . ())
75         (p         . (align)) ;; something else?
76         (param     . ())
77         (pre       . (width))
78         (q         . ())
79         (script    . (src type language))
80         (s         . ())
81         (samp      . ())
82         (select    . (name accesskey align disabled form length multiple selectedindex size tabindex type value))
83         (ws:select . (name accesskey align disabled form length multiple selectedindex size tabindex type value)) ;; selects clashes with chicken's select macro
84         (small     . ())
85         (span      . ())
86         (strong    . ())
87         (sub       . ())
88         (sup       . ())
89         (strike    . ())
90         (style     . (media type))
91         (table     . (align border cellspacing cellpadding color frame rules summary valign width bgcolor))
92         (td        . (rowspan colspan nowrap align valign width height abbr accesskey axis background
93                               bgcolor bordercolor cellindex ch choff disabled headers innerhtml innertext
94                               rowspan scope tabindex))
95         (textarea  . (name rows cols wrap accesskey defaultvalue disabled readonly form))
96         (thead     . ())
97         (th        . (rowspan colspan nowrap align valign width height abbr accesskey axis background
98                               bgcolor bordercolor cellindex ch choff disabled headers innerhtml innertext
99                               rowSpan scope tabindex))
100         (title     . ()) ;; something else?
101         (tfoot     . ())
102         (tr        . (align valign bgcolor rowspan colspan nowrap align valign width height abbr accesskey
103                             axis background bgcolor bordercolor rowindex ch choff disabled headers
104                             innerhtml innertext scope tabindex sectionrowindex outerhtml outertext))
105         (tt        . ())
106         (u         . (bgcolor))
107         (ul        . (type compact)) ;; compact
108         (var       . ())
109         )))
110
111(define ws:html-tags-no-line-break
112  '(a abbr acronym b big blink bold cite code dfn em font i img kbd q samp small
113      strong small span strike sub sup tt u var))
114
115(define ws:html-tags-open
116  (map (lambda (elt) ;; insert some common attributes
117         (cons (car elt) (append (cdr elt) ws:common-attributes)))
118       '((br      . (clear))
119         (img     . (src alt align height width border hspace vspace usemap ismap longdesc lowsrc))         
120         (input   . (type name value size maxlength checked src accept accesskey
121                          align alt defaultchecked disabled form tabindex))
122         (link      . (charset disabled href hreflang media name rev rel target type))
123         (meta      . (name content charset disabled http-equiv scheme))
124         (hr      . (align))
125         )))
126
127(define ws:iso-8859-1-translation-alist
128  (map (lambda (char-trans)
129         (cons (car char-trans)
130               (string-intersperse (list "&" (cdr char-trans) ";") "")))
131       '(("ã"  . "atilde")
132         ("Ã"  . "Atilde")
133         ("á"  . "aacute")
134         ("Á"  . "Aacute")
135         ("â"  . "acirc")
136         ("Â"  . "Acirc")
137         ("à"  . "agrave")
138         ("À"  . "Agrave")
139         ("ä"  . "auml")
140         ("Ä"  . "Auml")
141         ("é"  . "eacute")
142         ("É"  . "Eacute")
143         ("ê"  . "ecirc")
144         ("Ê"  . "Ecirc")
145         ("è"  . "egrave")
146         ("È"  . "Egrave")
147         ("ë"  . "euml")
148         ("Ë"  . "Euml")
149         ("í"  . "iacute")
150         ("Í"  . "Iacute")
151         ("î"  . "icirc")
152         ("Î"  . "Icirc")
153         ("ì"  . "igrave")
154         ("Ì"  . "Igrave")
155         ("ï"  . "iuml")
156         ("Ï"  . "Iuml")
157         ("õ"  . "otilde")
158         ("Õ"  . "Otilde")
159         ("ó"  . "oacute")
160         ("Ó"  . "Oacute")
161         ("ô"  . "ocirc")
162         ("Ô"  . "Ocirc")
163         ("ò"  . "ograve")
164         ("Ò"  . "Ograve")
165         ("ö"  . "ouml")
166         ("Ö"  . "Ouml")
167         ("ú"  . "uacute")
168         ("Ú"  . "Uacute")
169         ("û"  . "ucirc")
170         ("Û"  . "Ucirc")
171         ("ù"  . "ugrave")
172         ("Ù"  . "Ugrave")
173         ("ü"  . "uuml")
174         ("Ü"  . "Uuml")
175         ("ç"  . "ccedil")
176         ("Ç"  . "Ccedil")
177         )))
178
179) ; eval-when
Note: See TracBrowser for help on using the repository browser.