vim-plug/plug.vim

1146 lines
32 KiB
VimL
Raw Normal View History

2013-09-10 07:58:41 -07:00
" vim-plug: Vim plugin manager
" ============================
"
" Download plug.vim and put it in ~/.vim/autoload
"
" mkdir -p ~/.vim/autoload
2013-09-10 20:06:57 -07:00
" curl -fLo ~/.vim/autoload/plug.vim \
2013-09-10 07:58:41 -07:00
" https://raw.github.com/junegunn/vim-plug/master/plug.vim
"
" Edit your .vimrc
"
2014-07-26 06:49:18 -07:00
" call plug#begin('~/.vim/plugged')
2013-09-10 07:58:41 -07:00
"
2014-07-26 06:49:18 -07:00
" " Make sure you use single quotes
2013-09-30 09:32:34 -07:00
" Plug 'junegunn/seoul256.vim'
" Plug 'junegunn/vim-easy-align'
2014-07-26 06:49:18 -07:00
"
" " On-demand loading
" Plug 'scrooloose/nerdtree', { 'on': 'NERDTreeToggle' }
" Plug 'tpope/vim-fireplace', { 'for': 'clojure' }
"
" " Using git URL
" Plug 'https://github.com/junegunn/vim-github-dashboard.git'
"
" " Plugin options
" Plug 'nsf/gocode', { 'tag': 'go.weekly.2012-03-13', 'rtp': 'vim' }
"
2014-07-30 04:00:21 -07:00
" " Plugin outside ~/.vim/plugged with post-update hook
" Plug 'junegunn/fzf', { 'dir': '~/.fzf', 'do': 'yes \| ./install' }
"
" " Unmanaged plugin (manually installed and updated)
" Plug '~/my-prototype-plugin'
2013-09-10 07:58:41 -07:00
"
2013-09-16 01:37:09 -07:00
" call plug#end()
"
2014-07-26 19:06:47 -07:00
" Then reload .vimrc and :PlugInstall to install plugins.
" Visit https://github.com/junegunn/vim-plug for more information.
2013-09-10 07:58:41 -07:00
"
"
" Copyright (c) 2014 Junegunn Choi
2013-09-10 07:58:41 -07:00
"
" MIT License
"
" Permission is hereby granted, free of charge, to any person obtaining
" a copy of this software and associated documentation files (the
" "Software"), to deal in the Software without restriction, including
" without limitation the rights to use, copy, modify, merge, publish,
" distribute, sublicense, and/or sell copies of the Software, and to
" permit persons to whom the Software is furnished to do so, subject to
" the following conditions:
"
" The above copyright notice and this permission notice shall be
" included in all copies or substantial portions of the Software.
"
" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
if exists('g:loaded_plug')
finish
endif
let g:loaded_plug = 1
let s:cpo_save = &cpo
set cpo&vim
2013-09-10 08:08:36 -07:00
let s:plug_source = 'https://raw.github.com/junegunn/vim-plug/master/plug.vim'
let s:plug_buf = -1
let s:mac_gui = has('gui_macvim') && has('gui_running')
2013-09-10 07:58:41 -07:00
let s:is_win = has('win32') || has('win64')
let s:me = expand('<sfile>:p')
let s:base_spec = { 'branch': 'master', 'frozen': 0, 'local': 0 }
let s:TYPE = {
\ 'string': type(''),
\ 'list': type([]),
\ 'dict': type({}),
\ 'funcref': type(function('call'))
\ }
2013-09-10 07:58:41 -07:00
2013-09-16 01:37:09 -07:00
function! plug#begin(...)
if a:0 > 0
let home = s:path(fnamemodify(a:1, ':p'))
elseif exists('g:plug_home')
let home = s:path(g:plug_home)
elseif !empty(&rtp)
let home = s:path(split(&rtp, ',')[0]) . '/plugged'
else
return s:err('Unable to determine plug home. Try calling plug#begin() with a path argument.')
endif
2013-09-10 07:58:41 -07:00
if !isdirectory(home)
try
call mkdir(home, 'p')
catch
return s:err('Invalid plug directory: '. home)
2013-09-10 07:58:41 -07:00
endtry
endif
if !executable('git')
return s:err('`git` executable not found. vim-plug requires git.')
2013-09-10 07:58:41 -07:00
endif
let g:plug_home = home
let g:plugs = {}
" we want to keep track of the order plugins where registered.
let g:plugs_order = []
2013-09-10 07:58:41 -07:00
command! -nargs=+ -bar Plug call s:add(<args>)
command! -nargs=* -complete=customlist,s:names PlugInstall call s:install(<f-args>)
command! -nargs=* -complete=customlist,s:names PlugUpdate call s:update(<f-args>)
command! -nargs=0 -bang PlugClean call s:clean('<bang>' == '!')
command! -nargs=0 PlugUpgrade if s:upgrade() | call s:upgrade_specs() | execute 'source '. s:me | endif
command! -nargs=0 PlugStatus call s:status()
2014-04-08 05:43:49 -07:00
command! -nargs=0 PlugDiff call s:diff()
return 1
2013-09-10 07:58:41 -07:00
endfunction
2014-06-16 19:59:42 -07:00
function! s:to_a(v)
return type(a:v) == s:TYPE.list ? a:v : [a:v]
2014-06-16 19:59:42 -07:00
endfunction
2013-09-16 01:37:09 -07:00
function! plug#end()
if !exists('g:plugs')
return s:err('Call plug#begin() first')
endif
2014-06-16 19:59:42 -07:00
if exists('#PlugLOD')
augroup PlugLOD
autocmd!
augroup END
augroup! PlugLOD
endif
2014-06-21 21:09:18 -07:00
let lod = {}
2014-06-16 19:59:42 -07:00
2013-09-16 01:37:09 -07:00
filetype off
" we want to make sure the plugin directories are added to rtp in the same
" order that they are registered with the Plug command. since the s:add_rtp
" function uses ^= to add plugin directories to the front of the rtp, we
" need to loop through the plugins in reverse
for name in reverse(copy(g:plugs_order))
let plug = g:plugs[name]
2014-06-16 19:59:42 -07:00
if !has_key(plug, 'on') && !has_key(plug, 'for')
call s:add_rtp(s:rtp(plug))
continue
endif
2014-02-11 08:45:23 -07:00
if has_key(plug, 'on')
2014-06-16 19:59:42 -07:00
let commands = s:to_a(plug.on)
2014-02-11 08:45:23 -07:00
for cmd in commands
if cmd =~ '^<Plug>.\+'
if empty(mapcheck(cmd)) && empty(mapcheck(cmd, 'i'))
for [mode, map_prefix, key_prefix] in
\ [['i', '<C-O>', ''], ['n', '', ''], ['v', '', 'gv'], ['o', '', '']]
execute printf(
\ '%snoremap <silent> %s %s:<C-U>call <SID>lod_map(%s, %s, "%s")<CR>',
\ mode, cmd, map_prefix, string(cmd), string(name), key_prefix)
endfor
endif
elseif !exists(':'.cmd)
execute printf(
\ 'command! -nargs=* -range -bang %s call s:lod_cmd(%s, "<bang>", <line1>, <line2>, <q-args>, %s)',
\ cmd, string(cmd), string(name))
2014-02-11 08:45:23 -07:00
endif
endfor
2014-06-16 19:59:42 -07:00
endif
if has_key(plug, 'for')
for vim in split(globpath(s:rtp(plug), 'ftdetect/**/*.vim'), '\n')
execute 'source '.vim
endfor
2014-06-21 21:09:18 -07:00
for key in s:to_a(plug.for)
if !has_key(lod, key)
let lod[key] = []
endif
call add(lod[key], name)
endfor
2013-09-16 01:37:09 -07:00
endif
endfor
2014-06-21 21:09:18 -07:00
for [key, names] in items(lod)
augroup PlugLOD
execute printf('autocmd FileType %s call <SID>lod_ft(%s, %s)',
\ key, string(key), string(reverse(names)))
augroup END
endfor
2014-07-16 04:26:42 -07:00
call s:reorg_rtp()
2013-09-16 01:37:09 -07:00
filetype plugin indent on
syntax on
endfunction
function! s:trim(str)
return substitute(a:str, '[\/]\+$', '', '')
endfunction
2014-07-09 08:44:09 -07:00
if s:is_win
function! s:rtp(spec)
return s:path(a:spec.dir . get(a:spec, 'rtp', ''))
2014-07-09 08:44:09 -07:00
endfunction
function! s:path(path)
return s:trim(substitute(a:path, '/', '\', 'g'))
2014-07-09 08:44:09 -07:00
endfunction
function! s:dirpath(path)
return s:path(a:path) . '\'
endfunction
function! s:is_local_plug(repo)
return a:repo =~? '^[a-z]:'
endfunction
2014-07-09 08:44:09 -07:00
else
function! s:rtp(spec)
return s:dirpath(a:spec.dir . get(a:spec, 'rtp', ''))
endfunction
function! s:path(path)
return s:trim(a:path)
2014-07-09 08:44:09 -07:00
endfunction
function! s:dirpath(path)
2014-07-29 05:21:11 -07:00
return substitute(a:path, '[/\\]*$', '/', '')
2014-07-09 08:44:09 -07:00
endfunction
function! s:is_local_plug(repo)
return a:repo[0] =~ '[/$~]'
endfunction
2014-07-09 08:44:09 -07:00
endif
2013-09-25 06:35:34 -07:00
function! s:err(msg)
echohl ErrorMsg
echom a:msg
echohl None
return 0
endfunction
function! s:esc(path)
return substitute(a:path, ' ', '\\ ', 'g')
endfunction
2014-02-11 08:45:23 -07:00
function! s:add_rtp(rtp)
execute 'set rtp^='.s:esc(a:rtp)
let after = globpath(a:rtp, 'after')
if isdirectory(after)
execute 'set rtp+='.s:esc(after)
2014-02-11 08:45:23 -07:00
endif
endfunction
2014-07-16 04:26:42 -07:00
function! s:reorg_rtp()
if !empty(s:first_rtp)
execute 'set rtp-='.s:first_rtp
execute 'set rtp^='.s:first_rtp
endif
if s:last_rtp !=# s:first_rtp
execute 'set rtp-='.s:last_rtp
execute 'set rtp+='.s:last_rtp
endif
endfunction
2014-06-16 19:59:42 -07:00
function! s:lod(plug, types)
2014-02-11 08:45:23 -07:00
let rtp = s:rtp(a:plug)
call s:add_rtp(rtp)
2014-06-16 19:59:42 -07:00
for dir in a:types
for vim in split(globpath(rtp, dir.'/**/*.vim'), '\n')
2014-02-11 08:45:23 -07:00
execute 'source '.vim
endfor
endfor
endfunction
2014-06-21 21:09:18 -07:00
function! s:lod_ft(pat, names)
for name in a:names
call s:lod(g:plugs[name], ['plugin', 'after'])
endfor
2014-07-16 04:26:42 -07:00
call s:reorg_rtp()
2014-06-21 21:09:18 -07:00
execute 'autocmd! PlugLOD FileType ' . a:pat
silent! doautocmd filetypeplugin FileType
2014-06-16 19:59:42 -07:00
endfunction
function! s:lod_cmd(cmd, bang, l1, l2, args, name)
execute 'delc '.a:cmd
call s:lod(g:plugs[a:name], ['plugin', 'ftdetect', 'after'])
2014-07-16 04:26:42 -07:00
call s:reorg_rtp()
execute printf('%s%s%s %s', (a:l1 == a:l2 ? '' : (a:l1.','.a:l2)), a:cmd, a:bang, a:args)
2014-02-11 08:45:23 -07:00
endfunction
function! s:lod_map(map, name, prefix)
execute 'unmap '.a:map
execute 'iunmap '.a:map
call s:lod(g:plugs[a:name], ['plugin', 'ftdetect', 'after'])
2014-07-16 04:26:42 -07:00
call s:reorg_rtp()
let extra = ''
while 1
let c = getchar(0)
if c == 0
break
endif
let extra .= nr2char(c)
endwhile
call feedkeys(a:prefix . substitute(a:map, '^<Plug>', "\<Plug>", '') . extra)
endfunction
function! s:add(repo, ...)
2014-07-27 05:31:28 -07:00
if a:0 > 1
return s:err('Invalid number of arguments (1..2)')
2014-07-27 05:31:28 -07:00
endif
try
let repo = s:trim(a:repo)
let name = fnamemodify(repo, ':t:s?\.git$??')
let spec = extend(s:infer_properties(name, repo),
\ a:0 == 1 ? s:parse_options(a:1) : copy(s:base_spec))
2014-07-27 05:31:28 -07:00
let g:plugs[name] = spec
let g:plugs_order += [name]
catch
return s:err(v:exception)
2014-07-27 05:31:28 -07:00
endtry
endfunction
function! s:parse_options(arg)
let opts = copy(s:base_spec)
let type = type(a:arg)
if type == s:TYPE.string
let opts.branch = a:arg
elseif type == s:TYPE.dict
call extend(opts, a:arg)
if has_key(opts, 'tag')
let opts.branch = remove(opts, 'tag')
endif
if has_key(opts, 'dir')
let opts.dir = s:dirpath(expand(opts.dir))
endif
else
throw 'Invalid argument type (expected: string or dictionary)'
endif
2014-07-27 05:31:28 -07:00
return opts
endfunction
2014-07-09 08:44:09 -07:00
function! s:infer_properties(name, repo)
let repo = a:repo
2014-07-27 05:31:28 -07:00
if s:is_local_plug(repo)
let properties = { 'dir': s:dirpath(expand(repo)), 'local': 1 }
2013-09-16 20:35:10 -07:00
else
2014-07-27 05:31:28 -07:00
if repo =~ ':'
let uri = repo
else
2014-07-27 05:31:28 -07:00
if repo !~ '/'
let repo = 'vim-scripts/'. repo
endif
2014-07-27 05:31:28 -07:00
let uri = 'https://git:@github.com/' . repo . '.git'
2013-09-16 20:35:10 -07:00
endif
let dir = s:dirpath( fnamemodify(join([g:plug_home, a:name], '/'), ':p') )
2014-07-27 05:31:28 -07:00
let properties = { 'dir': dir, 'uri': uri }
2013-09-10 07:58:41 -07:00
endif
return properties
2014-07-27 05:31:28 -07:00
endfunction
2013-09-10 07:58:41 -07:00
function! s:install(...)
call s:update_impl(0, a:000)
endfunction
function! s:update(...)
call s:update_impl(1, a:000)
endfunction
function! s:apply()
for spec in values(g:plugs)
2013-09-10 07:58:41 -07:00
let docd = join([spec.dir, 'doc'], '/')
if isdirectory(docd)
silent! execute 'helptags '. join([spec.dir, 'doc'], '/')
2013-09-10 07:58:41 -07:00
endif
endfor
runtime! plugin/*.vim
runtime! after/**/*.vim
2013-09-10 20:29:36 -07:00
silent! source $MYVIMRC
2013-09-10 07:58:41 -07:00
endfunction
function! s:syntax()
syntax clear
2014-04-08 08:53:37 -07:00
syntax region plug1 start=/\%1l/ end=/\%2l/ contains=plugNumber
syntax region plug2 start=/\%2l/ end=/\%3l/ contains=plugBracket,plugX
syn match plugNumber /[0-9]\+[0-9.]*/ contained
syn match plugBracket /[[\]]/ contained
syn match plugX /x/ contained
2013-09-10 07:58:41 -07:00
syn match plugDash /^-/
syn match plugPlus /^+/
syn match plugStar /^*/
2014-07-26 06:49:18 -07:00
syn match plugMessage /\(^- \)\@<=.*/
syn match plugName /\(^- \)\@<=[^ ]*:/
syn match plugInstall /\(^+ \)\@<=[^:]*/
syn match plugUpdate /\(^* \)\@<=[^:]*/
2014-04-08 08:53:37 -07:00
syn match plugCommit /^ [0-9a-z]\{7} .*/ contains=plugRelDate,plugSha
syn match plugSha /\(^ \)\@<=[0-9a-z]\{7}/ contained
2014-04-08 08:53:37 -07:00
syn match plugRelDate /([^)]*)$/ contained
syn match plugError /^x.*/
2014-01-05 21:04:38 -07:00
syn keyword Function PlugInstall PlugStatus PlugUpdate PlugClean
2013-09-10 07:58:41 -07:00
hi def link plug1 Title
hi def link plug2 Repeat
2013-12-04 07:41:53 -07:00
hi def link plugX Exception
2013-09-10 07:58:41 -07:00
hi def link plugBracket Structure
hi def link plugNumber Number
2013-09-10 07:58:41 -07:00
hi def link plugDash Special
hi def link plugPlus Constant
hi def link plugStar Boolean
2014-07-26 06:49:18 -07:00
hi def link plugMessage Function
2013-09-10 07:58:41 -07:00
hi def link plugName Label
hi def link plugInstall Function
hi def link plugUpdate Type
hi def link plugError Error
2014-04-08 05:43:49 -07:00
hi def link plugRelDate Comment
hi def link plugSha Identifier
2013-09-10 07:58:41 -07:00
endfunction
function! s:lpad(str, len)
return a:str . repeat(' ', a:len - len(a:str))
endfunction
2014-01-05 21:04:38 -07:00
function! s:lastline(msg)
let lines = split(a:msg, '\n')
2013-09-16 20:35:10 -07:00
return get(lines, -1, '')
2013-09-10 07:58:41 -07:00
endfunction
function! s:prepare()
if bufexists(s:plug_buf)
let winnr = bufwinnr(s:plug_buf)
if winnr < 0
vertical topleft new
execute 'buffer ' . s:plug_buf
else
execute winnr . 'wincmd w'
endif
silent %d _
2013-09-10 07:58:41 -07:00
else
vertical topleft new
nnoremap <silent> <buffer> q :if b:plug_preview==1<bar>pc<bar>endif<bar>q<cr>
nnoremap <silent> <buffer> R :silent! call <SID>retry()<cr>
nnoremap <silent> <buffer> D :PlugDiff<cr>
nnoremap <silent> <buffer> S :PlugStatus<cr>
nnoremap <silent> <buffer> ]] :silent! call <SID>section('')<cr>
nnoremap <silent> <buffer> [[ :silent! call <SID>section('b')<cr>
let b:plug_preview = -1
let s:plug_buf = winbufnr(0)
2013-09-10 07:58:41 -07:00
call s:assign_name()
endif
silent! unmap <buffer> <cr>
2013-09-10 07:58:41 -07:00
setlocal buftype=nofile bufhidden=wipe nobuflisted noswapfile nowrap cursorline
setf vim-plug
call s:syntax()
endfunction
function! s:assign_name()
" Assign buffer name
let prefix = '[Plugins]'
let name = prefix
let idx = 2
while bufexists(name)
let name = printf('%s (%s)', prefix, idx)
2013-09-10 07:58:41 -07:00
let idx = idx + 1
endwhile
silent! execute 'f '.fnameescape(name)
2013-09-10 07:58:41 -07:00
endfunction
2014-07-26 06:49:18 -07:00
function! s:do(pull, todo)
for [name, spec] in items(a:todo)
if !isdirectory(spec.dir)
continue
endif
2014-07-26 06:49:18 -07:00
execute 'cd '.s:esc(spec.dir)
let installed = has_key(s:prev_update.new, name)
if installed || (a:pull &&
2014-07-26 06:49:18 -07:00
\ !empty(s:system_chomp('git log --pretty=format:"%h" "HEAD...HEAD@{1}"')))
call append(3, '- Post-update hook for '. name .' ... ')
let type = type(spec.do)
if type == s:TYPE.string
try
" FIXME: Escaping is incomplete. We could use shellescape with eval,
" but it won't work on Windows.
let g:_plug_do = '!'.escape(spec.do, '#!%')
2014-07-26 11:16:44 -07:00
execute "normal! :execute g:_plug_do\<cr>\<cr>"
finally
let result = v:shell_error ? ('Exit status: '.v:shell_error) : 'Done!'
unlet g:_plug_do
endtry
elseif type == s:TYPE.funcref
2014-07-26 06:49:18 -07:00
try
call spec.do({ 'name': name, 'status': (installed ? 'installed' : 'updated') })
2014-07-26 06:49:18 -07:00
let result = 'Done!'
catch
let result = 'Error: ' . v:exception
endtry
else
let result = 'Error: Invalid type!'
endif
call setline(4, getline(4) . result)
endif
cd -
endfor
endfunction
function! s:finish(pull)
2013-12-04 07:41:53 -07:00
call append(3, '- Finishing ... ')
2013-09-10 07:58:41 -07:00
redraw
call s:apply()
call s:syntax()
2013-12-04 07:41:53 -07:00
call setline(4, getline(4) . 'Done!')
normal! gg
redraw
let msgs = []
if !empty(s:prev_update.errors)
call add(msgs, "Press 'R' to retry.")
endif
if a:pull
call add(msgs, "Press 'D' to see the updated changes.")
endif
echo join(msgs, ' ')
endfunction
function! s:retry()
if empty(s:prev_update.errors)
return
endif
call s:update_impl(s:prev_update.pull,
\ extend(copy(s:prev_update.errors), [s:prev_update.threads]))
2013-09-10 07:58:41 -07:00
endfunction
function! s:is_managed(name)
return has_key(g:plugs[a:name], 'uri')
endfunction
function! s:names(...)
return filter(keys(g:plugs), 'stridx(v:val, a:1) == 0 && s:is_managed(v:val)')
endfunction
function! s:update_impl(pull, args) abort
let st = reltime()
let args = copy(a:args)
let threads = (len(args) > 0 && args[-1] =~ '^[1-9][0-9]*$') ?
\ remove(args, -1) : get(g:, 'plug_threads', 16)
let managed = filter(copy(g:plugs), 's:is_managed(v:key)')
let todo = empty(args) ? filter(managed, '!v:val.frozen') :
\ filter(managed, 'index(args, v:key) >= 0')
if empty(todo)
echohl WarningMsg
echo 'No plugin to '. (a:pull ? 'update' : 'install') . '.'
echohl None
return
endif
2013-09-10 07:58:41 -07:00
call s:prepare()
2013-09-23 20:47:47 -07:00
call append(0, a:pull ? 'Updating plugins' : 'Installing plugins')
call append(1, '['. s:lpad('', len(todo)) .']')
2013-09-10 07:58:41 -07:00
normal! 2G
redraw
2014-07-26 06:49:18 -07:00
if !isdirectory(g:plug_home)
call mkdir(g:plug_home, 'p')
endif
let len = len(g:plugs)
2014-07-26 06:49:18 -07:00
let s:prev_update = { 'errors': [], 'pull': a:pull, 'new': {}, 'threads': threads }
if has('ruby') && threads > 1
try
let imd = &imd
if s:mac_gui
set noimd
endif
call s:update_parallel(a:pull, todo, threads)
catch
let lines = getline(4, '$')
let printed = {}
silent 4,$d
for line in lines
let name = get(matchlist(line, '^. \([^:]\+\):'), 1, '')
if empty(name) || !has_key(printed, name)
call append('$', line)
2014-07-22 19:46:29 -07:00
if !empty(name)
let printed[name] = 1
if line[0] == 'x' && index(s:prev_update.errors, name) < 0
call add(s:prev_update.errors, name)
end
endif
endif
endfor
finally
let &imd = imd
endtry
2013-09-10 07:58:41 -07:00
else
call s:update_serial(a:pull, todo)
2013-09-10 07:58:41 -07:00
endif
2014-07-26 06:49:18 -07:00
call s:do(a:pull, filter(copy(todo), 'has_key(v:val, "do")'))
if len(g:plugs) > len
call plug#end()
endif
call s:finish(a:pull)
call setline(1, 'Updated. Elapsed time: ' . split(reltimestr(reltime(st)))[0] . ' sec.')
2013-09-10 07:58:41 -07:00
endfunction
2013-12-04 07:41:53 -07:00
function! s:update_progress(pull, cnt, bar, total)
call setline(1, (a:pull ? 'Updating' : 'Installing').
\ ' plugins ('.a:cnt.'/'.a:total.')')
2013-12-04 07:41:53 -07:00
call s:progress_bar(2, a:bar, a:total)
normal! 2G
redraw
endfunction
function! s:update_serial(pull, todo)
let base = g:plug_home
let todo = copy(a:todo)
let total = len(todo)
let done = {}
2013-12-04 07:41:53 -07:00
let bar = ''
for [name, spec] in items(todo)
let done[name] = 1
if isdirectory(spec.dir)
execute 'cd '.s:esc(spec.dir)
let [valid, msg] = s:git_valid(spec, 0, 0)
if valid
let result = a:pull ?
\ s:system(
\ printf('git checkout -q %s 2>&1 && git pull origin %s 2>&1 && git submodule update --init --recursive 2>&1',
\ s:shellesc(spec.branch), s:shellesc(spec.branch))) : 'Already installed'
let error = a:pull ? v:shell_error != 0 : 0
2013-09-16 20:35:10 -07:00
else
let result = msg
let error = 1
2013-09-16 20:35:10 -07:00
endif
cd -
else
let result = s:system(
\ printf('git clone --recursive %s -b %s %s 2>&1 && cd %s && git submodule update --init --recursive 2>&1',
\ s:shellesc(spec.uri),
\ s:shellesc(spec.branch),
\ s:shellesc(s:trim(spec.dir)),
\ s:shellesc(spec.dir)))
let error = v:shell_error != 0
if !error | let s:prev_update.new[name] = 1 | endif
2013-09-10 07:58:41 -07:00
endif
let bar .= error ? 'x' : '='
if error
call add(s:prev_update.errors, name)
endif
call append(3, s:format_message(!error, name, result))
call s:update_progress(a:pull, len(done), bar, total)
endfor
2013-09-10 07:58:41 -07:00
endfunction
function! s:update_parallel(pull, todo, threads)
2013-09-10 07:58:41 -07:00
ruby << EOF
module PlugStream
SEP = ["\r", "\n", nil]
def get_line
buffer = ''
loop do
char = readchar rescue return
if SEP.include? char.chr
buffer << $/
break
else
buffer << char
end
end
buffer
end
end unless defined?(PlugStream)
def esc arg
%["#{arg.gsub('"', '\"')}"]
end
2013-09-10 22:05:38 -07:00
require 'thread'
2013-09-10 07:58:41 -07:00
require 'fileutils'
require 'timeout'
running = true
iswin = VIM::evaluate('s:is_win').to_i == 1
2013-09-10 07:58:41 -07:00
pull = VIM::evaluate('a:pull').to_i == 1
base = VIM::evaluate('g:plug_home')
all = VIM::evaluate('copy(a:todo)')
limit = VIM::evaluate('get(g:, "plug_timeout", 60)')
tries = VIM::evaluate('get(g:, "plug_retries", 2)') + 1
nthr = VIM::evaluate('a:threads').to_i
maxy = VIM::evaluate('winheight(".")').to_i
cd = iswin ? 'cd /d' : 'cd'
tot = VIM::evaluate('len(a:todo)') || 0
2013-12-04 07:41:53 -07:00
bar = ''
2013-09-10 07:58:41 -07:00
skip = 'Already installed'
2013-09-10 20:06:57 -07:00
mtx = Mutex.new
take1 = proc { mtx.synchronize { running && all.shift } }
logh = proc {
cnt = bar.length
$curbuf[1] = "#{pull ? 'Updating' : 'Installing'} plugins (#{cnt}/#{tot})"
2013-12-04 07:41:53 -07:00
$curbuf[2] = '[' + bar.ljust(tot) + ']'
VIM::command('normal! 2G')
VIM::command('redraw') unless iswin
}
where = proc { |name| (1..($curbuf.length)).find { |l| $curbuf[l] =~ /^[-+x*] #{name}:/ } }
log = proc { |name, result, type|
mtx.synchronize do
ing = ![true, false].include?(type)
bar += type ? '=' : 'x' unless ing
b = case type
when :install then '+' when :update then '*'
when true, nil then '-' else
VIM::command("call add(s:prev_update.errors, '#{name}')")
'x'
end
2014-01-05 21:04:38 -07:00
result =
if type || type.nil?
["#{b} #{name}: #{result.lines.to_a.last}"]
2014-01-05 21:04:38 -07:00
elsif result =~ /^Interrupted|^Timeout/
["#{b} #{name}: #{result}"]
2014-01-05 21:04:38 -07:00
else
["#{b} #{name}"] + result.lines.map { |l| " " << l }
2014-01-05 21:04:38 -07:00
end
if lnum = where.call(name)
$curbuf.delete lnum
lnum = 4 if ing && lnum > maxy
end
2014-01-05 21:04:38 -07:00
result.each_with_index do |line, offset|
$curbuf.append((lnum || 4) - 1 + offset, line.gsub(/\e\[./, '').chomp)
2014-01-05 21:04:38 -07:00
end
logh.call
end
}
bt = proc { |cmd, name, type|
tried = timeout = 0
begin
tried += 1
timeout += limit
fd = nil
data = ''
if iswin
Timeout::timeout(timeout) do
tmp = VIM::evaluate('tempname()')
system("#{cmd} > #{tmp}")
data = File.read(tmp).chomp
File.unlink tmp rescue nil
end
else
fd = IO.popen(cmd).extend(PlugStream)
first_line = true
log_prob = 1.0 / nthr
while line = Timeout::timeout(timeout) { fd.get_line }
data << line
log.call name, line.chomp, type if name && (first_line || rand < log_prob)
first_line = false
end
fd.close
end
[$? == 0, data.chomp]
rescue Timeout::Error, Interrupt => e
if fd && !fd.closed?
pids = [fd.pid]
unless `which pgrep`.empty?
children = pids
2013-09-28 04:32:25 -07:00
until children.empty?
children = children.map { |pid|
`pgrep -P #{pid}`.lines.map { |l| l.chomp }
}.flatten
pids += children
end
end
pids.each { |pid| Process.kill 'TERM', pid.to_i rescue nil }
fd.close
end
2014-07-21 07:09:16 -07:00
if e.is_a?(Timeout::Error) && tried < tries
3.downto(1) do |countdown|
s = countdown > 1 ? 's' : ''
log.call name, "Timeout. Will retry in #{countdown} second#{s} ...", type
sleep 1
end
log.call name, 'Retrying ...', type
retry
end
[false, e.is_a?(Interrupt) ? "Interrupted!" : "Timeout!"]
end
}
main = Thread.current
threads = []
watcher = Thread.new {
while VIM::evaluate('getchar(1)')
sleep 0.1
end
mtx.synchronize do
running = false
threads.each { |t| t.raise Interrupt }
end
threads.each { |t| t.join rescue nil }
main.kill
}
refresh = Thread.new {
while true
mtx.synchronize do
break unless running
VIM::command('noautocmd normal! a')
end
sleep 0.2
end
} if VIM::evaluate('s:mac_gui') == 1
progress = iswin ? '' : '--progress'
[all.length, nthr].min.times do
mtx.synchronize do
threads << Thread.new {
while pair = take1.call
name = pair.first
dir, uri, branch = pair.last.values_at *%w[dir uri branch]
branch = esc branch
subm = "git submodule update --init --recursive 2>&1"
exists = File.directory? dir
ok, result =
if exists
dir = esc dir
ret, data = bt.call "#{cd} #{dir} && git rev-parse --abbrev-ref HEAD 2>&1 && git config remote.origin.url", nil, nil
current_uri = data.lines.to_a.last
if !ret
if data =~ /^Interrupted|^Timeout/
[false, data]
2014-01-05 21:04:38 -07:00
else
[false, [data.chomp, "PlugClean required."].join($/)]
end
elsif current_uri.sub(/git:@/, '') != uri.sub(/git:@/, '')
[false, ["Invalid URI: #{current_uri}",
"Expected: #{uri}",
"PlugClean required."].join($/)]
2013-09-16 20:35:10 -07:00
else
if pull
log.call name, 'Updating ...', :update
bt.call "#{cd} #{dir} && git checkout -q #{branch} 2>&1 && (git pull origin #{branch} #{progress} 2>&1 && #{subm})", name, :update
else
[true, skip]
end
2013-09-16 20:35:10 -07:00
end
else
d = esc dir.sub(%r{[\\/]+$}, '')
log.call name, 'Installing ...', :install
bt.call "(git clone #{progress} --recursive #{uri} -b #{branch} #{d} 2>&1 && cd #{esc dir} && #{subm})", name, :install
end
mtx.synchronize { VIM::command("let s:prev_update.new['#{name}'] = 1") } if !exists && ok
log.call name, result, ok
end
} if running
end
end
threads.each { |t| t.join rescue nil }
logh.call
refresh.kill if refresh
watcher.kill
2013-09-10 07:58:41 -07:00
EOF
endfunction
function! s:shellesc(arg)
return '"'.substitute(a:arg, '"', '\\"', 'g').'"'
endfunction
2013-09-10 07:58:41 -07:00
function! s:glob_dir(path)
2013-09-25 23:08:52 -07:00
return map(filter(split(globpath(a:path, '**'), '\n'), 'isdirectory(v:val)'), 's:dirpath(v:val)')
2013-09-10 07:58:41 -07:00
endfunction
2013-12-04 07:41:53 -07:00
function! s:progress_bar(line, bar, total)
call setline(a:line, '[' . s:lpad(a:bar, a:total) . ']')
2013-09-17 06:57:13 -07:00
endfunction
function! s:compare_git_uri(a, b)
let a = substitute(a:a, 'git:@', '', '')
let b = substitute(a:b, 'git:@', '', '')
return a ==# b
endfunction
2014-01-05 21:04:38 -07:00
function! s:format_message(ok, name, message)
if a:ok
return [printf('- %s: %s', a:name, s:lastline(a:message))]
else
let lines = map(split(a:message, '\n'), '" ".v:val')
return extend([printf('x %s:', a:name)], lines)
endif
endfunction
2014-03-18 08:43:37 -07:00
function! s:system(cmd)
return system(s:is_win ? '('.a:cmd.')' : a:cmd)
endfunction
function! s:system_chomp(str)
let ret = s:system(a:str)
return v:shell_error ? '' : substitute(ret, '\n$', '', '')
endfunction
2014-01-05 21:04:38 -07:00
function! s:git_valid(spec, check_branch, cd)
let ret = 1
let msg = 'OK'
2013-09-17 06:57:13 -07:00
if isdirectory(a:spec.dir)
if a:cd | execute 'cd ' . s:esc(a:spec.dir) | endif
let result = split(s:system('git rev-parse --abbrev-ref HEAD 2>&1 && git config remote.origin.url'), '\n')
2014-01-05 21:04:38 -07:00
let remote = result[-1]
if v:shell_error
let msg = join([remote, 'PlugClean required.'], "\n")
let ret = 0
2014-01-05 21:04:38 -07:00
elseif !s:compare_git_uri(remote, a:spec.uri)
let msg = join(['Invalid URI: '.remote,
\ 'Expected: '.a:spec.uri,
\ 'PlugClean required.'], "\n")
2014-01-05 21:04:38 -07:00
let ret = 0
elseif a:check_branch
let branch = result[0]
if a:spec.branch !=# branch
let tag = s:system_chomp('git describe --exact-match --tags HEAD 2>&1')
if a:spec.branch !=# tag
let msg = printf('Invalid branch/tag: %s (expected: %s). Try PlugUpdate.',
\ (empty(tag) ? branch : tag), a:spec.branch)
let ret = 0
endif
endif
endif
2013-09-17 06:57:13 -07:00
if a:cd | cd - | endif
else
let msg = 'Not found'
2013-09-17 06:57:13 -07:00
let ret = 0
endif
return [ret, msg]
2013-09-16 20:35:10 -07:00
endfunction
2013-09-17 06:57:13 -07:00
function! s:clean(force)
2013-09-10 07:58:41 -07:00
call s:prepare()
2013-09-17 20:19:19 -07:00
call append(0, 'Searching for unused plugins in '.g:plug_home)
2013-09-17 06:57:13 -07:00
call append(1, '')
2013-09-10 07:58:41 -07:00
2013-09-16 20:35:10 -07:00
" List of valid directories
2013-09-17 06:57:13 -07:00
let dirs = []
let managed = filter(copy(g:plugs), 's:is_managed(v:key)')
let [cnt, total] = [0, len(managed)]
for spec in values(managed)
2014-01-05 21:04:38 -07:00
if s:git_valid(spec, 0, 1)[0]
2013-09-17 06:57:13 -07:00
call add(dirs, spec.dir)
endif
let cnt += 1
2013-12-04 07:41:53 -07:00
call s:progress_bar(2, repeat('=', cnt), total)
normal! 2G
2013-09-17 06:57:13 -07:00
redraw
endfor
2013-09-16 20:35:10 -07:00
2013-09-10 07:58:41 -07:00
let allowed = {}
2013-09-25 23:08:52 -07:00
for dir in dirs
2013-09-10 07:58:41 -07:00
let allowed[dir] = 1
2013-09-25 23:08:52 -07:00
for child in s:glob_dir(dir)
let allowed[child] = 1
endfor
2013-09-10 07:58:41 -07:00
endfor
let todo = []
let found = sort(s:glob_dir(g:plug_home))
while !empty(found)
let f = remove(found, 0)
if !has_key(allowed, f) && isdirectory(f)
call add(todo, f)
call append(line('$'), '- ' . f)
let found = filter(found, 'stridx(v:val, f) != 0')
end
endwhile
normal! G
redraw
if empty(todo)
call append(line('$'), 'Already clean.')
else
call inputsave()
let yes = a:force || (input('Proceed? (Y/N) ') =~? '^y')
2013-09-10 07:58:41 -07:00
call inputrestore()
2013-09-17 20:23:43 -07:00
if yes
2013-09-10 07:58:41 -07:00
for dir in todo
if isdirectory(dir)
call system((s:is_win ? 'rmdir /S /Q ' : 'rm -rf ') . s:shellesc(dir))
2013-09-10 07:58:41 -07:00
endif
endfor
call append(line('$'), 'Removed.')
else
call append(line('$'), 'Cancelled.')
endif
endif
normal! G
endfunction
function! s:upgrade()
if executable('curl')
let mee = s:shellesc(s:me)
let new = s:shellesc(s:me . '.new')
echo 'Downloading '. s:plug_source
2013-09-10 07:58:41 -07:00
redraw
let mv = s:is_win ? 'move /Y' : 'mv -f'
2013-09-28 20:31:39 -07:00
let cp = s:is_win ? 'copy /Y' : 'cp -f'
2013-09-10 07:58:41 -07:00
call system(printf(
\ 'curl -fLo %s %s && '.cp.' %s %s.old && '.mv.' %s %s',
2013-09-10 07:58:41 -07:00
\ new, s:plug_source, mee, mee, new, mee))
if v:shell_error == 0
unlet g:loaded_plug
echo 'Downloaded '. s:plug_source
return 1
2013-09-10 07:58:41 -07:00
else
return s:err('Error upgrading vim-plug')
2013-09-10 07:58:41 -07:00
endif
2013-09-28 20:31:39 -07:00
elseif has('ruby')
echo 'Downloading '. s:plug_source
2013-09-28 20:31:39 -07:00
ruby << EOF
require 'open-uri'
require 'fileutils'
me = VIM::evaluate('s:me')
old = me + '.old'
new = me + '.new'
File.open(new, 'w') do |f|
f << open(VIM::evaluate('s:plug_source')).read
end
FileUtils.cp me, old
File.rename new, me
EOF
unlet g:loaded_plug
echo 'Downloaded '. s:plug_source
2013-09-28 20:31:39 -07:00
return 1
2013-09-10 07:58:41 -07:00
else
return s:err('curl executable or ruby support not found')
2013-09-10 07:58:41 -07:00
endif
endfunction
function! s:upgrade_specs()
for spec in values(g:plugs)
let spec.frozen = get(spec, 'frozen', 0)
let spec.local = get(spec, 'local', 0)
endfor
endfunction
2013-09-23 01:33:36 -07:00
function! s:status()
call s:prepare()
call append(0, 'Checking plugins')
call append(1, '')
2013-09-23 01:33:36 -07:00
let ecnt = 0
let [cnt, total] = [0, len(g:plugs)]
2013-09-23 01:33:36 -07:00
for [name, spec] in items(g:plugs)
if has_key(spec, 'uri')
if isdirectory(spec.dir)
let [valid, msg] = s:git_valid(spec, 1, 1)
else
let [valid, msg] = [0, 'Not found. Try PlugInstall.']
endif
2013-09-23 01:33:36 -07:00
else
if isdirectory(spec.dir)
let [valid, msg] = [1, 'OK']
else
let [valid, msg] = [0, 'Not found.']
endif
2013-09-23 01:33:36 -07:00
endif
let cnt += 1
let ecnt += !valid
call s:progress_bar(2, repeat('=', cnt), total)
call append(3, s:format_message(valid, name, msg))
normal! 2G
2013-09-23 01:33:36 -07:00
redraw
endfor
call setline(1, 'Finished. '.ecnt.' error(s).')
normal! gg
2013-09-23 01:33:36 -07:00
endfunction
function! s:is_preview_window_open()
silent! wincmd P
if &previewwindow
wincmd p
return 1
endif
return 0
endfunction
function! s:preview_commit()
if b:plug_preview < 0
let b:plug_preview = !s:is_preview_window_open()
endif
let sha = matchstr(getline('.'), '\(^ \)\@<=[0-9a-z]\{7}')
if !empty(sha)
let lnum = line('.')
while lnum > 1
let lnum -= 1
let line = getline(lnum)
let name = matchstr(line, '\(^- \)\@<=[^:]\+')
if !empty(name)
let dir = g:plugs[name].dir
if isdirectory(dir)
execute 'cd '.s:esc(dir)
execute 'pedit '.sha
wincmd P
setlocal filetype=git buftype=nofile nobuflisted
execute 'silent read !git show '.sha
normal! ggdd
wincmd p
cd -
endif
break
endif
endwhile
endif
endfunction
function! s:section(flags)
call search('\(^- \)\@<=.', a:flags)
endfunction
2014-04-08 05:43:49 -07:00
function! s:diff()
call s:prepare()
call append(0, 'Collecting updated changes ...')
normal! gg
redraw
2014-04-08 05:43:49 -07:00
2014-04-08 08:40:19 -07:00
let cnt = 0
2014-04-08 05:43:49 -07:00
for [k, v] in items(g:plugs)
if !isdirectory(v.dir) || !s:is_managed(k)
2014-04-08 05:43:49 -07:00
continue
endif
2014-04-08 23:25:21 -07:00
execute 'cd '.s:esc(v.dir)
2014-07-26 06:49:18 -07:00
let diff = system('git log --pretty=format:"%h %s (%cr)" "HEAD...HEAD@{1}"')
2014-04-08 05:43:49 -07:00
if !v:shell_error && !empty(diff)
call append(1, '')
call append(2, '- '.k.':')
call append(3, map(split(diff, '\n'), '" ". v:val'))
2014-04-08 08:40:19 -07:00
let cnt += 1
2014-04-08 05:43:49 -07:00
normal! gg
redraw
endif
cd -
endfor
call setline(1, cnt == 0 ? 'No updates.' : 'Last update:')
nnoremap <silent> <buffer> <cr> :silent! call <SID>preview_commit()<cr>
2014-04-08 08:40:19 -07:00
normal! gg
2014-04-08 05:43:49 -07:00
endfunction
2014-07-16 04:26:42 -07:00
let s:first_rtp = s:esc(get(split(&rtp, ','), 0, ''))
let s:last_rtp = s:esc(get(split(&rtp, ','), -1, ''))
let &cpo = s:cpo_save
unlet s:cpo_save