blob: 73bf822e408952b741daf0b373016079d78b5c5c (
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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
" Vim syntax file
" Language: WML - Website MetaLanguage
" Maintainer: Gerfried Fuchs <alfie@ist.org>
" Filenames: *.wml
" Last Change: 07 Feb 2002
" URL: http://alfie.ist.org/software/vim/syntax/wml.vim
"
" Original Version: Craig Small <csmall@eye-net.com.au>
" Comments are very welcome - but please make sure that you are commenting on
" the latest version of this file.
" SPAM is _NOT_ welcome - be ready to be reported!
" If you are looking for the "Wireless Markup Language" syntax file,
" please take a look at the wap.vim file done by Ralf Schandl, soon in a
" vim-package around your corner :)
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" A lot of the web stuff looks like HTML so we load that first
runtime! syntax/html.vim
unlet b:current_syntax
if !exists("main_syntax")
let main_syntax = 'wml'
endif
" special character
syn match wmlNextLine "\\$"
" Redfine htmlTag
syn clear htmlTag
syn region htmlTag start=+<[^/<]+ end=+>+ contains=htmlTagN,htmlString,htmlArg,htmlValue,htmlTagError,htmlEvent,htmlCssDefinition
"
" Add in extra Arguments used by wml
syn keyword htmlTagName contained gfont imgbg imgdot lowsrc
syn keyword htmlTagName contained navbar:define navbar:header
syn keyword htmlTagName contained navbar:footer navbar:prolog
syn keyword htmlTagName contained navbar:epilog navbar:button
syn keyword htmlTagName contained navbar:filter navbar:debug
syn keyword htmlTagName contained navbar:render
syn keyword htmlTagName contained preload rollover
syn keyword htmlTagName contained space hspace vspace over
syn keyword htmlTagName contained ps ds pi ein big sc spaced headline
syn keyword htmlTagName contained ue subheadline zwue verbcode
syn keyword htmlTagName contained isolatin pod sdf text url verbatim
syn keyword htmlTagName contained xtable
syn keyword htmlTagName contained csmap fsview import box
syn keyword htmlTagName contained case:upper case:lower
syn keyword htmlTagName contained grid cell info lang: logo page
syn keyword htmlTagName contained set-var restore
syn keyword htmlTagName contained array:push array:show set-var ifdef
syn keyword htmlTagName contained say m4 symbol dump enter divert
syn keyword htmlTagName contained toc
syn keyword htmlTagName contained wml card do refresh oneevent catch spawn
"
" The wml arguments
syn keyword htmlArg contained adjust background base bdcolor bdspace
syn keyword htmlArg contained bdwidth complete copyright created crop
syn keyword htmlArg contained direction description domainname eperlfilter
syn keyword htmlArg contained file hint imgbase imgstar interchar interline
syn keyword htmlArg contained keephr keepindex keywords layout spacing
syn keyword htmlArg contained padding nonetscape noscale notag notypo
syn keyword htmlArg contained onload oversrc pos select slices style
syn keyword htmlArg contained subselected txtcol_select txtcol_normal
syn keyword htmlArg contained txtonly via
syn keyword htmlArg contained mode columns localsrc ordered
" Lines starting with an # are usually comments
syn match wmlComment "^\s*#.*"
" The different exceptions to comments
syn match wmlSharpBang "^#!.*"
syn match wmlUsed contained "\s\s*[A-Za-z:_-]*"
syn match wmlUse "^\s*#\s*use\s\+" contains=wmlUsed
syn match wmlInclude "^\s*#\s*include.+"
syn region wmlBody contained start=+<<+ end=+>>+
syn match wmlLocationId contained "[A-Za-z]\+"
syn region wmlLocation start=+<<+ end=+>>+ contains=wmlLocationId
"syn region wmlLocation start=+{#+ end=+#}+ contains=wmlLocationId
"syn region wmlLocationed contained start=+<<+ end=+>>+ contains=wmlLocationId
syn match wmlDivert "\.\.[a-zA-Z_]\+>>"
syn match wmlDivertEnd "<<\.\."
" new version
"syn match wmlDivert "{#[a-zA-Z_]\+#:"
"syn match wmlDivertEnd ":##}"
syn match wmlDefineName contained "\s\+[A-Za-z-]\+"
syn region htmlTagName start="\<\(define-tag\|define-region\)" end="\>" contains=wmlDefineName
" The perl include stuff
if main_syntax != 'perl'
" Perl script
syn include @wmlPerlScript syntax/perl.vim
unlet b:current_syntax
syn region perlScript start=+<perl>+ keepend end=+</perl>+ contains=@wmlPerlScript,wmlPerlTag
" eperl between '<:' and ':>' -- Alfie [1999-12-26]
syn region perlScript start=+<:+ keepend end=+:>+ contains=@wmlPerlScript,wmlPerlTag
syn match wmlPerlTag contained "</*perl>" contains=wmlPerlTagN
syn keyword wmlPerlTagN contained perl
hi link wmlPerlTag htmlTag
hi link wmlPerlTagN htmlStatement
endif
" verbatim tags -- don't highlight anything in between -- Alfie [2002-02-07]
syn region wmlVerbatimText start=+<verbatim>+ keepend end=+</verbatim>+ contains=wmlVerbatimTag
syn match wmlVerbatimTag contained "</*verbatim>" contains=wmlVerbatimTagN
syn keyword wmlVerbatimTagN contained verbatim
hi link wmlVerbatimTag htmlTag
hi link wmlVerbatimTagN htmlStatement
if main_syntax == "html"
syn sync match wmlHighlight groupthere NONE "</a-zA-Z]"
syn sync match wmlHighlight groupthere perlScript "<perl>"
syn sync match wmlHighlightSkip "^.*['\"].*$"
syn sync minlines=10
endif
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
hi def link wmlNextLine Special
hi def link wmlUse Include
hi def link wmlUsed String
hi def link wmlBody Special
hi def link wmlDiverted Label
hi def link wmlDivert Delimiter
hi def link wmlDivertEnd Delimiter
hi def link wmlLocationId Label
hi def link wmlLocation Delimiter
" hi def link wmlLocationed Delimiter
hi def link wmlDefineName String
hi def link wmlComment Comment
hi def link wmlInclude Include
hi def link wmlSharpBang PreProc
let b:current_syntax = "wml"
|
