if exists('VCSCommandDisableAll')

finish

if exists('loaded_VCSCommand')

finish

let loaded_VCSCommand = 1

if v:version < 700

echohl WarningMsg|echomsg 'VCSCommand requires at least VIM 7.0'|echohl None

finish

let s:save_cpo=&cpo

set cpo&vim

augroup VCSCommand

augroup END

augroup VCSCommandCommit

augroup END

silent do VCSCommand User VCSPluginInit

let g:VCSCOMMAND_IDENTIFY_EXACT = 1

let g:VCSCOMMAND_IDENTIFY_INEXACT = -1

let s:plugins = {}

let s:optionOverrides = {}

let s:isEditFileRunning = 0

unlet! s:vimDiffRestoreCmd

unlet! s:vimDiffSourceBuffer

unlet! s:vimDiffScratchList

function! s:ReportError(error)

echohl WarningMsg|echomsg 'VCSCommand: ' . a:error|echohl None

function! s:CreateMapping(shortcut, expansion, display)

let lhs = VCSCommandGetOption('VCSCommandMapPrefix', '<Leader>c') . a:shortcut

if !hasmapto(a:expansion)

try

execute 'nmap <silent> <unique>' lhs a:expansion

catch /^Vim(.*):E227:/

if(&verbose != 0)

echohl WarningMsg|echomsg 'VCSCommand: mapping ''' . lhs . ''' already exists, refusing to overwrite. The mapping for ' . a:display . ' will not be available.'|echohl None

endif

endtry

endif

function! s:ExecuteExtensionMapping(mapping)

let buffer = bufnr('%')

let vcsType = VCSCommandGetVCSType(buffer)

if !has_key(s:plugins, vcsType)

throw 'Unknown VCS type: ' . vcsType

endif

if !has_key(s:plugins[vcsType][2], a:mapping)

throw 'This extended mapping is not defined for ' . vcsType

endif

silent execute 'normal' ':' . s:plugins[vcsType][2][a:mapping] . "\<CR>"

function! s:ExecuteVCSCommand(command, argList)

try

let buffer = bufnr('%')

let vcsType = VCSCommandGetVCSType(buffer)

if !has_key(s:plugins, vcsType)

throw 'Unknown VCS type: ' . vcsType

endif

let originalBuffer = VCSCommandGetOriginalBuffer(buffer)

let bufferName = bufname(originalBuffer)

if !isdirectory(bufferName)

if !filereadable(bufferName)

throw 'No such file ' . bufferName

endif

endif

let functionMap = s:plugins[vcsType][1]

if !has_key(functionMap, a:command)

throw 'Command ''' . a:command . ''' not implemented for ' . vcsType

endif

return functionMap[a:command](a:argList)

catch

call s:ReportError(v:exception)

return -1

endtry

function! s:GenerateResultBufferName(command, originalBuffer, vcsType, statusText)

let fileName = bufname(a:originalBuffer)

let bufferName = a:vcsType . ' ' . a:command

if strlen(a:statusText) > 0

let bufferName .= ' ' . a:statusText

endif

let bufferName .= ' ' . fileName

let counter = 0

let versionedBufferName = bufferName

while buflisted(versionedBufferName)

let counter += 1

let versionedBufferName = bufferName . ' (' . counter . ')'

endwhile

return versionedBufferName

function! s:GenerateResultBufferNameWithExtension(command, originalBuffer, vcsType, statusText)

let fileName = bufname(a:originalBuffer)

let bufferName = a:vcsType . ' ' . a:command

if strlen(a:statusText) > 0

let bufferName .= ' ' . a:statusText

endif

let bufferName .= ' ' . fileName . VCSCommandGetOption('VCSCommandResultBufferNameExtension', '.vcs')

let counter = 0

let versionedBufferName = bufferName

while buflisted(versionedBufferName)

let counter += 1

let versionedBufferName = '(' . counter . ') ' . bufferName

endwhile

return versionedBufferName

function! s:EditFile(command, originalBuffer, statusText)

let vcsType = getbufvar(a:originalBuffer, 'VCSCommandVCSType')

let s:isEditFileRunning += 1

try

let editCommand = VCSCommandGetOption('VCSCommandEdit', 'split')

if editCommand == 'split'

if VCSCommandGetOption('VCSCommandSplit', 'horizontal') == 'horizontal'

rightbelow split

else

vert rightbelow split

endif

endif

enew

call s:SetupScratchBuffer(a:command, vcsType, a:originalBuffer, a:statusText)

finally

let s:isEditFileRunning -= 1

endtry

function! s:SetupScratchBuffer(command, vcsType, originalBuffer, statusText)

let nameExtension = VCSCommandGetOption('VCSCommandResultBufferNameExtension', '')

if nameExtension == ''

let nameFunction = VCSCommandGetOption('VCSCommandResultBufferNameFunction', 's:GenerateResultBufferName')

else

let nameFunction = VCSCommandGetOption('VCSCommandResultBufferNameFunction', 's:GenerateResultBufferNameWithExtension')

endif

let name = call(nameFunction, [a:command, a:originalBuffer, a:vcsType, a:statusText])

let b:VCSCommandCommand = a:command

let b:VCSCommandOriginalBuffer = a:originalBuffer

let b:VCSCommandSourceFile = bufname(a:originalBuffer)

let b:VCSCommandVCSType = a:vcsType

if a:statusText != ''

let b:VCSCommandStatusText = a:statusText

endif

setlocal buftype=nofile

setlocal noswapfile

let &filetype = a:vcsType . a:command

if VCSCommandGetOption('VCSCommandDeleteOnHide', 0)

setlocal bufhidden=delete

endif

silent noautocmd file `=name`

function! s:SetupBuffer()

if (exists('b:VCSCommandBufferSetup') && b:VCSCommandBufferSetup)

return

endif

if !isdirectory(@%) && (strlen(&buftype) > 0 || !filereadable(@%))

return

endif

if !VCSCommandGetOption('VCSCommandEnableBufferSetup', 0) || s:isEditFileRunning > 0

unlet! b:VCSCommandBufferSetup

return

endif

try

let vcsType = VCSCommandGetVCSType(bufnr('%'))

let b:VCSCommandBufferInfo = s:plugins[vcsType][1].GetBufferInfo()

silent do VCSCommand User VCSBufferSetup

catch /No suitable plugin/

let b:VCSCommandBufferInfo = []

endtry

let b:VCSCommandBufferSetup = 1

function! s:MarkOrigBufferForSetup(buffer)

checktime

if a:buffer > 0

let origBuffer = VCSCommandGetOriginalBuffer(a:buffer)

if origBuffer != a:buffer

call setbufvar(origBuffer, 'VCSCommandBufferSetup', 0)

endif

endif

return a:buffer

function! s:OverrideOption(option, ...)

if a:0 == 0

call remove(s:optionOverrides[a:option], -1)

else

if !has_key(s:optionOverrides, a:option)

let s:optionOverrides[a:option] = []

endif

call add(s:optionOverrides[a:option], a:1)

endif

function! s:WipeoutCommandBuffers(originalBuffer, VCSCommand)

let buffer = 1

while buffer <= bufnr('$')

if getbufvar(buffer, 'VCSCommandOriginalBuffer') == a:originalBuffer

if getbufvar(buffer, 'VCSCommandCommand') == a:VCSCommand

execute 'bw' buffer

endif

endif

let buffer = buffer + 1

endwhile

function! s:VimDiffRestore(vimDiffBuff)

let s:isEditFileRunning += 1

try

if exists('s:vimDiffSourceBuffer')

if a:vimDiffBuff == s:vimDiffSourceBuffer

unlet! s:vimDiffSourceBuffer

unlet! s:vimDiffRestoreCmd

unlet! s:vimDiffScratchList

else

let index = index(s:vimDiffScratchList, a:vimDiffBuff)

if index >= 0

call remove(s:vimDiffScratchList, index)

if len(s:vimDiffScratchList) == 0

if exists('s:vimDiffRestoreCmd')

let sourceWinNR = bufwinnr(s:vimDiffSourceBuffer)

if sourceWinNR != -1

let currentWinNR = winnr()

while winbufnr(sourceWinNR) != -1

if winbufnr(sourceWinNR) == s:vimDiffSourceBuffer

execute sourceWinNR . 'wincmd w'

if getwinvar(0, '&diff')

execute s:vimDiffRestoreCmd

endif

endif

let sourceWinNR = sourceWinNR + 1

endwhile

execute currentWinNR . 'wincmd w'

else

let currentBufNR = bufnr('')

execute 'hide buffer' s:vimDiffSourceBuffer

if getwinvar(0, '&diff')

execute s:vimDiffRestoreCmd

endif

execute 'hide buffer' currentBufNR

endif

unlet s:vimDiffRestoreCmd

endif

unlet s:vimDiffSourceBuffer

unlet s:vimDiffScratchList

endif

endif

endif

endif

finally

let s:isEditFileRunning -= 1

endtry

function! s:VCSAnnotate(bang, ...)

try

let annotateBuffer = s:ExecuteVCSCommand('Annotate', a:000)

if annotateBuffer == -1

return -1

endif

if a:bang == '!' && VCSCommandGetOption('VCSCommandDisableSplitAnnotate', 0) == 0

let vcsType = VCSCommandGetVCSType(annotateBuffer)

let functionMap = s:plugins[vcsType][1]

let splitRegex = ''

if has_key(s:plugins[vcsType][1], 'AnnotateSplitRegex')

let splitRegex = s:plugins[vcsType][1]['AnnotateSplitRegex']

endif

let splitRegex = VCSCommandGetOption('VCSCommand' . vcsType . 'AnnotateSplitRegex', splitRegex)

if splitRegex == ''

return annotateBuffer

endif

let originalBuffer = VCSCommandGetOriginalBuffer(annotateBuffer)

let originalFileType = getbufvar(originalBuffer, '&ft')

let annotateFileType = getbufvar(annotateBuffer, '&ft')

execute "normal 0zR\<c-v>G/" . splitRegex . "/e\<cr>d"

call setbufvar('%', '&filetype', getbufvar(originalBuffer, '&filetype'))

set scrollbind

leftabove vert new

normal 0P

execute "normal" . col('$') . "\<c-w>|"

call s:SetupScratchBuffer('annotate', vcsType, originalBuffer, 'header')

wincmd l

endif

return annotateBuffer

catch

call s:ReportError(v:exception)

return -1

endtry

function! s:VCSCommit(bang, message)

try

let vcsType = VCSCommandGetVCSType(bufnr('%'))

if !has_key(s:plugins, vcsType)

throw 'Unknown VCS type: ' . vcsType

endif

let originalBuffer = VCSCommandGetOriginalBuffer(bufnr('%'))

if strlen(a:message) > 0 || a:bang == '!'

return s:VCSFinishCommit([a:message], originalBuffer)

endif

call s:EditFile('commitlog', originalBuffer, '')

setlocal ft=vcscommit

nnoremap <silent> <buffer> <Plug>VCSCommit :call <SID>VCSFinishCommitWithBuffer()<CR>

silent 0put ='VCS: ----------------------------------------------------------------------'

silent put ='VCS: Please enter log message. Lines beginning with ''VCS:'' are removed automatically.'

silent put ='VCS: To finish the commit, Type <leader>cc (or your own <Plug>VCSCommit mapping)'

if VCSCommandGetOption('VCSCommandCommitOnWrite', 1) == 1

setlocal buftype=acwrite

au VCSCommandCommit BufWriteCmd <buffer> call s:VCSFinishCommitWithBuffer()

silent put ='VCS: or write this buffer'

endif

silent put ='VCS: ----------------------------------------------------------------------'

$

setlocal nomodified

catch

call s:ReportError(v:exception)

return -1

endtry

function! s:VCSFinishCommitWithBuffer()

setlocal nomodified

let currentBuffer = bufnr('%')

let logMessageList = getbufline('%', 1, '$')

call filter(logMessageList, 'v:val !~ ''^\s*VCS:''')

let resultBuffer = s:VCSFinishCommit(logMessageList, b:VCSCommandOriginalBuffer)

if resultBuffer >= 0

execute 'bw' currentBuffer

endif

return resultBuffer

function! s:VCSFinishCommit(logMessageList, originalBuffer)

let shellSlashBak = &shellslash

try

set shellslash

let messageFileName = tempname()

call writefile(a:logMessageList, messageFileName)

try

let resultBuffer = s:ExecuteVCSCommand('Commit', [messageFileName])

if resultBuffer < 0

return resultBuffer

endif

return s:MarkOrigBufferForSetup(resultBuffer)

finally

call delete(messageFileName)

endtry

finally

let &shellslash = shellSlashBak

endtry

function! s:VCSGotoOriginal(bang)

let originalBuffer = VCSCommandGetOriginalBuffer(bufnr('%'))

if originalBuffer > 0

let origWinNR = bufwinnr(originalBuffer)

if origWinNR == -1

execute 'buffer' originalBuffer

else

execute origWinNR . 'wincmd w'

endif

if a:bang == '!'

let buffnr = 1

let buffmaxnr = bufnr('$')

while buffnr <= buffmaxnr

if getbufvar(buffnr, 'VCSCommandOriginalBuffer') == originalBuffer

execute 'bw' buffnr

endif

let buffnr = buffnr + 1

endwhile

endif

endif

function! s:VCSVimDiff(...)

try

let vcsType = VCSCommandGetVCSType(bufnr('%'))

if !has_key(s:plugins, vcsType)

throw 'Unknown VCS type: ' . vcsType

endif

let originalBuffer = VCSCommandGetOriginalBuffer(bufnr('%'))

let s:isEditFileRunning = s:isEditFileRunning + 1

try

if exists('s:vimDiffSourceBuffer') && s:vimDiffSourceBuffer != originalBuffer

call s:WipeoutCommandBuffers(s:vimDiffSourceBuffer, 'vimdiff')

endif

let orientation = &diffopt =~ 'horizontal' ? 'horizontal' : 'vertical'

let orientation = VCSCommandGetOption('VCSCommandSplit', orientation)

let orientation = VCSCommandGetOption('VCSCommandDiffSplit', orientation)

if(a:0 == 2)

if exists('s:vimDiffSourceBuffer')

call s:WipeoutCommandBuffers(s:vimDiffSourceBuffer, 'vimdiff')

endif

let resultBuffer = s:plugins[vcsType][1].Review([a:1])

if resultBuffer < 0

echomsg 'Can''t open revision ' . a:1

return resultBuffer

endif

let b:VCSCommandCommand = 'vimdiff'

diffthis

let s:vimDiffScratchList = [resultBuffer]

try

call s:OverrideOption('VCSCommandSplit', orientation)

let resultBuffer = s:plugins[vcsType][1].Review([a:2])

finally

call s:OverrideOption('VCSCommandSplit')

endtry

if resultBuffer < 0

echomsg 'Can''t open revision ' . a:1

return resultBuffer

endif

let b:VCSCommandCommand = 'vimdiff'

diffthis

let s:vimDiffScratchList += [resultBuffer]

else

call s:OverrideOption('VCSCommandEdit', 'split')

try

call s:OverrideOption('VCSCommandSplit', orientation)

try

if(a:0 == 0)

let resultBuffer = s:plugins[vcsType][1].Review([])

else

let resultBuffer = s:plugins[vcsType][1].Review([a:1])

endif

finally

call s:OverrideOption('VCSCommandSplit')

endtry

finally

call s:OverrideOption('VCSCommandEdit')

endtry

if resultBuffer < 0

echomsg 'Can''t open current revision'

return resultBuffer

endif

let b:VCSCommandCommand = 'vimdiff'

diffthis

if !exists('s:vimDiffSourceBuffer')

let s:vimDiffScratchList = [resultBuffer]

wincmd W

execute 'buffer' originalBuffer

let s:vimDiffRestoreCmd =

\ 'call setbufvar('.originalBuffer.', ''&diff'', '.getbufvar(originalBuffer, '&diff').')'

\ . '|call setbufvar('.originalBuffer.', ''&foldcolumn'', '.getbufvar(originalBuffer, '&foldcolumn').')'

\ . '|call setbufvar('.originalBuffer.', ''&foldenable'', '.getbufvar(originalBuffer, '&foldenable').')'

\ . '|call setbufvar('.originalBuffer.', ''&foldmethod'', '''.getbufvar(originalBuffer, '&foldmethod').''')'

\ . '|call setbufvar('.originalBuffer.', ''&foldlevel'', '''.getbufvar(originalBuffer, '&foldlevel').''')'

\ . '|call setbufvar('.originalBuffer.', ''&scrollbind'', '.getbufvar(originalBuffer, '&scrollbind').')'

\ . '|call setbufvar('.originalBuffer.', ''&wrap'', '.getbufvar(originalBuffer, '&wrap').')'

\ . '|if &foldmethod==''manual''|execute ''normal zE''|endif'

diffthis

wincmd w

else

let s:vimDiffScratchList += [resultBuffer]

endif

endif

let s:vimDiffSourceBuffer = originalBuffer

let currentBuffer = bufnr('%')

let saveModeline = getbufvar(currentBuffer, '&modeline')

try

call setbufvar(currentBuffer, '&modeline', 0)

silent do VCSCommand User VCSVimDiffFinish

finally

call setbufvar(currentBuffer, '&modeline', saveModeline)

endtry

return resultBuffer

finally

let s:isEditFileRunning = s:isEditFileRunning - 1

endtry

catch

call s:ReportError(v:exception)

return -1

endtry

function! VCSCommandGetVCSType(buffer)

let vcsType = getbufvar(a:buffer, 'VCSCommandVCSType')

if strlen(vcsType) > 0

return vcsType

endif

if exists("g:VCSCommandVCSTypeOverride")

let fullpath = fnamemodify(bufname(a:buffer), ':p')

for [path, vcsType] in g:VCSCommandVCSTypeOverride

if match(fullpath, path) > -1

call setbufvar(a:buffer, 'VCSCommandVCSType', vcsType)

return vcsType

endif

endfor

endif

let matches = []

for vcsType in keys(s:plugins)

let identified = s:plugins[vcsType][1].Identify(a:buffer)

if identified

if identified == g:VCSCOMMAND_IDENTIFY_EXACT

let matches = [vcsType]

break

else

let matches += [vcsType]

endif

endif

endfor

if len(matches) == 1

call setbufvar(a:buffer, 'VCSCommandVCSType', matches[0])

return matches[0]

elseif len(matches) == 0

throw 'No suitable plugin'

else

throw 'Too many matching VCS: ' . join(matches)

endif

function! VCSCommandChdir(directory)

let command = 'cd'

if exists("*haslocaldir") && haslocaldir()

let command = 'lcd'