blob: 8fb857506267ac70b10a556b1c3741cb5d3b2405 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
let b:ale_linters = { 'perl': ['perlcritic'] }
" look up words in perldoc rather than man for K
function! s:perldoc(word)
let l:perldoc_pager = $PERLDOC_PAGER
let $PERLDOC_PAGER = 'cat'
exe 'silent read! perldoc -f "' . a:word . '" 2>/dev/null || perldoc "' . a:word . '"'
let $PERLDOC_PAGER = l:perldoc_pager
setlocal ft=man
endfunction
nnoremap <buffer> <silent>K :call Help(0, [':'], '<SID>perldoc')<CR>
vnoremap <buffer> <silent>K :call Help(1, [':'], '<SID>perldoc')<CR>
function! s:set_excludes()
if filereadable("dist.ini")
for line in readfile("dist.ini", '', 10)
let name = matchstr(line, '\s*name\s*=\s*\zs.*')
if name != ""
exe 'set wildignore+=' . name . '-*/*'
break
endif
endfor
endif
endfunction
autocmd BufReadPost * call <SID>set_excludes()
call <SID>set_excludes()
|