diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-19 18:00:02 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-19 18:00:02 +1300 |
commit | 2c7c641b3255c0b384f6bd89dded1d7054a9345f (patch) | |
tree | 55bd1d3f5c5a7ff8da24fdce2c5917efa33f9f85 /vim/after/ftplugin/perl/check.vim | |
parent | Adapt sh check/lint to use :lmake (diff) | |
download | dotfiles-2c7c641b3255c0b384f6bd89dded1d7054a9345f.tar.gz dotfiles-2c7c641b3255c0b384f6bd89dded1d7054a9345f.zip |
Add :lwindow support to Perl check/lint
The checker is a bit dicey; I hope that format is reliable. It may turn
out to be better to depend on Vi::QuickFix or a similar module. We'll
see.
Diffstat (limited to 'vim/after/ftplugin/perl/check.vim')
-rw-r--r-- | vim/after/ftplugin/perl/check.vim | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/vim/after/ftplugin/perl/check.vim b/vim/after/ftplugin/perl/check.vim index 6b057c82..ebfbcea6 100644 --- a/vim/after/ftplugin/perl/check.vim +++ b/vim/after/ftplugin/perl/check.vim @@ -9,13 +9,27 @@ if exists('b:undo_ftplugin') \ . '|unlet b:did_ftplugin_perl_check' endif +" Build function for checker +if !exists('*s:PerlCheck') + function s:PerlCheck() + let l:save_makeprg = &l:makeprg + let l:save_errorformat = &l:errorformat + let &l:makeprg = 'perl -c %:S' + let &l:errorformat = '%m at %f line %l.' + lmake! + let &l:makeprg = l:save_makeprg + let &l:errorformat = l:save_errorformat + lwindow + endfunction +endif + " Set up a mapping for the checker, if we're allowed if !exists('g:no_plugin_maps') && !exists('g:no_perl_maps') " Define a mapping target nnoremap <buffer> <silent> <unique> \ <Plug>PerlCheck - \ :<C-U>write !perl -c<CR> + \ :<C-U>call <SID>PerlCheck()<CR> if exists('b:undo_ftplugin') let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap <buffer> <Plug>PerlCheck' |