config/.vim/eclim/indent/xml.vim

169 lines
4.8 KiB
VimL
Raw Normal View History

" Author: Eric Van Dewoestine
"
" Description: {{{
" Xml indent file using IndentAnything.
"
" License:
"
" Copyright (C) 2005 - 2009 Eric Van Dewoestine
"
" This program is free software: you can redistribute it and/or modify
" it under the terms of the GNU General Public License as published by
" the Free Software Foundation, either version 3 of the License, or
" (at your option) any later version.
"
" This program is distributed in the hope that it will be useful,
" but WITHOUT ANY WARRANTY; without even the implied warranty of
" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
" GNU General Public License for more details.
"
" You should have received a copy of the GNU General Public License
" along with this program. If not, see <http://www.gnu.org/licenses/>.
"
" }}}
let b:did_indent = 1
if &indentexpr =~ 'EclimGetXmlIndent' ||
\ (!exists('b:disableOverride') && exists('g:EclimXmlIndentDisabled'))
finish
endif
let b:disableOverride = 1
runtime! indent/dtd.vim
setlocal indentexpr=EclimGetXmlIndent(v:lnum)
setlocal indentkeys=o,O,*<Return>,<>>,<<>,/,{,}
" EclimGetXmlIndent(lnum) {{{
function! EclimGetXmlIndent(lnum)
let line = line('.')
let col = line('.')
let adj = 0
let doctypestart = search('<!DOCTYPE\>', 'bcW')
if doctypestart > 0
let doctypestart = search('\[', 'cW', doctypestart)
let doctypeend = search('\]>', 'cW')
endif
call cursor(line, col)
let cdatastart = search('<!\[CDATA\[', 'bcW')
if cdatastart > 0
let cdatastart = search('\[', 'cW', cdatastart)
let cdataend = search('\]\]>', 'cW')
endif
call cursor(line, col)
" Inside <DOCTYPE, let dtd indent do the work.
if doctypestart > 0 && doctypestart < a:lnum &&
\ (doctypeend == 0 || (doctypeend > doctypestart && a:lnum <= doctypeend))
if a:lnum < doctypeend
call DtdIndentAnythingSettings()
return EclimGetDtdIndent(a:lnum)
elseif a:lnum == doctypeend
return indent(a:lnum) - &sw
endif
else
" in a <[CDATA[ section
if cdatastart > 0 && cdatastart < a:lnum &&
\ (cdataend == 0 || (cdataend >= cdatastart && a:lnum <= cdataend))
" only indent if nested text looks like xml
if getline(a:lnum) =~ '^\s*<'
if a:lnum == cdatastart + 1
return indent(cdatastart) + &sw
endif
else
return indent(a:lnum)
endif
" make sure the closing of the CDATA lines up with the opening.
if a:lnum == cdataend
return indent(cdatastart)
endif
" make sure that tag following close of CDATA is properly indented.
elseif cdatastart > 0 && cdatastart < a:lnum &&
\ (cdataend >= cdatastart && prevnonblank(a:lnum - 1) == cdataend)
return indent(cdatastart) - &sw
endif
call XmlIndentAnythingSettings()
let adj = s:XmlIndentAttributeWrap(a:lnum) * &sw
" handle case where previous line is a multi-line comment (<!-- -->) on one
" line.
let prevline = prevnonblank(a:lnum - 1)
if getline(prevline) =~ '^\s\+<!--.\{-}-->'
let adj = indent(prevline)
endif
" handle case where comment end is on its own line.
if getline(line) =~ '^\s*-->'
let adj -= &sw
endif
endif
return IndentAnything() + adj
endfunction " }}}
" XmlIndentAnythingSettings() {{{
function! XmlIndentAnythingSettings()
" Syntax name REs for comments and strings.
let b:blockCommentRE = 'xmlComment'
let b:commentRE = b:blockCommentRE
let b:lineCommentRE = 'xmlComment'
let b:stringRE = 'xmlString'
let b:singleQuoteStringRE = b:stringRE
let b:doubleQuoteStringRE = b:stringRE
setlocal comments=sr:<!--,mb:\ ,ex0:-->
let b:blockCommentStartRE = '<!--'
let b:blockCommentMiddleRE = ''
let b:blockCommentEndRE = '-->'
let b:blockCommentMiddleExtra = 2
" Indent another level for each non-closed element tag.
let b:indentTrios = [
\ [ '<\w', '', '\%(/>\|</\)' ],
\ ]
endfunction " }}}
" XmlIndentAttributeWrap(lnum) {{{
" Function which indents line continued attributes an extra level for
" readability.
function! <SID>XmlIndentAttributeWrap(lnum)
let line = line('.')
let col = col('.')
let adj = 0
try
" mover cursor to start of line to avoid matching start tag on first line
" of nested content.
call cursor(line, 1)
let open = search('<\w\|<!DOCTYPE', 'bW')
if open > 0
let close = search('>', 'cW')
if open != close
" continuation line
if close == 0 || close >= a:lnum
" first continuation line
if a:lnum == open + 1
return 1
endif
" additional continuation lines
return 0
endif
" line after last continuation line
if close == prevnonblank(a:lnum - 1)
" inner content
return -1
endif
endif
endif
finally
call cursor(line, col)
endtry
endfunction " }}}
" vim:ft=vim:fdm=marker