]>
Commit | Line | Data |
---|---|---|
0d23b6e5 BB |
1 | " NOTE: You must, of course, install the ack script |
2 | " in your path. | |
3 | " On Debian / Ubuntu: | |
4 | " sudo apt-get install ack-grep | |
5 | " On your vimrc: | |
6 | " let g:ackprg="ack-grep -H --nocolor --nogroup --column" | |
7 | " | |
8 | " With MacPorts: | |
9 | " sudo port install p5-app-ack | |
10 | ||
11 | " Location of the ack utility | |
12 | if !exists("g:ackprg") | |
13 | let g:ackprg="ack -H --nocolor --nogroup --column" | |
14 | endif | |
15 | ||
16 | function! s:Ack(cmd, args) | |
17 | redraw | |
18 | echo "Searching ..." | |
19 | ||
20 | " If no pattern is provided, search for the word under the cursor | |
21 | if empty(a:args) | |
22 | let l:grepargs = expand("<cword>") | |
23 | else | |
24 | let l:grepargs = a:args | |
25 | end | |
26 | ||
27 | " Format, used to manage column jump | |
28 | if a:cmd =~# '-g$' | |
29 | let g:ackformat="%f" | |
30 | else | |
31 | let g:ackformat="%f:%l:%c:%m" | |
32 | end | |
33 | ||
34 | let grepprg_bak=&grepprg | |
35 | let grepformat_bak=&grepformat | |
36 | try | |
37 | let &grepprg=g:ackprg | |
38 | let &grepformat=g:ackformat | |
39 | silent execute a:cmd . " " . l:grepargs | |
40 | finally | |
41 | let &grepprg=grepprg_bak | |
42 | let &grepformat=grepformat_bak | |
43 | endtry | |
44 | ||
45 | if a:cmd =~# '^l' | |
46 | botright lopen | |
47 | else | |
48 | botright copen | |
49 | endif | |
50 | ||
51 | " TODO: Document this! | |
52 | exec "nnoremap <silent> <buffer> q :ccl<CR>" | |
53 | exec "nnoremap <silent> <buffer> t <C-W><CR><C-W>T" | |
54 | exec "nnoremap <silent> <buffer> T <C-W><CR><C-W>TgT<C-W><C-W>" | |
55 | exec "nnoremap <silent> <buffer> o <CR>" | |
56 | exec "nnoremap <silent> <buffer> go <CR><C-W><C-W>" | |
57 | ||
58 | " If highlighting is on, highlight the search keyword. | |
59 | if exists("g:ackhighlight") | |
60 | let @/=a:args | |
61 | set hlsearch | |
62 | end | |
63 | ||
64 | redraw! | |
65 | endfunction | |
66 | ||
67 | function! s:AckFromSearch(cmd, args) | |
68 | let search = getreg('/') | |
69 | " translate vim regular expression to perl regular expression. | |
70 | let search = substitute(search,'\(\\<\|\\>\)','\\b','g') | |
71 | call s:Ack(a:cmd, '"' . search .'" '. a:args) | |
72 | endfunction | |
73 | ||
74 | command! -bang -nargs=* -complete=file Ack call s:Ack('grep<bang>',<q-args>) | |
75 | command! -bang -nargs=* -complete=file AckAdd call s:Ack('grepadd<bang>', <q-args>) | |
76 | command! -bang -nargs=* -complete=file AckFromSearch call s:AckFromSearch('grep<bang>', <q-args>) | |
77 | command! -bang -nargs=* -complete=file LAck call s:Ack('lgrep<bang>', <q-args>) | |
78 | command! -bang -nargs=* -complete=file LAckAdd call s:Ack('lgrepadd<bang>', <q-args>) | |
79 | command! -bang -nargs=* -complete=file AckFile call s:Ack('grep<bang> -g', <q-args>) |