1106 lines
27 KiB
VimL
1106 lines
27 KiB
VimL
" =============================================================================
|
|
" File: autoload/ctrlp.vim
|
|
" Description: Full path fuzzy file, buffer and MRU file finder for Vim.
|
|
" Author: Kien Nguyen <github.com/kien>
|
|
" License: MIT
|
|
" =============================================================================
|
|
|
|
if v:version < '700' "{{{
|
|
func! ctrlp#init(...)
|
|
echoh Error | ec 'CtrlP requires Vim 7.0+' | echoh None
|
|
endfunc
|
|
fini
|
|
endif "}}}
|
|
|
|
" Option variables {{{
|
|
func! s:opts()
|
|
if !exists('g:ctrlp_match_window_reversed')
|
|
let s:mwreverse = 1
|
|
else
|
|
let s:mwreverse = g:ctrlp_match_window_reversed
|
|
unl g:ctrlp_match_window_reversed
|
|
endif
|
|
|
|
if !exists('g:ctrlp_persistent_input')
|
|
let s:pinput = 1
|
|
else
|
|
let s:pinput = g:ctrlp_persistent_input
|
|
unl g:ctrlp_persistent_input
|
|
endif
|
|
|
|
if !exists('g:ctrlp_split_window')
|
|
let s:splitwin = 0
|
|
else
|
|
let s:splitwin = g:ctrlp_split_window
|
|
unl g:ctrlp_split_window
|
|
endif
|
|
|
|
if !exists('g:ctrlp_ignore_space')
|
|
let s:igspace = 0
|
|
else
|
|
let s:igspace = g:ctrlp_ignore_space
|
|
unl g:ctrlp_ignore_space
|
|
endif
|
|
|
|
if !exists('g:ctrlp_working_path_mode')
|
|
let s:pathmode = 1
|
|
else
|
|
let s:pathmode = g:ctrlp_working_path_mode
|
|
unl g:ctrlp_working_path_mode
|
|
endif
|
|
|
|
if !exists('g:ctrlp_root_markers')
|
|
let s:rmarkers = []
|
|
else
|
|
let s:rmarkers = g:ctrlp_root_markers
|
|
unl g:ctrlp_root_markers
|
|
endif
|
|
|
|
if !exists('g:ctrlp_max_height')
|
|
let s:mxheight = 10
|
|
else
|
|
let s:mxheight = g:ctrlp_max_height
|
|
unl g:ctrlp_max_height
|
|
endif
|
|
|
|
if !exists('g:ctrlp_regexp_search')
|
|
let s:regexp = 0
|
|
else
|
|
let s:regexp = g:ctrlp_regexp_search
|
|
unl g:ctrlp_regexp_search
|
|
endif
|
|
|
|
if !exists('g:ctrlp_use_caching')
|
|
let s:caching = 1
|
|
else
|
|
let s:caching = g:ctrlp_use_caching
|
|
unl g:ctrlp_use_caching
|
|
endif
|
|
|
|
if !exists('g:ctrlp_clear_cache_on_exit')
|
|
let s:cconex = 1
|
|
else
|
|
let s:cconex = g:ctrlp_clear_cache_on_exit
|
|
unl g:ctrlp_clear_cache_on_exit
|
|
endif
|
|
|
|
if !exists('g:ctrlp_cache_dir')
|
|
let s:cache_dir = $HOME
|
|
else
|
|
let s:cache_dir = g:ctrlp_cache_dir
|
|
endif
|
|
|
|
if !exists('g:ctrlp_newcache')
|
|
let g:ctrlp_newcache = 0
|
|
endif
|
|
|
|
if !exists('g:ctrlp_by_filename')
|
|
let s:byfname = 0
|
|
else
|
|
let s:byfname = g:ctrlp_by_filename
|
|
unl g:ctrlp_by_filename
|
|
endif
|
|
|
|
if !exists('g:ctrlp_prompt_mappings')
|
|
let s:urprtmaps = 0
|
|
else
|
|
let s:urprtmaps = g:ctrlp_prompt_mappings
|
|
unl g:ctrlp_prompt_mappings
|
|
endif
|
|
|
|
if !exists('g:ctrlp_dotfiles')
|
|
let s:dotfiles = 1
|
|
else
|
|
let s:dotfiles = g:ctrlp_dotfiles
|
|
unl g:ctrlp_dotfiles
|
|
endif
|
|
|
|
if !exists('g:ctrlp_highlight_match')
|
|
let s:mathi = [1, 'Function']
|
|
else
|
|
let s:mathi = g:ctrlp_highlight_match
|
|
unl g:ctrlp_highlight_match
|
|
endif
|
|
|
|
if !exists('g:ctrlp_max_files')
|
|
let s:maxfiles = 20000
|
|
else
|
|
let s:maxfiles = g:ctrlp_max_files
|
|
unl g:ctrlp_max_files
|
|
endif
|
|
|
|
if !exists('g:ctrlp_max_depth')
|
|
let s:maxdepth = 40
|
|
else
|
|
let s:maxdepth = g:ctrlp_max_depth
|
|
unl g:ctrlp_max_depth
|
|
endif
|
|
|
|
if !exists('g:ctrlp_live_update')
|
|
let s:liup = 1
|
|
else
|
|
let s:liup = g:ctrlp_live_update
|
|
unl g:ctrlp_live_update
|
|
endif
|
|
|
|
if !exists('g:ctrlp_user_command')
|
|
let g:ctrlp_user_command = ''
|
|
endif
|
|
endfunc
|
|
cal s:opts()
|
|
|
|
" Limiters
|
|
let s:compare_lim = 3000
|
|
let s:nocache_lim = 4000
|
|
let s:mltipats_lim = 2000
|
|
"}}}
|
|
|
|
" * Clear caches {{{
|
|
func! ctrlp#clearcache()
|
|
let g:ctrlp_newcache = 1
|
|
endfunc
|
|
|
|
func! ctrlp#clearallcaches()
|
|
let cache_dir = ctrlp#utils#cachedir()
|
|
if isdirectory(cache_dir) && match(cache_dir, '.ctrlp_cache') >= 0
|
|
let cache_files = split(globpath(cache_dir, '*.txt'), '\n')
|
|
cal filter(cache_files, '!isdirectory(v:val)')
|
|
for each in cache_files | sil! cal delete(each) | endfor
|
|
endif
|
|
cal ctrlp#clearcache()
|
|
endfunc
|
|
|
|
func! ctrlp#reset()
|
|
cal s:opts()
|
|
cal ctrlp#utils#opts()
|
|
if g:ctrlp_mru_files | cal ctrlp#mrufiles#opts() | endif
|
|
endfunc
|
|
"}}}
|
|
|
|
" * ListAllFiles {{{
|
|
func! s:List(dirs, allfiles, depth)
|
|
" note: wildignore is ignored when using **
|
|
let glob = s:dotfiles ? '.*\|*' : '*'
|
|
let entries = split(globpath(a:dirs, glob), '\n')
|
|
let entries = filter(entries, 'getftype(v:val) != "link"')
|
|
let entries2 = deepcopy(entries)
|
|
let alldirs = s:dotfiles ? filter(entries, 's:dirfilter(v:val)') : filter(entries, 'isdirectory(v:val)')
|
|
let g:ctrlp_allfiles = filter(entries2, '!isdirectory(v:val)')
|
|
cal extend(g:ctrlp_allfiles, a:allfiles, 0)
|
|
let depth = a:depth + 1
|
|
if empty(alldirs) || s:maxfiles(len(g:ctrlp_allfiles)) || depth > s:maxdepth
|
|
retu
|
|
else
|
|
let dirs = join(alldirs, ',')
|
|
sil! cal s:progress(len(g:ctrlp_allfiles))
|
|
cal s:List(dirs, g:ctrlp_allfiles, depth)
|
|
endif
|
|
endfunc
|
|
|
|
func! s:ListAllFiles(path)
|
|
let cache_file = ctrlp#utils#cachefile()
|
|
if g:ctrlp_newcache || !filereadable(cache_file) || !s:caching
|
|
" get the list of files
|
|
if empty(g:ctrlp_user_command)
|
|
cal s:List(a:path, [], 0)
|
|
else
|
|
sil! cal s:progress(escape('Waiting...', ' '))
|
|
try
|
|
if exists('+ssl') && &ssl
|
|
let ssl = &ssl
|
|
let &ssl = 0
|
|
endif
|
|
let g:ctrlp_allfiles = split(system(printf(g:ctrlp_user_command, shellescape(a:path))), '\n')
|
|
if exists('+ssl') && exists('ssl')
|
|
let &ssl = ssl
|
|
cal map(g:ctrlp_allfiles, 'substitute(v:val, "\\", "/", "g")')
|
|
endif
|
|
catch
|
|
retu []
|
|
endtry
|
|
endif
|
|
" remove base directory
|
|
let path = &ssl || !exists('+ssl') ? getcwd().'/' : substitute(getcwd(), '\\', '\\\\', 'g').'\\'
|
|
cal map(g:ctrlp_allfiles, 'substitute(v:val, path, "", "g")')
|
|
let read_cache = 0
|
|
else
|
|
let g:ctrlp_allfiles = ctrlp#utils#readfile(cache_file)
|
|
let read_cache = 1
|
|
endif
|
|
if len(g:ctrlp_allfiles) <= s:compare_lim | cal sort(g:ctrlp_allfiles, 's:complen') | endif
|
|
" write cache
|
|
if !read_cache && ( ( g:ctrlp_newcache || !filereadable(cache_file) )
|
|
\ && s:caching || len(g:ctrlp_allfiles) > s:nocache_lim )
|
|
if len(g:ctrlp_allfiles) > s:nocache_lim | let s:caching = 1 | endif
|
|
cal ctrlp#utils#writecache(g:ctrlp_allfiles)
|
|
endif
|
|
retu g:ctrlp_allfiles
|
|
endfunc
|
|
"}}}
|
|
|
|
func! s:ListAllBuffers() "{{{
|
|
let allbufs = []
|
|
for each in range(1, bufnr('$'))
|
|
if getbufvar(each, '&bl')
|
|
let bufname = bufname(each)
|
|
if strlen(bufname) && getbufvar(each, '&ma') && bufname != 'ControlP'
|
|
cal add(allbufs, fnamemodify(bufname, ':p'))
|
|
endif
|
|
endif
|
|
endfor
|
|
retu allbufs
|
|
endfunc "}}}
|
|
|
|
func! s:SplitPattern(str,...) "{{{
|
|
" ignore spaces
|
|
let str = s:igspace ? substitute(a:str, ' ', '', 'g') : a:str
|
|
" clear the jumptoline var
|
|
if exists('s:jmpln') | unl s:jmpln | endif
|
|
" If pattern contains :\d (e.g. abc:25)
|
|
if match(str, ':\d*$') >= 0
|
|
" get the line to jump to
|
|
let s:jmpln = matchstr(str, ':\zs\d*$')
|
|
" remove the line number
|
|
let str = substitute(str, ':\d*$', '', 'g')
|
|
endif
|
|
let str = substitute(str, '\\\\', '\', 'g')
|
|
if s:regexp || match(str, '[*|]') >= 0
|
|
\ || match(str, '\\\(zs\|ze\|<\|>\)') >= 0
|
|
let array = [str]
|
|
else
|
|
let array = split(str, '\zs')
|
|
if exists('+ssl') && !&ssl
|
|
cal map(array, 'substitute(v:val, "\\", "\\\\\\", "g")')
|
|
endif
|
|
" literal ^ and $
|
|
for each in ['^', '$']
|
|
cal map(array, 'substitute(v:val, "\\\'.each.'", "\\\\\\'.each.'", "g")')
|
|
endfor
|
|
endif
|
|
" Build the new pattern
|
|
let nitem = !empty(array) ? array[0] : ''
|
|
let newpats = [nitem]
|
|
if len(array) > 1
|
|
for i in range(1, len(array) - 1)
|
|
" Separator
|
|
let sp = exists('a:1') ? a:1 : '[^'.array[i-1].']\{-}'
|
|
let nitem .= sp.array[i]
|
|
cal add(newpats, nitem)
|
|
endfor
|
|
endif
|
|
retu newpats
|
|
endfunc "}}}
|
|
|
|
" * GetMatchedItems {{{
|
|
func! s:MatchIt(items, pat, limit)
|
|
let items = a:items
|
|
let pat = a:pat
|
|
let limit = a:limit
|
|
let newitems = []
|
|
for item in items
|
|
if s:byfname
|
|
if s:matchsubstr(item, pat) >= 0 | cal add(newitems, item) | endif
|
|
else
|
|
if match(item, pat) >= 0 | cal add(newitems, item) | endif
|
|
endif
|
|
" stop if reached the limit
|
|
if limit > 0 && len(newitems) == limit | break | endif
|
|
endfor
|
|
retu newitems
|
|
endfunc
|
|
|
|
func! s:GetMatchedItems(items, pats, limit)
|
|
let items = a:items
|
|
let pats = a:pats
|
|
let limit = a:limit
|
|
" if items is longer than s:mltipats_lim, use only the last pattern
|
|
if len(items) >= s:mltipats_lim
|
|
let pats = [pats[-1]]
|
|
endif
|
|
cal map(pats, 'substitute(v:val, "\\\~", "\\\\\\~", "g")')
|
|
" loop through the patterns
|
|
for each in pats
|
|
" if newitems is small, set it as items to search in
|
|
if exists('newitems') && len(newitems) < limit
|
|
let items = deepcopy(newitems)
|
|
endif
|
|
if !s:regexp | let each = escape(each, '.') | endif
|
|
if empty(items) " end here
|
|
retu exists('newitems') ? newitems : []
|
|
else " start here, goes back up if has 2 or more in pats
|
|
" loop through the items
|
|
let newitems = s:MatchIt(items, each, limit)
|
|
endif
|
|
endfor
|
|
let s:nomatches = len(newitems)
|
|
retu newitems
|
|
endfunc
|
|
"}}}
|
|
|
|
func! s:SetupBlank() "{{{
|
|
setl bt=nofile bh=unload noswf nobl ts=4 sw=4 sts=4 nonu
|
|
\ nowrap nolist nospell cul nocuc tw=0 wfh
|
|
if v:version >= '703'
|
|
setl nornu noudf cc=0
|
|
endif
|
|
redr
|
|
endfunc "}}}
|
|
|
|
func! s:BufOpen(...) "{{{
|
|
" a:1 bufname; a:2 delete
|
|
let buf = a:1
|
|
let bufnum = bufnr(buf)
|
|
" Closing
|
|
if bufnum > 0 && bufwinnr(bufnum) > 0
|
|
exe 'bun!'
|
|
if s:pinput != 2 && exists('g:CtrlP_cline')
|
|
unl g:CtrlP_cline
|
|
endif
|
|
endif
|
|
if exists('a:2')
|
|
" Restore the changed global options
|
|
let &magic = s:CtrlP_magic
|
|
let &to = s:CtrlP_to
|
|
let &tm = s:CtrlP_tm
|
|
let &sb = s:CtrlP_sb
|
|
let &hls = s:CtrlP_hls
|
|
let &im = s:CtrlP_im
|
|
let &report = s:CtrlP_report
|
|
let &sc = s:CtrlP_sc
|
|
let &ss = s:CtrlP_ss
|
|
let &siso = s:CtrlP_siso
|
|
let &ea = s:CtrlP_ea
|
|
let &gcr = s:CtrlP_gcr
|
|
let &mfd = s:CtrlP_mfd
|
|
" cleaning up
|
|
if exists('s:cwd')
|
|
exe 'chdir' s:cwd
|
|
unl s:cwd
|
|
endif
|
|
if exists('s:firstinit')
|
|
unl s:firstinit
|
|
endif
|
|
if exists('g:ctrlp_lines')
|
|
let g:ctrlp_lines = []
|
|
endif
|
|
if exists('g:ctrlp_allfiles')
|
|
let g:ctrlp_allfiles = []
|
|
endif
|
|
exe s:currwin.'winc w'
|
|
ec
|
|
else
|
|
let s:currwin = winnr()
|
|
" Open new buffer
|
|
exe 'sil! botright 1new' buf
|
|
" Store global options
|
|
let s:CtrlP_magic = &magic
|
|
let s:CtrlP_to = &to
|
|
let s:CtrlP_tm = &tm
|
|
let s:CtrlP_sb = &sb
|
|
let s:CtrlP_hls = &hls
|
|
let s:CtrlP_im = &im
|
|
let s:CtrlP_report = &report
|
|
let s:CtrlP_sc = &sc
|
|
let s:CtrlP_ss = &ss
|
|
let s:CtrlP_siso = &siso
|
|
let s:CtrlP_ea = &ea
|
|
let s:CtrlP_gcr = &gcr
|
|
let s:CtrlP_mfd = &mfd
|
|
if !exists('g:CtrlP_prompt') || !s:pinput
|
|
let g:CtrlP_prompt = ['', '', '']
|
|
endif
|
|
se magic
|
|
se to
|
|
se tm=0
|
|
se sb
|
|
se nohls
|
|
se noim
|
|
se report=9999
|
|
se nosc
|
|
se ss=0
|
|
se siso=0
|
|
se noea
|
|
se mfd=200
|
|
se gcr=a:block-PmenuSel-blinkon0
|
|
endif
|
|
endfunc "}}}
|
|
|
|
func! s:Renderer(lines, pat) "{{{
|
|
let nls = []
|
|
for i in range(0, len(a:lines) - 1)
|
|
cal add(nls, '> '.a:lines[i])
|
|
endfor
|
|
" Determine/set max height
|
|
let height = s:mxheight
|
|
let max = len(nls) < height ? len(nls) : height
|
|
exe 'res' max
|
|
" Output to buffer
|
|
if !empty(nls)
|
|
setl cul
|
|
" sort if not type 2 (MRU)
|
|
if index([2], s:itemtype) < 0
|
|
let s:compat = a:pat
|
|
cal sort(nls, 's:mixedsort')
|
|
unl s:compat
|
|
endif
|
|
if s:mwreverse
|
|
cal reverse(nls)
|
|
endif
|
|
cal setline('1', nls)
|
|
if s:mwreverse
|
|
keepj norm! G
|
|
else
|
|
keepj norm! gg
|
|
endif
|
|
keepj norm! 1|
|
|
let b:matched = nls
|
|
else
|
|
setl nocul
|
|
cal setline('1', ' == NO MATCHES ==')
|
|
endif
|
|
" Remember selected line
|
|
if exists('g:CtrlP_cline')
|
|
cal setpos('.', [0, g:CtrlP_cline, 1, 0])
|
|
endif
|
|
endfunc "}}}
|
|
|
|
func! s:UpdateMatches(pat) "{{{
|
|
" Delete the buffer's content
|
|
sil! %d _
|
|
let pats = s:SplitPattern(a:pat)
|
|
let lines = s:GetMatchedItems(g:ctrlp_lines, pats, s:mxheight)
|
|
let pat = pats[-1]
|
|
cal s:Renderer(lines, pat)
|
|
" highlighting
|
|
if type(s:mathi) == 3 && len(s:mathi) == 2 && s:mathi[0] && exists('*clearmatches')
|
|
let grp = empty(s:mathi[1]) ? 'Function' : s:mathi[1]
|
|
cal s:highlight(pat, grp)
|
|
endif
|
|
endfunc "}}}
|
|
|
|
func! s:BuildPrompt(...) "{{{
|
|
let base1 = s:regexp ? 'r' : '>'
|
|
let base2 = s:byfname ? 'd' : '>'
|
|
let base = base1.base2.'> '
|
|
let cur = '_'
|
|
let estr = '"\'
|
|
let prt = deepcopy(g:CtrlP_prompt)
|
|
cal map(prt, 'escape(v:val, estr)')
|
|
let str = prt[0] . prt[1] . prt[2]
|
|
if s:nomatches && ( s:liup || s:firstinit )
|
|
let s:firstinit = 0
|
|
sil! cal s:UpdateMatches(str)
|
|
endif
|
|
sil! cal s:statusline()
|
|
" Toggling
|
|
if !exists('a:1') || ( exists('a:1') && a:1 )
|
|
let hiactive = 'Normal'
|
|
elseif exists('a:1') || ( exists('a:1') && !a:1 )
|
|
let hiactive = 'Comment'
|
|
let base = substitute(base, '>', '-', 'g')
|
|
endif
|
|
let hibase = 'Comment'
|
|
" Build it
|
|
redr
|
|
exe 'echoh' hibase '| echon "'.base.'"
|
|
\ | echoh' hiactive '| echon "'.prt[0].'"
|
|
\ | echoh' hibase '| echon "'.prt[1].'"
|
|
\ | echoh' hiactive '| echon "'.prt[2].'"
|
|
\ | echoh None'
|
|
" Append the cursor _ at the end
|
|
if empty(prt[1]) && ( !exists('a:1') || ( exists('a:1') && a:1 ) )
|
|
exe 'echoh' hibase '| echon "'.cur.'" | echoh None'
|
|
endif
|
|
endfunc "}}}
|
|
|
|
func! s:ForceUpdate() "{{{
|
|
let estr = '"\'
|
|
let prt = deepcopy(g:CtrlP_prompt)
|
|
cal map(prt, 'escape(v:val, estr)')
|
|
let str = prt[0] . prt[1] . prt[2]
|
|
cal s:UpdateMatches(str)
|
|
endfunc "}}}
|
|
|
|
" * Prt Actions {{{
|
|
func! s:PrtClear()
|
|
let s:nomatches = 1
|
|
let g:CtrlP_prompt = ['','','']
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtAdd(char)
|
|
let prt = g:CtrlP_prompt
|
|
let prt[0] = prt[0] . a:char
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtBS()
|
|
let s:nomatches = 1
|
|
let prt = g:CtrlP_prompt
|
|
let prt[0] = strpart(prt[0], -1, strlen(prt[0]))
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtDelete()
|
|
let s:nomatches = 1
|
|
let prt = g:CtrlP_prompt
|
|
let prt[1] = strpart(prt[2], 0, 1)
|
|
let prt[2] = strpart(prt[2], 1)
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtCurLeft()
|
|
if !empty(g:CtrlP_prompt[0])
|
|
let prt = g:CtrlP_prompt
|
|
let prt[2] = prt[1] . prt[2]
|
|
let prt[1] = strpart(prt[0], strlen(prt[0]) - 1)
|
|
let prt[0] = strpart(prt[0], -1, strlen(prt[0]))
|
|
endif
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtCurRight()
|
|
let prt = g:CtrlP_prompt
|
|
let prt[0] = prt[0] . prt[1]
|
|
cal s:PrtDelete()
|
|
endfunc
|
|
|
|
func! s:PrtCurStart()
|
|
let prt = g:CtrlP_prompt
|
|
let str = prt[0] . prt[1] . prt[2]
|
|
let prt[2] = strpart(str, 1)
|
|
let prt[1] = strpart(str, 0, 1)
|
|
let prt[0] = ''
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtCurEnd()
|
|
let prt = g:CtrlP_prompt
|
|
let str = prt[0] . prt[1] . prt[2]
|
|
let prt[2] = ''
|
|
let prt[1] = ''
|
|
let prt[0] = str
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtDeleteWord()
|
|
let s:nomatches = 1
|
|
let prt = g:CtrlP_prompt
|
|
let str = prt[0]
|
|
if match(str, '\W\w\+$') >= 0
|
|
let str = matchstr(str, '^.\+\W\ze\w\+$')
|
|
elseif match(str, '\w\W\+$') >= 0
|
|
let str = matchstr(str, '^.\+\w\ze\W\+$')
|
|
elseif match(str, '[ ]\+$') >= 0
|
|
let str = matchstr(str, '^.*[^ ]\+\ze[ ]\+$')
|
|
elseif match(str, ' ') <= 0
|
|
let str = ''
|
|
endif
|
|
let prt[0] = str
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
|
|
func! s:PrtSelectMove(dir)
|
|
exe 'norm!' a:dir
|
|
let g:CtrlP_cline = line('.')
|
|
endfunc
|
|
|
|
func! s:PrtSelectJump(char,...)
|
|
let lines = map(b:matched, 'substitute(v:val, "^> ", "", "g")')
|
|
if exists('a:1')
|
|
let lines = map(lines, 'split(v:val, ''[\/]\ze[^\/]\+$'')[-1]')
|
|
endif
|
|
" cycle through matches, use s:jmpchr to store last jump
|
|
let chr = escape(a:char, '.~')
|
|
if match(lines, '\c^'.chr) >= 0
|
|
" if not exists or does but not for the same char
|
|
let pos = match(lines, '\c^'.chr)
|
|
if !exists('s:jmpchr') || ( exists('s:jmpchr') && s:jmpchr[0] != chr )
|
|
let jmpln = pos
|
|
let s:jmpchr = [chr, pos]
|
|
elseif exists('s:jmpchr') && s:jmpchr[0] == chr
|
|
" start of lines
|
|
if s:jmpchr[1] == -1
|
|
let s:jmpchr[1] = pos
|
|
endif
|
|
let npos = match(lines, '\c^'.chr, s:jmpchr[1] + 1)
|
|
let jmpln = npos == -1 ? pos : npos
|
|
let s:jmpchr = [chr, npos]
|
|
endif
|
|
keepj exe jmpln + 1
|
|
let g:CtrlP_cline = line('.')
|
|
endif
|
|
endfunc
|
|
|
|
func! s:PrtClearCache()
|
|
cal ctrlp#clearcache()
|
|
cal s:SetLines(s:itemtype)
|
|
cal s:BuildPrompt()
|
|
endfunc
|
|
"}}}
|
|
|
|
" * MapKeys {{{
|
|
func! s:MapKeys(...)
|
|
" Normal keystrokes
|
|
let func = !exists('a:1') || ( exists('a:1') && a:1 ) ? 'PrtAdd' : 'PrtSelectJump'
|
|
let sjbyfname = s:byfname && func == 'PrtSelectJump' ? ', 1' : ''
|
|
for each in range(32,126)
|
|
exe "nn \<buffer> \<silent> \<char-".each."> :cal \<SID>".func."(\"".escape(nr2char(each), '"|\')."\"".sjbyfname.")\<cr>"
|
|
endfor
|
|
if exists('a:2') | retu | endif
|
|
" Special keystrokes
|
|
if exists('a:1') && !a:1
|
|
cal s:MapSpecs('unmap')
|
|
else
|
|
cal s:MapSpecs()
|
|
endif
|
|
endfunc
|
|
|
|
func! s:MapSpecs(...)
|
|
let prtmaps = {
|
|
\ 'PrtBS()': ['<bs>'],
|
|
\ 'PrtDelete()': ['<del>'],
|
|
\ 'PrtDeleteWord()': ['<c-w>'],
|
|
\ 'PrtClear()': ['<c-u>'],
|
|
\ 'PrtSelectMove("j")': ['<c-n>', '<c-j>', '<down>'],
|
|
\ 'PrtSelectMove("k")': ['<c-p>', '<c-k>', '<up>'],
|
|
\ 'AcceptSelection("e")': ['<cr>'],
|
|
\ 'AcceptSelection("h")': ['<c-cr>', '<c-s>'],
|
|
\ 'AcceptSelection("t")': ['<c-t>'],
|
|
\ 'AcceptSelection("v")': ['<c-v>'],
|
|
\ 'ToggleFocus()': ['<tab>'],
|
|
\ 'ToggleRegex()': ['<c-r>'],
|
|
\ 'ToggleByFname()': ['<c-d>'],
|
|
\ 'ToggleType(1)': ['<c-f>', '<c-up'],
|
|
\ 'ToggleType(-1)': ['<c-b>', '<c-down>'],
|
|
\ 'Type(0)': ['<m-1>'],
|
|
\ 'Type(1)': ['<m-2>'],
|
|
\ 'Type(2)': ['<m-3>'],
|
|
\ 'ForceUpdate()': ['<c-o>'],
|
|
\ 'PrtCurStart()': ['<c-a>'],
|
|
\ 'PrtCurEnd()': ['<c-e>'],
|
|
\ 'PrtCurLeft()': ['<c-h>', '<left>'],
|
|
\ 'PrtCurRight()': ['<c-l>', '<right>'],
|
|
\ 'PrtClearCache()': ['<F5>'],
|
|
\ 'BufOpen("ControlP", "del")': ['<esc>', '<c-c>', '<c-g>'],
|
|
\ }
|
|
if type(s:urprtmaps) == 4
|
|
cal extend(prtmaps, s:urprtmaps)
|
|
endif
|
|
" toggleable mappings for toggleable features
|
|
let prttempdis = {
|
|
\ 'Type(2)': ['<m-3>'],
|
|
\ }
|
|
for each in keys(prttempdis)
|
|
if g:ctrlp_mru_files && !has_key(prtmaps, each)
|
|
cal extend(prtmaps, { each : prttempdis[each] })
|
|
elseif !g:ctrlp_mru_files
|
|
cal remove(prtmaps, each)
|
|
endif
|
|
endfor
|
|
let lcmap = 'nn <buffer> <silent>'
|
|
" correct arrow keys in terminal
|
|
if &term =~? 'xterm' || &term =~? '\<k\?vt' || &term =~? 'gnome'
|
|
for each in ['\A <up>','\B <down>','\C <right>','\D <left>']
|
|
exe lcmap.' <esc>['.each
|
|
endfor
|
|
endif
|
|
if exists('a:1') && a:1 == 'unmap'
|
|
let prtunmaps = [
|
|
\ 'PrtBS()',
|
|
\ 'PrtDelete()',
|
|
\ 'PrtDeleteWord()',
|
|
\ 'PrtClear()',
|
|
\ 'PrtCurStart()',
|
|
\ 'PrtCurEnd()',
|
|
\ 'PrtCurLeft()',
|
|
\ 'PrtCurRight()',
|
|
\ ]
|
|
for each in prtunmaps | for kp in prtmaps[each]
|
|
exe lcmap kp '<Nop>'
|
|
endfor | endfor
|
|
else
|
|
for each in keys(prtmaps) | for kp in prtmaps[each]
|
|
exe lcmap kp ':cal <SID>'.each.'<cr>'
|
|
endfor | endfor
|
|
endif
|
|
endfunc
|
|
"}}}
|
|
|
|
" * Toggling functions {{{
|
|
func! s:Focus()
|
|
retu !exists('b:focus') ? 1 : b:focus
|
|
endfunc
|
|
|
|
func! s:ToggleFocus()
|
|
let b:focus = !exists('b:focus') || b:focus ? 0 : 1
|
|
cal s:MapKeys(b:focus)
|
|
let s:firstinit = 1
|
|
cal s:BuildPrompt(b:focus)
|
|
endfunc
|
|
|
|
func! s:ToggleRegex()
|
|
let s:regexp = s:regexp ? 0 : 1
|
|
cal s:PrtSwitcher()
|
|
endfunc
|
|
|
|
func! s:ToggleByFname()
|
|
let s:byfname = s:byfname ? 0 : 1
|
|
cal s:MapKeys(s:Focus(), 1)
|
|
cal s:PrtSwitcher()
|
|
endfunc
|
|
|
|
func! s:ToggleType(dir)
|
|
let len = 1 + g:ctrlp_mru_files
|
|
let s:itemtype = s:walker(len, s:itemtype, a:dir)
|
|
cal s:Type(s:itemtype)
|
|
endfunc
|
|
|
|
func! s:Type(type)
|
|
let s:itemtype = a:type
|
|
cal s:syntax()
|
|
cal s:SetLines(s:itemtype)
|
|
cal s:PrtSwitcher()
|
|
endfunc
|
|
|
|
func! s:PrtSwitcher()
|
|
let s:nomatches = 1
|
|
let s:firstinit = 1
|
|
cal s:BuildPrompt(s:Focus())
|
|
endfunc
|
|
"}}}
|
|
|
|
" * SetWorkingPath {{{
|
|
func! s:FindRoot(curr, mark)
|
|
if !empty(globpath(a:curr, a:mark))
|
|
sil! exe 'chdir' a:curr
|
|
else
|
|
let parent = substitute(a:curr, '[\/]\zs[^\/]\+[\/]\?$', '', '')
|
|
if parent != a:curr | cal s:FindRoot(parent, a:mark) | endif
|
|
endif
|
|
endfunc
|
|
|
|
func! ctrlp#SetWorkingPath(...)
|
|
let l:pathmode = 2
|
|
let s:cwd = getcwd()
|
|
if exists('a:1') && len(a:1) == 1 && !type(a:1)
|
|
let l:pathmode = a:1
|
|
elseif exists('a:1') && len(a:1) > 1 && type(a:1)
|
|
sil! exe 'chdir' a:1
|
|
retu
|
|
endif
|
|
if match(expand('%:p'), '^\<.\+\>://.*') >= 0
|
|
\ || !s:pathmode || !l:pathmode
|
|
retu
|
|
endif
|
|
if exists('+acd') | se noacd | endif
|
|
sil! exe 'chdir' exists('*fnameescape') ? fnameescape(expand('%:p:h')) : expand('%:p:h')
|
|
if s:pathmode == 1 || l:pathmode == 1 | retu | endif
|
|
let markers = [
|
|
\ 'root.dir',
|
|
\ '.vimprojects',
|
|
\ '.git/',
|
|
\ '_darcs/',
|
|
\ '.hg/',
|
|
\ '.bzr/',
|
|
\ ]
|
|
if exists('s:rmarkers') && type(s:rmarkers) == 3 && !empty(s:rmarkers)
|
|
cal extend(markers, s:rmarkers, 0)
|
|
endif
|
|
for marker in markers
|
|
cal s:FindRoot(getcwd(), marker)
|
|
if getcwd() != expand('%:p:h') | break | endif
|
|
endfor
|
|
endfunc
|
|
"}}}
|
|
|
|
func! s:AcceptSelection(mode,...) "{{{
|
|
let md = a:mode
|
|
" use .. to go back in the dir tree
|
|
if md == 'e' && !s:itemtype
|
|
let prt = g:CtrlP_prompt
|
|
let str = prt[0] . prt[1] . prt[2]
|
|
if str == '..'
|
|
cal s:parentdir(getcwd())
|
|
cal s:SetLines(s:itemtype)
|
|
cal s:PrtClear()
|
|
retu
|
|
endif
|
|
endif
|
|
" get the full path
|
|
let matchstr = matchstr(getline('.'), '^> \zs.\+\ze\t*$')
|
|
let filpath = s:itemtype ? matchstr : getcwd().ctrlp#utils#lash().matchstr
|
|
" If only need the full path
|
|
if exists('a:1') && a:1 | retu filpath | endif
|
|
" Remove the prompt and match window
|
|
cal s:BufOpen('ControlP', 'del')
|
|
" Split the mode string if it's longer than 1 char
|
|
if len(md) > 1
|
|
let mds = split(md, '\zs')
|
|
let md = mds[0]
|
|
endif
|
|
" Do something with the selected entry
|
|
if md == 't' || s:splitwin == 1 " in new tab
|
|
tabnew
|
|
let cmd = 'e'
|
|
elseif md == 'h' || s:splitwin == 2 " in new hor split
|
|
let cmd = 'new'
|
|
elseif md == 'v' || s:splitwin == 3 " in new ver split
|
|
let cmd = 'vne'
|
|
elseif md == 'e' || !s:splitwin " in current window
|
|
let cmd = 'e'
|
|
endif
|
|
let bufnum = bufnr(filpath)
|
|
let bufwinnr = bufwinnr(bufnum)
|
|
" check if the buffer's already opened in a tab
|
|
for nr in range(1, tabpagenr('$'))
|
|
" get a list of the buffers in the nr tab
|
|
let buflist = tabpagebuflist(nr)
|
|
" if it has the buffer we're looking for
|
|
if match(buflist, bufnum) >= 0
|
|
let buftabnr = nr
|
|
" get the number of windows
|
|
let tabwinnrs = tabpagewinnr(nr, '$')
|
|
" find the buffer that we know is in this tab
|
|
for ewin in range(1, tabwinnrs)
|
|
if buflist[ewin - 1] == bufnum
|
|
let buftabwinnr = ewin
|
|
endif
|
|
endfor
|
|
endif
|
|
endfor
|
|
" switch to existing buffer or open new one
|
|
let opened = 0
|
|
if s:normbuf()
|
|
exe s:normbuf().'winc w'
|
|
endif
|
|
if bufnum > 0
|
|
if exists('buftabwinnr') " in a tab
|
|
exe 'norm!' buftabnr.'gt'
|
|
exe buftabwinnr.'winc w'
|
|
elseif bufwinnr > 0 " in a window
|
|
exe bufwinnr.'winc w'
|
|
else
|
|
if !s:normbuf()
|
|
exe 'bo vne'
|
|
else
|
|
exe 'bo' cmd
|
|
endif
|
|
exe 'b'.bufnum
|
|
endif
|
|
else
|
|
let pref = 'bo'
|
|
if !s:normbuf() | if md == 'e'
|
|
exe pref 'vne'
|
|
let pref = ''
|
|
endif | endif
|
|
exe 'bo '.cmd.' '.filpath
|
|
endif
|
|
" jump to line
|
|
if exists('s:jmpln') && !empty('s:jmpln')
|
|
exe s:jmpln
|
|
keepj norm! 0zz
|
|
endif
|
|
ec
|
|
endfunc "}}}
|
|
|
|
" * Helper functions {{{
|
|
" comparing and sorting {{{
|
|
func! s:complen(s1, s2)
|
|
" by length
|
|
let len1 = strlen(a:s1)
|
|
let len2 = strlen(a:s2)
|
|
retu len1 == len2 ? 0 : len1 > len2 ? 1 : -1
|
|
endfunc
|
|
|
|
func! s:compmatlen(s1, s2)
|
|
" by match length
|
|
let mln1 = s:shortest(s:matchlens(a:s1, s:compat))
|
|
let mln2 = s:shortest(s:matchlens(a:s2, s:compat))
|
|
retu mln1 == mln2 ? 0 : mln1 > mln2 ? 1 : -1
|
|
endfunc
|
|
|
|
func! s:compword(s1, s2)
|
|
" by word-only (no non-word in match)
|
|
let wrd1 = s:wordonly(s:matchlens(a:s1, s:compat))
|
|
let wrd2 = s:wordonly(s:matchlens(a:s2, s:compat))
|
|
retu wrd1 == wrd2 ? 0 : wrd1 > wrd2 ? 1 : -1
|
|
endfunc
|
|
|
|
func! s:matchlens(str, pat, ...)
|
|
if empty(a:pat) || index(['^','$'], a:pat) >= 0
|
|
retu {}
|
|
endif
|
|
let st = exists('a:1') ? a:1 : 0
|
|
let lens = exists('a:2') ? a:2 : {}
|
|
let nr = exists('a:3') ? a:3 : 0
|
|
if match(a:str, a:pat, st) != -1
|
|
let start = match(a:str, a:pat, st)
|
|
let str = matchstr(a:str, a:pat, st)
|
|
let len = len(str)
|
|
let end = matchend(a:str, a:pat, st)
|
|
let lens = extend(lens, { nr : [len, str] })
|
|
let lens = s:matchlens(a:str, a:pat, end, lens, nr + 1)
|
|
endif
|
|
retu lens
|
|
endfunc
|
|
|
|
func! s:shortest(lens)
|
|
let lns = []
|
|
for nr in keys(a:lens)
|
|
cal add(lns, a:lens[nr][0])
|
|
endfor
|
|
retu min(lns)
|
|
endfunc
|
|
|
|
func! s:wordonly(lens)
|
|
let lens = a:lens
|
|
let minln = s:shortest(lens)
|
|
cal filter(lens, 'minln == v:val[0]')
|
|
for nr in keys(lens)
|
|
if match(lens[nr][1], '\W') >= 0 | retu 1 | endif
|
|
endfor
|
|
retu 0
|
|
endfunc
|
|
|
|
func! s:mixedsort(s1, s2)
|
|
retu 3 * s:compmatlen(a:s1, a:s2) + 2 * s:complen(a:s1, a:s2) + s:compword(a:s1, a:s2)
|
|
endfunc
|
|
"}}}
|
|
|
|
" dealing with statusline {{{
|
|
func! s:statusline(...)
|
|
let itemtypes = {
|
|
\ 0: ['files', 'fil'],
|
|
\ 1: ['buffers', 'buf'],
|
|
\ 2: ['recent files', 'mru'],
|
|
\ }
|
|
if !g:ctrlp_mru_files
|
|
cal remove(itemtypes, 2)
|
|
endif
|
|
let max = len(itemtypes) - 1
|
|
let next = itemtypes[s:walker(max, s:itemtype, 1, 1)][1]
|
|
let prev = itemtypes[s:walker(max, s:itemtype, -1, 1)][1]
|
|
let item = itemtypes[s:itemtype][0]
|
|
let focus = s:Focus() ? 'prt' : 'win'
|
|
let byfname = s:byfname ? 'file' : 'path'
|
|
let regex = s:regexp ? '%#LineNr# regex %*' : ''
|
|
let focus = '%#LineNr# '.focus.' %*'
|
|
let byfname = '%#Character# '.byfname.' %*'
|
|
let item = '%#Character# '.item.' %*'
|
|
let slider = ' <'.prev.'>={'.item.'}=<'.next.'>'
|
|
let dir = ' %=%<%#LineNr# '.getcwd().' %*'
|
|
let &l:stl = focus.byfname.regex.slider.dir
|
|
endfunc
|
|
|
|
func! s:progress(len)
|
|
let cnt = '%#Function# '.a:len.' %*'
|
|
let dir = ' %=%<%#LineNr# '.getcwd().' %*'
|
|
let &l:stl = cnt.dir
|
|
redr
|
|
endfunc
|
|
"}}}
|
|
|
|
" working with paths {{{
|
|
func! s:dirfilter(val)
|
|
retu isdirectory(a:val) && match(a:val, '[\/]\.\{,2}$') < 0 ? 1 : 0
|
|
endfunc
|
|
|
|
func! s:parentdir(curr)
|
|
let parent = substitute(a:curr, '[\/]\zs[^\/]\+[\/]\?$', '', '')
|
|
if parent != a:curr
|
|
sil! exe 'chdir' parent
|
|
endif
|
|
endfunc
|
|
"}}}
|
|
|
|
" syntax and coloring {{{
|
|
func! s:syntax()
|
|
syn match CtrlPNoEntries '^ == NO MATCHES ==$'
|
|
syn match CtrlPLineMarker '^>'
|
|
hi link CtrlPNoEntries Error
|
|
hi CtrlPLineMarker guifg=bg
|
|
endfunc
|
|
|
|
func! s:highlight(pat, grp)
|
|
cal clearmatches()
|
|
if !empty(a:pat) && a:pat != '..'
|
|
let pat = substitute(a:pat, '\~', '\\~', 'g')
|
|
if !s:regexp | let pat = escape(pat, '.') | endif
|
|
" match only filename
|
|
if s:byfname
|
|
let pat = substitute(pat, '\[\^\(.\{-}\)\]\\{-}', '[^\\/\1]\\{-}', 'g')
|
|
let pat = substitute(pat, '$', '\\ze[^\\/]*$', 'g')
|
|
endif
|
|
cal matchadd(a:grp, '\c'.pat)
|
|
cal matchadd('CtrlPLineMarker', '^>')
|
|
endif
|
|
endfunc
|
|
"}}}
|
|
|
|
" misc {{{
|
|
func! s:walker(max, pos, dir, ...)
|
|
if a:dir == 1
|
|
let pos = a:pos < a:max ? a:pos + 1 : 0
|
|
elseif a:dir == -1
|
|
let pos = a:pos > 0 ? a:pos - 1 : a:max
|
|
endif
|
|
if !g:ctrlp_mru_files && pos == 2 && !exists('a:1')
|
|
let jmp = pos == a:max ? 0 : 3
|
|
let pos = a:pos == 1 ? jmp : 1
|
|
endif
|
|
retu pos
|
|
endfunc
|
|
|
|
func! s:matchsubstr(item, pat)
|
|
retu match(split(a:item, '[\/]\ze[^\/]\+$')[-1], a:pat)
|
|
endfunc
|
|
|
|
func! s:maxfiles(len)
|
|
retu s:maxfiles && a:len > s:maxfiles ? 1 : 0
|
|
endfunc
|
|
|
|
func! s:normbuf()
|
|
if &l:bl && empty(&l:bt) && &l:ma | retu winnr() | endif
|
|
for each in range(1, winnr('$'))
|
|
winc w
|
|
if &l:bl && empty(&l:bt) && &l:ma | retu each | endif
|
|
endfor
|
|
retu 0
|
|
endfunc
|
|
"}}}
|
|
"}}}
|
|
|
|
aug CtrlPAug "{{{
|
|
au!
|
|
au BufLeave,WinLeave,BufUnload ControlP cal s:BufOpen('ControlP', 'del')
|
|
au VimLeavePre * if s:cconex | cal ctrlp#clearallcaches() | endif
|
|
aug END "}}}
|
|
|
|
" * Initialization {{{
|
|
func! s:SetLines(type)
|
|
let s:itemtype = a:type
|
|
let types = [
|
|
\ 's:ListAllFiles(getcwd())',
|
|
\ 's:ListAllBuffers()',
|
|
\ 'ctrlp#mrufiles#list(-1)',
|
|
\ ]
|
|
let g:ctrlp_lines = eval(types[a:type])
|
|
endfunc
|
|
|
|
func! ctrlp#init(type, ...)
|
|
let s:nomatches = 1
|
|
let s:firstinit = 1
|
|
let a1 = exists('a:1') ? a:1 : ''
|
|
cal ctrlp#SetWorkingPath(a1)
|
|
cal s:BufOpen('ControlP')
|
|
cal s:SetupBlank()
|
|
cal s:MapKeys()
|
|
cal s:SetLines(a:type)
|
|
cal s:BuildPrompt()
|
|
cal s:syntax()
|
|
endfunc
|
|
"}}}
|
|
|
|
" vim:fen:fdl=0:ts=2:sw=2:sts=2
|