NeoBundleをたまには git gc したかった

neobundle_git_gc.vim

function! s:neobundle_git_gc(names)
  let names = split(a:names)
  let bundles = empty(names) ?
    \ neobundle#config#get_neobundles() :
    \ neobundle#config#search(names)

  let cwd = getcwd()
  try
    for bundle in bundles
      if bundle.type != 'git'
        continue
      endif
      if isdirectory(bundle.path)
        lcd `=bundle.path`
      endif
      call system('git gc')
    endfor
  finally
    if isdirectory(cwd)
      lcd `=cwd`
    endif
  endtry
endfunction
command! -complete=customlist,neobundle#complete_bundles -nargs=?
  \ NeoBundleGitGc :call s:neobundle_git_gc(<q-args>)