diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-19 23:43:53 +1300 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-11-19 23:43:53 +1300 |
commit | 062274de75e25ad96f52d39e17844048003b90dc (patch) | |
tree | 093c2479feb70548882938177d0edb95d47056e9 /vim/after/ftplugin/perl/check.vim | |
parent | Merge branch 'hotfix/v0.17.2' (diff) | |
parent | Rebuild dotfiles(7) manual from README.md (diff) | |
download | dotfiles-9c738b2d1536b6c7bd58faadd7ad8e7b1dbdad1b.tar.gz (sig) dotfiles-9c738b2d1536b6c7bd58faadd7ad8e7b1dbdad1b.zip |
Merge branch 'release/v0.18.0'v0.18.0
* release/v0.18.0:
Rebuild dotfiles(7) manual from README.md
Bump version number to 0.18.0
Use %:S expansion only when available
Force g:current_compiler removal before check/lint
Use quickfix window for check/lint
Add vim/compiler scripts to vint targets
Use :compiler quickfix systems for Vim/HTML lint
Use :compiler scripts for makeprg setup
Add :lwindow support to Perl check/lint
Adapt sh check/lint to use :lmake
Remove 'shellpipe' setting
Use single-quotes for strings in sh.vim
Use full word "syntax" in sh.vim
Coax sh.vim into accepting #/% param expansion
Mention the Vim plugin dist target in README.md
Add Makefile targets for Vim plugin dists
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..df90784f 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 + unlet! g:current_compiler + compiler perl + make! + let &l:makeprg = l:save_makeprg + let &l:errorformat = l:save_errorformat + cwindow + 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' |