Lines Matching defs:html
30 ;; $XFree86: xc/programs/xedit/lisp/modules/progmodes/html.lsp,v 1.2 2002/09/22 18:41:27 paulo Exp $
37 This is not a validation tool for html.
45 (defsynprop *prop-html-default*
50 (defsynprop *prop-html-bold*
55 (defsynprop *prop-html-italic*
60 (defsynprop *prop-html-pre*
65 (defsynprop *prop-html-link*
71 (defsynprop *prop-html-small*
76 (defsynprop *prop-html-big*
81 (defsynprop *prop-html-name*
87 (defsynprop *prop-html-h1*
92 (defsynprop *prop-html-h2*
97 (defsynprop *prop-html-h4*
102 (defsynprop *prop-html-h5*
107 (defsynprop *prop-html-li*
113 (defsynprop *prop-html-hr*
119 (defsynprop *prop-html-title*
125 (defsynprop *prop-html-tag*
130 (defsynprop *prop-html-string*
135 (defsynprop *prop-html-comment*
140 (defsynprop *prop-html-entity*
145 (defsynprop *prop-html-unknown*
151 (defmacro html-syntoken (name)
155 (defmacro html-syntable (name property)
159 (syntable label *prop-html-tag* nil
161 (syntoken ">" :nospec t :property *prop-html-tag* :begin nested-label)
164 :icase t :nospec t :property *prop-html-tag* :switch -2)
170 (defsyntax *html-mode* :main *prop-html-default* nil nil
172 (syntable :comment *prop-html-comment* nil
174 (syntoken "&([a-zA-Z0-9_.-]+|#\\x\\x?);?" :property *prop-html-entity*)
175 (syntoken "<li>" :nospec t :icase t :property *prop-html-li*)
176 (syntoken "<hr>" :nospec t :icase t :property *prop-html-hr*)
179 (syntoken "<(p|br)>" :icase t :property *prop-html-tag*)
189 :icase t :property *prop-html-unknown* :begin :unbalanced)
190 (syntable :unbalanced *prop-html-unknown* nil
196 ;; XXX ONLY add a rule for "html", "head" and "body" if you want to do a
203 (html-syntoken "b")
204 (html-syntable "b" *prop-html-bold*)
205 (html-syntoken "strong")
206 (html-syntable "strong" *prop-html-bold*)
208 (html-syntoken "i")
209 (html-syntable "i" *prop-html-italic*)
210 (html-syntoken "em")
211 (html-syntable "em" *prop-html-italic*)
212 (html-syntoken "address")
213 (html-syntable "address" *prop-html-italic*)
215 (html-syntoken "pre")
216 (html-syntable "pre" *prop-html-pre*)
217 (html-syntoken "code")
218 (html-syntable "code" *prop-html-pre*)
219 (html-syntoken "tt")
220 (html-syntable "tt" *prop-html-pre*)
222 (html-syntoken "small")
223 (html-syntable "small" *prop-html-small*)
225 (html-syntoken "big")
226 (html-syntable "big" *prop-html-big*)
228 ;; Cannot hack html-syntoken and html-syntable to handle this,
231 (syntable :a *prop-html-tag* nil
235 (syntoken "<" :nospec t :property *prop-html-unknown* :switch -2)
238 (syntable :a-href *prop-html-tag* nil
241 (syntable :a-href-text *prop-html-link* nil
243 :icase t :nospec t :property *prop-html-tag* :switch -3)
248 (syntable :a-name *prop-html-tag* nil
251 (syntable :a-name-text *prop-html-name* nil
253 :icase t :nospec t :property *prop-html-tag* :switch -3)
260 :icase t :nospec t :property *prop-html-tag* :switch -2)
267 (html-syntoken "ol")
268 (html-syntable "ol" nil)
269 (html-syntoken "ul")
270 (html-syntable "ul" nil)
271 (html-syntoken "dl")
272 (html-syntable "dl" nil)
276 (html-syntoken "dt")
277 (html-syntable "dt" nil)
278 (html-syntoken "dd")
279 (html-syntable "dd" nil)
281 (html-syntoken "span")
282 (html-syntable "span" nil)
283 (html-syntoken "div")
284 (html-syntable "div" nil)
285 (html-syntoken "menu")
286 (html-syntable "menu" nil)
288 (html-syntoken "h1")
289 (html-syntable "h1" *prop-html-h1*)
290 (html-syntoken "h2")
291 (html-syntable "h2" *prop-html-h2*)
292 (html-syntoken "h3")
293 (html-syntable "h3" *prop-html-bold*)
294 (html-syntoken "h4")
295 (html-syntable "h4" *prop-html-h4*)
296 (html-syntoken "h5")
297 (html-syntable "h5" *prop-html-h5*)
298 (html-syntoken "title")
299 (html-syntable "title" *prop-html-title*)
301 (html-syntoken "font")
302 (html-syntable "font" *prop-control*)
305 (syntable :generic-tag *prop-html-tag* nil
307 (syntoken "<" :nospec t :property *prop-html-unknown*)
309 (syntable :tag *prop-html-tag* nil
314 (syntable :continued-end-tag *prop-html-tag* nil
318 (syntable :continued-nested-end-tag *prop-html-tag* nil
323 (syntable :string *prop-html-string* nil