" Setting the following two variables adds quick and dirty support for
" subversion
let g:SvnExecutable="svn"
let g:SvnEditCommand="vsplit"
let VCSCommandDisableAll=1

function! SvnQuote(file)
	return "'" . a:file . "'"
endfunction
function! SvnAdd()
	let ret = system(g:SvnExecutable . " add " . SvnQuote(expand("%")) )
	echo ret
endfunction
function! SvnDiff()
	let diff = system(g:SvnExecutable . " diff " . SvnQuote(expand("%")) )
	if strlen(diff) == 0
		echo "No Difference!"
	else
		echo diff
	endif
endfunction
function! SvnCommit()
	normal mz
	let file = SvnQuote(expand('%'))
	exec SvnDiff()
	echo
	let message = input("commit note? ")
	echo system(g:SvnExecutable . " commit -m " . SvnQuote(message) . " " . file )
	normal `z
endfunction
function! SvnStatus()
	let file = SvnQuote(expand('%'))
	echo system(g:SvnExecutable . " stat " . file )
endfunction


" do we have vcscommand.vim
if ! exists("VCSCommandDisableAll")
	set statusline=%<%f\ %h%m%r%{VCSCommandGetStatusLine()}%=%-14.(%l,%c%V%)\ %P
	cabbr svna call VCSAdd()
	cabbr svnd call VCSDiff()
	cabbr svnc call VCSCommit()
endif

if exists('g:SvnExecutable')
	cabbr svna call SvnAdd()
	cabbr svnd call SvnDiff()
	cabbr svnc call SvnCommit()
	cabbr svns call SvnStatus()
endif