diff options
Diffstat (limited to '')
-rw-r--r-- | .vim/plugin/scmCloseParens.vim | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/.vim/plugin/scmCloseParens.vim b/.vim/plugin/scmCloseParens.vim deleted file mode 100644 index 8aca684..0000000 --- a/.vim/plugin/scmCloseParens.vim +++ /dev/null @@ -1,58 +0,0 @@ -" Description: Simple script (hack ?) that closes opened parens -" Author: Adrien Pierard <pierarda#iro.umontreal.ca> -" Modified: 04/05/07 -" Version: 0.1 -" -" Usage: I mapped it to <Leader>p -" So, just go to normal mode, and type the shortcut, or :call -" RunScmCloseParens() yourself - - -let b:msg = "" -let b:bcpt = 0 - -function! SetCursorWhereItIsGoodToPutItEh() - let line = substitute(getline("."), "\\s\\+$", "", "") - call setline(line("."),line) - norm $ - let charUnderCursor = strpart(line("."), col(".") - 1, 1) - norm a) - call CountAsMuchAsPossible() -endfunction - -function! CountAsMuchAsPossible() - let cpt = 0 - while (CanWeGoOn() > 0) - let cpt = cpt + 1 - call OhGetBackAndSetAnotherOne() - endwhile - let line = substitute(getline("."), ")$", "", "") - call setline(line("."),line) - let b:cpt = cpt -endfunction - -function! CanWeGoOn() - return (searchpair('(', '', ')' , 'b' )) -endfunction - -function! OhGetBackAndSetAnotherOne() - call searchpair('(', '', ')') - norm a) - -endfunction - -function! InitScmCloseParens() - if ! exists("g:ScmCloseParens") - let g:ScmCloseParens = "Scheme on you !" - execute 'nmap <Leader>p :call RunScmCloseParens()<Cr>' - endif -endfunction - -fun! RunScmCloseParens() - let b:bcpt = 0 - call SetCursorWhereItIsGoodToPutItEh() - norm :echo b:bcpt -endfunction - -call InitScmCloseParens() - |