88 lines
2.8 KiB
VimL
88 lines
2.8 KiB
VimL
" Vim plugin for showing matching html tags.
|
|
" Maintainer: Greg Sexton <gregsexton@gmail.com>
|
|
" Credits: Bram Moolenar and the 'matchparen' plugin from which this draws heavily.
|
|
|
|
if exists("b:did_ftplugin")
|
|
finish
|
|
endif
|
|
|
|
augroup matchhtmlparen
|
|
autocmd! CursorMoved,CursorMovedI,WinEnter <buffer> call s:Highlight_Matching_Pair()
|
|
augroup END
|
|
|
|
fu! s:Highlight_Matching_Pair()
|
|
" Remove any previous match.
|
|
if exists('w:tag_hl_on') && w:tag_hl_on
|
|
2match none
|
|
let w:tag_hl_on = 0
|
|
endif
|
|
|
|
" Avoid that we remove the popup menu.
|
|
" Return when there are no colors (looks like the cursor jumps).
|
|
if pumvisible() || (&t_Co < 8 && !has("gui_running"))
|
|
return
|
|
endif
|
|
|
|
"get html tag under cursor
|
|
let tagname = s:GetCurrentCursorTag()
|
|
if tagname == ""|return|endif
|
|
|
|
if tagname[0] == '/'
|
|
let position = s:SearchForMatchingTag(tagname[1:], 0)
|
|
else
|
|
let position = s:SearchForMatchingTag(tagname, 1)
|
|
endif
|
|
call s:HighlightTagAtPosition(position)
|
|
endfu
|
|
|
|
fu! s:GetCurrentCursorTag()
|
|
"returns the tag under the cursor, includes the '/' if on a closing tag.
|
|
|
|
let c_col = col('.')
|
|
let matched = matchstr(getline('.'), '\(<[^<>]*\%'.c_col.'c.\{-}>\)\|\(\%'.c_col.'c<.\{-}>\)')
|
|
if matched == "" || matched =~ '/>$'
|
|
return ""
|
|
endif
|
|
|
|
let tagname = matchstr(matched, '<\zs.\{-}\ze[ >]')
|
|
return tagname
|
|
endfu
|
|
|
|
fu! s:SearchForMatchingTag(tagname, forwards)
|
|
"returns the position of a matching tag or [0 0]
|
|
|
|
let starttag = '<'.a:tagname.'.\{-}/\@<!>'
|
|
let midtag = ''
|
|
let endtag = '</'.a:tagname.'.\{-}'.(a:forwards?'':'\zs').'>'
|
|
let flags = 'nW'.(a:forwards?'':'b')
|
|
|
|
" When not in a string or comment ignore matches inside them.
|
|
let skip ='synIDattr(synID(line("."), col("."), 0), "name") ' .
|
|
\ '=~? "htmlString\\|htmlCommentPart"'
|
|
execute 'if' skip '| let skip = 0 | endif'
|
|
|
|
" Limit the search to lines visible in the window.
|
|
let stopline = a:forwards ? line('w$') : line('w0')
|
|
let timeout = 300
|
|
|
|
" The searchpairpos() timeout parameter was added in 7.2
|
|
if v:version >= 702
|
|
return searchpairpos(starttag, midtag, endtag, flags, skip, stopline, timeout)
|
|
else
|
|
return searchpairpos(starttag, midtag, endtag, flags, skip, stopline)
|
|
endif
|
|
endfu
|
|
|
|
fu! s:HighlightTagAtPosition(position)
|
|
if a:position == [0, 0]
|
|
return
|
|
endif
|
|
|
|
let [m_lnum, m_col] = a:position
|
|
exe '2match MatchParen /\(\%' . m_lnum . 'l\%' . m_col . 'c<\zs.\{-}\ze[ >]\)\|'
|
|
\ .'\(\%' . line('.') . 'l\%' . col('.') . 'c<\zs.\{-}\ze[ >]\)\|'
|
|
\ .'\(\%' . line('.') . 'l<\zs[^<> ]*\%' . col('.') . 'c.\{-}\ze[ >]\)\|'
|
|
\ .'\(\%' . line('.') . 'l<\zs[^<>]\{-}\ze\s[^<>]*\%' . col('.') . 'c.\{-}>\)/'
|
|
let w:tag_hl_on = 1
|
|
endfu
|