116 lines
3.2 KiB
VimL
116 lines
3.2 KiB
VimL
" Vim plugin for formatting XML
|
|
" Last Change: Thu, 07 Dec 2018
|
|
" Version: 0.1
|
|
" Author: Christian Brabandt <cb@256bit.org>
|
|
" Repository: https://github.com/chrisbra/vim-xml-ftplugin
|
|
" License: VIM License
|
|
" Documentation: see :h xmlformat.txt (TODO!)
|
|
" ---------------------------------------------------------------------
|
|
" Load Once: {{{1
|
|
if exists("g:loaded_xmlformat") || &cp
|
|
finish
|
|
endif
|
|
let g:loaded_xmlformat = 1
|
|
let s:keepcpo = &cpo
|
|
set cpo&vim
|
|
|
|
" Main function: Format the input {{{1
|
|
func! xmlformat#Format()
|
|
" only allow reformatting through the gq command
|
|
" (e.g. Vim is in normal mode)
|
|
if mode() != 'n'
|
|
" do not fall back to internal formatting
|
|
return 0
|
|
endif
|
|
let sw = shiftwidth()
|
|
let prev = prevnonblank(v:lnum-1)
|
|
let s:indent = indent(prev)/sw
|
|
let result = []
|
|
let lastitem = prev ? getline(prev) : ''
|
|
let is_xml_decl = 0
|
|
" split on `<`, but don't split on very first opening <
|
|
for item in split(join(getline(v:lnum, (v:lnum + v:count - 1))), '.\@<=[>]\zs')
|
|
if s:EndTag(item)
|
|
let s:indent = s:DecreaseIndent()
|
|
call add(result, s:Indent(item))
|
|
elseif s:EmptyTag(lastitem)
|
|
call add(result, s:Indent(item))
|
|
elseif s:StartTag(lastitem) && s:IsTag(item)
|
|
let s:indent += 1
|
|
call add(result, s:Indent(item))
|
|
else
|
|
if !s:IsTag(item)
|
|
" Simply split on '<'
|
|
let t=split(item, '.<\@=\zs')
|
|
let s:indent+=1
|
|
call add(result, s:Indent(t[0]))
|
|
let s:indent = s:DecreaseIndent()
|
|
call add(result, s:Indent(t[1]))
|
|
else
|
|
call add(result, s:Indent(item))
|
|
endif
|
|
endif
|
|
let lastitem = item
|
|
endfor
|
|
|
|
if !empty(result)
|
|
exe v:lnum. ",". (v:lnum + v:count - 1). 'd'
|
|
call append(v:lnum - 1, result)
|
|
" Might need to remove the last line, if it became empty because of the
|
|
" append() call
|
|
let last = v:lnum + len(result)
|
|
if getline(last) is ''
|
|
exe last. 'd'
|
|
endif
|
|
endif
|
|
|
|
" do not run internal formatter!
|
|
return 0
|
|
endfunc
|
|
" Check if given tag is XML Declaration header {{{1
|
|
func! s:IsXMLDecl(tag)
|
|
return a:tag =~? '^\s*<?xml\s\?\%(version="[^"]*"\)\?\s\?\%(encoding="[^"]*"\)\? ?>\s*$'
|
|
endfunc
|
|
" Return tag indented by current level {{{1
|
|
func! s:Indent(item)
|
|
return repeat(' ', shiftwidth()*s:indent). s:Trim(a:item)
|
|
endfu
|
|
" Return item trimmed from leading whitespace {{{1
|
|
func! s:Trim(item)
|
|
if exists('*trim')
|
|
return trim(a:item)
|
|
else
|
|
return matchstr(a:item, '\S\+.*')
|
|
endif
|
|
endfunc
|
|
" Check if tag is a new opening tag <tag> {{{1
|
|
func! s:StartTag(tag)
|
|
let is_comment = s:IsComment(a:tag)
|
|
return a:tag =~? '^\s*<[^/?]' && !is_comment
|
|
endfunc
|
|
func! s:IsComment(tag)
|
|
return a:tag =~? '<!--'
|
|
endfunc
|
|
" Remove one level of indentation {{{1
|
|
func! s:DecreaseIndent()
|
|
return (s:indent > 0 ? s:indent - 1 : 0)
|
|
endfunc
|
|
" Check if tag is a closing tag </tag> {{{1
|
|
func! s:EndTag(tag)
|
|
return a:tag =~? '^\s*</'
|
|
endfunc
|
|
" Check that the tag is actually a tag and not {{{1
|
|
" something like "foobar</foobar>"
|
|
func! s:IsTag(tag)
|
|
return s:Trim(a:tag)[0] == '<'
|
|
endfunc
|
|
" Check if tag is empty <tag/> {{{1
|
|
func! s:EmptyTag(tag)
|
|
return a:tag =~ '/>\s*$'
|
|
endfunc
|
|
" Restoration And Modelines: {{{1
|
|
let &cpo= s:keepcpo
|
|
unlet s:keepcpo
|
|
" Modeline {{{1
|
|
" vim: fdm=marker fdl=0 ts=2 et sw=0 sts=-1
|