Mercurial > hg > RemoteEditor > vim7

comparison runtime/indent/html.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
1 " Description: html indenter
2 " Author: Johannes Zellner <johannes@zellner.org>
3 " Last Change: Mo, 05 Jun 2006 22:32:41 CEST
4 " Restoring 'cpo' and 'ic' added by Bram 2006 May 5
5 " Globals: g:html_indent_tags -- indenting tags
6 " g:html_indent_strict -- inhibit 'O O' elements
7 " g:html_indent_strict_table -- inhibit 'O -' elements
8
9 " Only load this indent file when no other was loaded.
10 if exists("b:did_indent")
11 finish
12 endif
13 let b:did_indent = 1
14
15
16 " [-- local settings (must come before aborting the script) --]
17 setlocal indentexpr=HtmlIndentGet(v:lnum)
18 setlocal indentkeys=o,O,*<Return>,<>>,{,}
19
20
21 if exists('g:html_indent_tags')
22 unlet g:html_indent_tags
23 endif
24
25 " [-- helper function to assemble tag list --]
26 fun! <SID>HtmlIndentPush(tag)
27 if exists('g:html_indent_tags')
28 let g:html_indent_tags = g:html_indent_tags.'\|'.a:tag
29 else
30 let g:html_indent_tags = a:tag
31 endif
32 endfun
33
34
35 " [-- <ELEMENT ? - - ...> --]
36 call <SID>HtmlIndentPush('a')
37 call <SID>HtmlIndentPush('abbr')
38 call <SID>HtmlIndentPush('acronym')
39 call <SID>HtmlIndentPush('address')
40 call <SID>HtmlIndentPush('b')
41 call <SID>HtmlIndentPush('bdo')
42 call <SID>HtmlIndentPush('big')
43 call <SID>HtmlIndentPush('blockquote')
44 call <SID>HtmlIndentPush('button')
45 call <SID>HtmlIndentPush('caption')
46 call <SID>HtmlIndentPush('center')
47 call <SID>HtmlIndentPush('cite')
48 call <SID>HtmlIndentPush('code')
49 call <SID>HtmlIndentPush('colgroup')
50 call <SID>HtmlIndentPush('del')
51 call <SID>HtmlIndentPush('dfn')
52 call <SID>HtmlIndentPush('dir')
53 call <SID>HtmlIndentPush('div')
54 call <SID>HtmlIndentPush('dl')
55 call <SID>HtmlIndentPush('em')
56 call <SID>HtmlIndentPush('fieldset')
57 call <SID>HtmlIndentPush('font')
58 call <SID>HtmlIndentPush('form')
59 call <SID>HtmlIndentPush('frameset')
60 call <SID>HtmlIndentPush('h1')
61 call <SID>HtmlIndentPush('h2')
62 call <SID>HtmlIndentPush('h3')
63 call <SID>HtmlIndentPush('h4')
64 call <SID>HtmlIndentPush('h5')
65 call <SID>HtmlIndentPush('h6')
66 call <SID>HtmlIndentPush('i')
67 call <SID>HtmlIndentPush('iframe')
68 call <SID>HtmlIndentPush('ins')
69 call <SID>HtmlIndentPush('kbd')
70 call <SID>HtmlIndentPush('label')
71 call <SID>HtmlIndentPush('legend')
72 call <SID>HtmlIndentPush('map')
73 call <SID>HtmlIndentPush('menu')
74 call <SID>HtmlIndentPush('noframes')
75 call <SID>HtmlIndentPush('noscript')
76 call <SID>HtmlIndentPush('object')
77 call <SID>HtmlIndentPush('ol')
78 call <SID>HtmlIndentPush('optgroup')
79 " call <SID>HtmlIndentPush('pre')
80 call <SID>HtmlIndentPush('q')
81 call <SID>HtmlIndentPush('s')
82 call <SID>HtmlIndentPush('samp')
83 call <SID>HtmlIndentPush('script')
84 call <SID>HtmlIndentPush('select')
85 call <SID>HtmlIndentPush('small')
86 call <SID>HtmlIndentPush('span')
87 call <SID>HtmlIndentPush('strong')
88 call <SID>HtmlIndentPush('style')
89 call <SID>HtmlIndentPush('sub')
90 call <SID>HtmlIndentPush('sup')
91 call <SID>HtmlIndentPush('table')
92 call <SID>HtmlIndentPush('textarea')
93 call <SID>HtmlIndentPush('title')
94 call <SID>HtmlIndentPush('tt')
95 call <SID>HtmlIndentPush('u')
96 call <SID>HtmlIndentPush('ul')
97 call <SID>HtmlIndentPush('var')
98
99
100 " [-- <ELEMENT ? O O ...> --]
101 if !exists('g:html_indent_strict')
102 call <SID>HtmlIndentPush('body')
103 call <SID>HtmlIndentPush('head')
104 call <SID>HtmlIndentPush('html')
105 call <SID>HtmlIndentPush('tbody')
106 endif
107
108
109 " [-- <ELEMENT ? O - ...> --]
110 if !exists('g:html_indent_strict_table')
111 call <SID>HtmlIndentPush('th')
112 call <SID>HtmlIndentPush('td')
113 call <SID>HtmlIndentPush('tr')
114 call <SID>HtmlIndentPush('tfoot')
115 call <SID>HtmlIndentPush('thead')
116 endif
117
118 delfun <SID>HtmlIndentPush
119
120 let s:cpo_save = &cpo
121 set cpo-=C
122
123 " [-- count indent-increasing tags of line a:lnum --]
124 fun! <SID>HtmlIndentOpen(lnum, pattern)
125 let s = substitute('x'.getline(a:lnum),
126 \ '.\{-}\(\(<\)\('.a:pattern.'\)\>\)', "\1", 'g')
127 let s = substitute(s, "[^\1].*$", '', '')
128 return strlen(s)
129 endfun
130
131 " [-- count indent-decreasing tags of line a:lnum --]
132 fun! <SID>HtmlIndentClose(lnum, pattern)
133 let s = substitute('x'.getline(a:lnum),
134 \ '.\{-}\(\(<\)/\('.a:pattern.'\)\>>\)', "\1", 'g')
135 let s = substitute(s, "[^\1].*$", '', '')
136 return strlen(s)
137 endfun
138
139 " [-- count indent-increasing '{' of (java|css) line a:lnum --]
140 fun! <SID>HtmlIndentOpenAlt(lnum)
141 return strlen(substitute(getline(a:lnum), '[^{]\+', '', 'g'))
142 endfun
143
144 " [-- count indent-decreasing '}' of (java|css) line a:lnum --]
145 fun! <SID>HtmlIndentCloseAlt(lnum)
146 return strlen(substitute(getline(a:lnum), '[^}]\+', '', 'g'))
147 endfun
148
149 " [-- return the sum of indents respecting the syntax of a:lnum --]
150 fun! <SID>HtmlIndentSum(lnum, style)
151 if a:style == match(getline(a:lnum), '^\s*</')
152 if a:style == match(getline(a:lnum), '^\s*</\<\('.g:html_indent_tags.'\)\>')
153 let open = <SID>HtmlIndentOpen(a:lnum, g:html_indent_tags)
154 let close = <SID>HtmlIndentClose(a:lnum, g:html_indent_tags)
155 if 0 != open || 0 != close
156 return open - close
157 endif
158 endif
159 endif
160 if '' != &syntax &&
161 \ synIDattr(synID(a:lnum, 1, 1), 'name') =~ '\(css\|java\).*' &&
162 \ synIDattr(synID(a:lnum, strlen(getline(a:lnum)), 1), 'name')
163 \ =~ '\(css\|java\).*'
164 if a:style == match(getline(a:lnum), '^\s*}')
165 return <SID>HtmlIndentOpenAlt(a:lnum) - <SID>HtmlIndentCloseAlt(a:lnum)
166 endif
167 endif
168 return 0
169 endfun
170
171 fun! HtmlIndentGet(lnum)
172 " Find a non-empty line above the current line.
173 let lnum = prevnonblank(a:lnum - 1)
174
175 " Hit the start of the file, use zero indent.
176 if lnum == 0
177 return 0
178 endif
179
180 let restore_ic = &ic
181 setlocal ic " ignore case
182
183 " [-- special handling for <pre>: no indenting --]
184 if getline(a:lnum) =~ '\c</pre>'
185 \ || 0 < searchpair('\c<pre>', '', '\c</pre>', 'nWb')
186 \ || 0 < searchpair('\c<pre>', '', '\c</pre>', 'nW')
187 " we're in a line with </pre> or inside <pre> ... </pre>
188 if restore_ic == 0
189 setlocal noic
190 endif
191 return -1
192 endif
193
194 " [-- special handling for <javascript>: use cindent --]
195 let js = '<script.*type\s*=\s*.*java'
196
197 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
198 " by Tye Zdrojewski <zdro@yahoo.com>, 05 Jun 2006
199 " ZDR: This needs to be an AND (we are 'after the start of the pair' AND
200 " we are 'before the end of the pair'). Otherwise, indentation
201 " before the start of the script block will be affected; the end of
202 " the pair will still match if we are before the beginning of the
203 " pair.
204 "
205 if 0 < searchpair(js, '', '</script>', 'nWb')
206 \ && 0 < searchpair(js, '', '</script>', 'nW')
207 " we're inside javascript
208 if getline(lnum) !~ js && getline(a:lnum) != '</script>'
209 if restore_ic == 0
210 setlocal noic
211 endif
212 return cindent(a:lnum)
213 endif
214 endif
215
216 if getline(lnum) =~ '\c</pre>'
217 " line before the current line a:lnum contains
218 " a closing </pre>. --> search for line before
219 " starting <pre> to restore the indent.
220 let preline = prevnonblank(search('\c<pre>', 'bW') - 1)
221 if preline > 0
222 if restore_ic == 0
223 setlocal noic
224 endif
225 return indent(preline)
226 endif
227 endif
228
229 let ind = <SID>HtmlIndentSum(lnum, -1)
230 let ind = ind + <SID>HtmlIndentSum(a:lnum, 0)
231
232 if restore_ic == 0
233 setlocal noic
234 endif
235
236 return indent(lnum) + (&sw * ind)
237 endfun
238
239 let &cpo = s:cpo_save
240 unlet s:cpo_save
241
242 " [-- EOF <runtime>/indent/html.vim --]