" Close HTML tags
nnoremap \hc :call InsertCloseTag()<CR>
imap <F8> <Space><BS><Esc>\hca

function! InsertCloseTag()
	" inserts the appropriate closing HTML tag
	" 
	" by Smylers  http://www.stripey.com/vim/
	" 2000 May 4

	" list of tags which shouldn't be closed:
	let UnaryTags = ' area base br dd dt hr img input link meta param '

	" remember current position:
	normal mz

	" loop backwards looking for tags:
	let Found = 0
	while Found == 0
	" find the previous <, then go forwards one character and grab the first
	" character plus the entire word:
	execute "normal ?\<LT>\<CR>l"
	normal "zyl
	let Tag = expand('<cword>')

	" if this is a closing tag, skip back to its matching opening tag:
	if @z == '/'
	execute "normal ?\<LT>" . Tag . "\<CR>"

	" if this is a unary tag, then position the cursor for the next
	" iteration:
	elseif match(UnaryTags, ' ' . Tag . ' ') > 0
	normal h

	" otherwise this is the tag that needs closing:
	else
	let Found = 1

	endif
	endwhile " not yet found match

	" create the closing tag and insert it:
	let @z = '</' . Tag . '>'
	normal `z
	if col('.') == 1
	normal "zP
	else
	normal "zp
	endif

endfunction " InsertCloseTag()