[Vim-latex-devel] matching brackets

[Carl M. <cm...@ma...>]

One of my biggest problems used to be mismatched brackets.
Now I have macros which automatically type the matching
bracket.  For instance, "(" results in "()" with the cursor
in between.  Since I sometimes want only one bracket, I made
it so that "((" results in "(".  That is faster than typing
"(" and then deleting the extra bracket.

Not everyone may agree with this idea, so it could be an option.
However, it has saved me an enormous amount of time.  Also,
the emacs package "ultratex" has automatic matching $$ and {},
so there is some precedent.  

I'm listing the code below.  It applies to:

()
[]
{}
\{\}
||
\|\|
$$
&&   (when within eqnarray or eqnarray* environments)

Carl Mueller

=========================================================================

" Bracket Completion Macros 

" Key Bindings             

" Typing the symbol a second time (for example, $$) will result in one
" of the symbole (for instance, $).  With {, typing \{ will result in \{\}.
inoremap <buffer> ( <C-R>=<SID>Double("(",")")<CR>
"inoremap <buffer> [ <C-R>=<SID>Double("[","]")<CR>
inoremap <buffer> [ <C-R>=<SID>CompleteSlash("[","]")<CR>
inoremap <buffer> $ <C-R>=<SID>Double("$","$")<CR>
inoremap <buffer> & <C-R>=<SID>DoubleAmpersands()<CR>
inoremap <buffer> { <C-R>=<SID>CompleteSlash("{","}")<CR>
inoremap <buffer> \| <C-R>=<SID>CompleteSlash("\|","\|")<CR>

" If you would rather insert $$ individually, the following macro by 
" Charles Campbell will make the cursor blink on the previous dollar sign,
" if it is in the same line.
" inoremap $ $<C-O>F$<C-O>:redraw!<CR><C-O>:sleep 500m<CR><C-O>f$<Right>

" Functions 

" For () and $$
function! s:Double(left,right)
    if strpart(getline(line(".")),col(".")-2,2) == a:left . a:right
	return "\<Del>"
    else
	return a:left . a:right . "\<Left>"
    endif
endfunction

" Complete [, \[, {, \{, |, \|
function! s:CompleteSlash(left,right)
    let column = col(".")
    let first = getline(line("."))[column-2]
    let second = getline(line("."))[column-1]
    if first == "\\"
	if a:left == "["
	    return "\[\<CR>\<CR>\\]\<Up>"
	else
	    return a:left . "\\" . a:right . "\<Left>\<Left>"
	endif
    else
	if a:left =~ '\[\|{'
	\ && strpart(getline(line(".")),col(".")-2,2) == a:left . a:right
	    return "\<Del>"
        else
            return a:left . a:right . "\<Left>"
	endif
    endif
endfunction

" Double ampersands, if you are in an eqnarray or eqnarray* environment.
function! s:DoubleAmpersands()
    let stop = 0
    let currentline = line(".")
    while stop == 0
	let currentline = currentline - 1
	let thisline = getline(currentline)
	if thisline =~ '\\begin' || currentline == 0
	    let stop = 1
	endif
    endwhile
    if thisline =~ '\\begin{eqnarray\**}'
	return "&&\<Left>"
    elseif strpart(getline(line(".")),col(".")-2,2) == "&&"
	return "\<Del>"
    else
	return "&"
    endif
endfunction