blob: 8dc989f548011b8ed09007bbb46637d88a1211a1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
setlocal cindent
setlocal cinoptions+=:0,l1,g0,(0,W1s
" look up words in perldoc rather than man for K if they exist
function! s:perldoc_or_man(word)
exe 'silent read! perldoc -o PlainText -a "' . a:word . '" 2>/dev/null || man -Pcat ' . a:word
setlocal ft=man
endfunction
nnoremap <buffer> <silent>K :call Help(0, [], '<SID>perldoc_or_man')<CR>
vnoremap <buffer> <silent>K :call Help(1, [], '<SID>perldoc_or_man')<CR>
|
