summaryrefslogtreecommitdiff
path: root/.vim/plugin/scmCloseParens.vim
diff options
context:
space:
mode:
authorRené Neumann <rene.neumann@in.tum.de>2012-09-04 16:20:28 +0200
committerRené Neumann <rene.neumann@in.tum.de>2012-09-04 16:20:29 +0200
commit9d8238cef09d8cb7c270b616ec56a335e0ac0854 (patch)
treea7857c65ec06a48dd575d604539d331a90c01463 /.vim/plugin/scmCloseParens.vim
parent08ae3f83268783edd51dd97a749c088007f7fea4 (diff)
downloaddotfiles-9d8238cef09d8cb7c270b616ec56a335e0ac0854.tar.gz
dotfiles-9d8238cef09d8cb7c270b616ec56a335e0ac0854.tar.bz2
dotfiles-9d8238cef09d8cb7c270b616ec56a335e0ac0854.zip
Move to bundles in vim -- also remove old craft
Diffstat (limited to '')
-rw-r--r--.vim/plugin/scmCloseParens.vim58
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()
-