|
7
|
1 " Vim syntax file
|
|
|
2 " Language: Mason (Perl embedded in HTML)
|
|
|
3 " Maintainer: Andrew Smith <andrewdsmith@yahoo.com>
|
|
|
4 " Last change: 2003 May 11
|
|
|
5 " URL: http://www.masonhq.com/editors/mason.vim
|
|
|
6 "
|
|
|
7 " This seems to work satisfactorily with html.vim and perl.vim for version 5.5.
|
|
|
8 " Please mail any fixes or improvements to the above address. Things that need
|
|
|
9 " doing include:
|
|
|
10 "
|
|
|
11 " - Add match for component names in <& &> blocks.
|
|
|
12 " - Add match for component names in <%def> and <%method> block delimiters.
|
|
|
13 " - Fix <%text> blocks to show HTML tags but ignore Mason tags.
|
|
|
14 "
|
|
|
15
|
|
|
16 " Clear previous syntax settings unless this is v6 or above, in which case just
|
|
|
17 " exit without doing anything.
|
|
|
18 "
|
|
|
19 if version < 600
|
|
|
20 syn clear
|
|
|
21 elseif exists("b:current_syntax")
|
|
|
22 finish
|
|
|
23 endif
|
|
|
24
|
|
|
25 " The HTML syntax file included below uses this variable.
|
|
|
26 "
|
|
|
27 if !exists("main_syntax")
|
|
|
28 let main_syntax = 'mason'
|
|
|
29 endif
|
|
|
30
|
|
|
31 " First pull in the HTML syntax.
|
|
|
32 "
|
|
|
33 if version < 600
|
|
|
34 so <sfile>:p:h/html.vim
|
|
|
35 else
|
|
|
36 runtime! syntax/html.vim
|
|
|
37 unlet b:current_syntax
|
|
|
38 endif
|
|
|
39
|
|
|
40 syn cluster htmlPreproc add=@masonTop
|
|
|
41
|
|
|
42 " Now pull in the Perl syntax.
|
|
|
43 "
|
|
|
44 if version < 600
|
|
|
45 syn include @perlTop <sfile>:p:h/perl.vim
|
|
|
46 else
|
|
|
47 syn include @perlTop syntax/perl.vim
|
|
|
48 endif
|
|
|
49
|
|
|
50 " It's hard to reduce down to the correct sub-set of Perl to highlight in some
|
|
|
51 " of these cases so I've taken the safe option of just using perlTop in all of
|
|
|
52 " them. If you have any suggestions, please let me know.
|
|
|
53 "
|
|
|
54 syn region masonLine matchgroup=Delimiter start="^%" end="$" contains=@perlTop
|
|
|
55 syn region masonExpr matchgroup=Delimiter start="<%" end="%>" contains=@perlTop
|
|
|
56 syn region masonPerl matchgroup=Delimiter start="<%perl>" end="</%perl>" contains=@perlTop
|
|
|
57 syn region masonComp keepend matchgroup=Delimiter start="<&" end="&>" contains=@perlTop
|
|
|
58
|
|
|
59 syn region masonArgs matchgroup=Delimiter start="<%args>" end="</%args>" contains=@perlTop
|
|
|
60
|
|
|
61 syn region masonInit matchgroup=Delimiter start="<%init>" end="</%init>" contains=@perlTop
|
|
|
62 syn region masonCleanup matchgroup=Delimiter start="<%cleanup>" end="</%cleanup>" contains=@perlTop
|
|
|
63 syn region masonOnce matchgroup=Delimiter start="<%once>" end="</%once>" contains=@perlTop
|
|
|
64 syn region masonShared matchgroup=Delimiter start="<%shared>" end="</%shared>" contains=@perlTop
|
|
|
65
|
|
|
66 syn region masonDef matchgroup=Delimiter start="<%def[^>]*>" end="</%def>" contains=@htmlTop
|
|
|
67 syn region masonMethod matchgroup=Delimiter start="<%method[^>]*>" end="</%method>" contains=@htmlTop
|
|
|
68
|
|
|
69 syn region masonFlags matchgroup=Delimiter start="<%flags>" end="</%flags>" contains=@perlTop
|
|
|
70 syn region masonAttr matchgroup=Delimiter start="<%attr>" end="</%attr>" contains=@perlTop
|
|
|
71
|
|
|
72 syn region masonFilter matchgroup=Delimiter start="<%filter>" end="</%filter>" contains=@perlTop
|
|
|
73
|
|
|
74 syn region masonDoc matchgroup=Delimiter start="<%doc>" end="</%doc>"
|
|
|
75 syn region masonText matchgroup=Delimiter start="<%text>" end="</%text>"
|
|
|
76
|
|
|
77 syn cluster masonTop contains=masonLine,masonExpr,masonPerl,masonComp,masonArgs,masonInit,masonCleanup,masonOnce,masonShared,masonDef,masonMethod,masonFlags,masonAttr,masonFilter,masonDoc,masonText
|
|
|
78
|
|
|
79 " Set up default highlighting. Almost all of this is done in the included
|
|
|
80 " syntax files.
|
|
|
81 "
|
|
|
82 if version >= 508 || !exists("did_mason_syn_inits")
|
|
|
83 if version < 508
|
|
|
84 let did_mason_syn_inits = 1
|
|
|
85 com -nargs=+ HiLink hi link <args>
|
|
|
86 else
|
|
|
87 com -nargs=+ HiLink hi def link <args>
|
|
|
88 endif
|
|
|
89
|
|
|
90 HiLink masonDoc Comment
|
|
|
91
|
|
|
92 delc HiLink
|
|
|
93 endif
|
|
|
94
|
|
|
95 let b:current_syntax = "mason"
|
|
|
96
|
|
|
97 if main_syntax == 'mason'
|
|
|
98 unlet main_syntax
|
|
|
99 endif
|
