102 lines
2.6 KiB
VimL
102 lines
2.6 KiB
VimL
|
" NOTE: You must, of course, install ag / the_silver_searcher
|
||
|
|
|
||
|
|
" Location of the ag utility
|
||
|
|
if !exists("g:agprg")
|
||
|
|
let g:agprg="ag --column"
|
||
|
|
endif
|
||
|
|
|
||
|
|
if !exists("g:ag_apply_qmappings")
|
||
|
|
let g:ag_apply_qmappings = !exists("g:ag_qhandler")
|
||
|
|
endif
|
||
|
|
|
||
|
|
if !exists("g:ag_apply_lmappings")
|
||
|
|
let g:ag_apply_lmappings = !exists("g:ag_lhandler")
|
||
|
|
endif
|
||
|
|
|
||
|
|
if !exists("g:ag_qhandler")
|
||
|
|
let g:ag_qhandler="botright copen"
|
||
|
|
endif
|
||
|
|
|
||
|
|
if !exists("g:ag_lhandler")
|
||
|
|
let g:ag_lhandler="botright lopen"
|
||
|
|
endif
|
||
|
|
|
||
|
|
function! ag#Ag(cmd, args)
|
||
|
|
" If no pattern is provided, search for the word under the cursor
|
||
|
|
if empty(a:args)
|
||
|
|
let l:grepargs = expand("<cword>")
|
||
|
|
else
|
||
|
|
let l:grepargs = a:args . join(a:000, ' ')
|
||
|
|
end
|
||
|
|
|
||
|
|
" Format, used to manage column jump
|
||
|
|
if a:cmd =~# '-g$'
|
||
|
|
let g:agformat="%f"
|
||
|
|
else
|
||
|
|
let g:agformat="%f:%l:%c:%m"
|
||
|
|
end
|
||
|
|
|
||
|
|
let grepprg_bak=&grepprg
|
||
|
|
let grepformat_bak=&grepformat
|
||
|
|
try
|
||
|
|
let &grepprg=g:agprg
|
||
|
|
let &grepformat=g:agformat
|
||
|
|
silent execute a:cmd . " " . escape(l:grepargs, '|')
|
||
|
|
finally
|
||
|
|
let &grepprg=grepprg_bak
|
||
|
|
let &grepformat=grepformat_bak
|
||
|
|
endtry
|
||
|
|
|
||
|
|
if a:cmd =~# '^l'
|
||
|
|
exe g:ag_lhandler
|
||
|
|
let l:apply_mappings = g:ag_apply_lmappings
|
||
|
|
else
|
||
|
|
exe g:ag_qhandler
|
||
|
|
let l:apply_mappings = g:ag_apply_qmappings
|
||
|
|
endif
|
||
|
|
|
||
|
|
" If highlighting is on, highlight the search keyword.
|
||
|
|
if exists("g:aghighlight")
|
||
|
|
let @/=a:args
|
||
|
|
set hlsearch
|
||
|
|
end
|
||
|
|
|
||
|
|
redraw!
|
||
|
|
|
||
|
|
if l:apply_mappings
|
||
|
|
exec "nnoremap <silent> <buffer> q :ccl<CR>"
|
||
|
|
exec "nnoremap <silent> <buffer> t <C-W><CR><C-W>T"
|
||
|
|
exec "nnoremap <silent> <buffer> T <C-W><CR><C-W>TgT<C-W><C-W>"
|
||
|
|
exec "nnoremap <silent> <buffer> o <CR>"
|
||
|
|
exec "nnoremap <silent> <buffer> go <CR><C-W><C-W>"
|
||
|
|
exec "nnoremap <silent> <buffer> h <C-W><CR><C-W>K"
|
||
|
|
exec "nnoremap <silent> <buffer> H <C-W><CR><C-W>K<C-W>b"
|
||
|
|
exec "nnoremap <silent> <buffer> v <C-W><CR><C-W>H<C-W>b<C-W>J<C-W>t"
|
||
|
|
exec "nnoremap <silent> <buffer> gv <C-W><CR><C-W>H<C-W>b<C-W>J"
|
||
|
|
echom "ag.vim keys: q=quit <cr>/t/h/v=enter/tab/split/vsplit go/T/H/gv=preview versions of same"
|
||
|
|
endif
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! ag#AgFromSearch(cmd, args)
|
||
|
|
let search = getreg('/')
|
||
|
|
" translate vim regular expression to perl regular expression.
|
||
|
|
let search = substitute(search,'\(\\<\|\\>\)','\\b','g')
|
||
|
|
call ag#Ag(a:cmd, '"' . search .'" '. a:args)
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! ag#GetDocLocations()
|
||
|
|
let dp = ''
|
||
|
|
for p in split(&rtp,',')
|
||
|
|
let p = p.'/doc/'
|
||
|
|
if isdirectory(p)
|
||
|
|
let dp = p.'*.txt '.dp
|
||
|
|
endif
|
||
|
|
endfor
|
||
|
|
return dp
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! ag#AgHelp(cmd,args)
|
||
|
|
let args = a:args.' '.ag#GetDocLocations()
|
||
|
|
call ag#Ag(a:cmd,args)
|
||
|
|
endfunction
|