" my macros for CVS
"
" shortcuts are organized such that 
"   <LocalLeader>c*	performs simple cvs operations
"   <LocalLeader>C*	executes one of the cvs GUI programs
"
" a runtime list of mappings can be generated with <LocalLeader>c?
"
" ASIDE: unless changed, <LocalLeader> in my configuration is bound to ,
"

" ---------------------------------------------------------------------------
" help for this menu
:map <LocalLeader>c? :call MyCVSCmdList()<CR>

" ---------------------------------------------------------------------------
" single file ops
:map <LocalLeader>ce :!cvs edit %<CR>:e!<CR>
:map <LocalLeader>cc :call MyCVSFileCommit(expand("%"))<CR>
:map <LocalLeader>c= :call MyCVSFileDiffs(expand("%"))<CR>

" ---------------------------------------------------------------------------
" global ops
":map <LocalLeader>cp :!bk pending<CR>:e!<CR>
":map <LocalLeader>cc :!bk commit<CR>:e!<CR>

" ---------------------------------------------------------------------------
" invoke GUI tools
":map <LocalLeader>Cc :!bk citool<CR>:e!<CR>
":map <LocalLeader>Cr :!bk revtool<CR>:e!<CR>

" ---------------------------------------------------------------------------
" do a cvs commit
function! MyCVSFileCommit(file)
	let l:line = "echo ==================================================="
	let l:info = "echo 'diffs for " . a:file . "'"
	let l:diff = "cvs diff " . a:file
	let l:cmd  = l:line .";" . l:info . ";" . l:line . ";" . l:diff
	let l:wait = "echo 'Push ENTER to edit commit comment...' ; read"
	exec "!" . l:cmd . ";echo;echo;" . l:wait . ";cvs commit " . a:file
endfunction

" ---------------------------------------------------------------------------
" print changes in file
function! MyCVSFileDiffs(file)
	let l:line = "echo ==================================================="
	let l:info = "echo 'diffs for " . a:file . "'"
	let l:diff = "cvs diff " . a:file
	let l:cmd  = l:line .";" . l:info . ";" . l:line . ";" . l:diff
	exec "!" . l:cmd
endfunction

" ---------------------------------------------------------------------------
" dump list of commands that are bound to <LocalLeader>[cC]
function! MyCVSCmdList()
	echo 'generic mapping'
	map <LocalLeader>c
	echo 'gui mappings'
	map <LocalLeader>C
endfunction