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

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

" ---------------------------------------------------------------------------
" single file ops
:map <LocalLeader>be :!bk edit %<CR>:e!<CR>
:map <LocalLeader>bd :call MyBkFileDelta(expand("%"))<CR>
:map <LocalLeader>b= :call MyBkFileDiffs(expand("%"))<CR>

" ---------------------------------------------------------------------------
" global ops
:map <LocalLeader>bp :!bk pending<CR>:e!<CR>
:map <LocalLeader>bc :!bk commit<CR>:e!<CR>

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

" ---------------------------------------------------------------------------
" do a bk delta
function! MyBkFileDelta(file)
	let l:line = "echo ==================================================="
	let l:info = "echo 'diffs for " . a:file . "'"
	let l:diff = "bk diffs " . a:file
	let l:cmd  = l:line .";" . l:info . ";" . l:line . ";" . l:diff
	exec "!" . l:cmd . ";echo;echo;bk delta " . a:file
endfunction

" ---------------------------------------------------------------------------
" print changes in file
function! MyBkFileDiffs(file)
	let l:line = "echo ==================================================="
	let l:info = "echo 'diffs for " . a:file . "'"
	let l:diff = "bk diffs " . 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>[bB]
function! MyBkCmdList()
	echo 'generic mapping'
	map <LocalLeader>b
	echo 'gui mappings'
	map <LocalLeader>B
endfunction