diff options
Diffstat (limited to 'vim/after/ftplugin/perl')
-rw-r--r-- | vim/after/ftplugin/perl/check.vim | 35 | ||||
-rw-r--r-- | vim/after/ftplugin/perl/lint.vim | 35 | ||||
-rw-r--r-- | vim/after/ftplugin/perl/tidy.vim | 35 |
3 files changed, 105 insertions, 0 deletions
diff --git a/vim/after/ftplugin/perl/check.vim b/vim/after/ftplugin/perl/check.vim new file mode 100644 index 00000000..6b057c82 --- /dev/null +++ b/vim/after/ftplugin/perl/check.vim @@ -0,0 +1,35 @@ +" Only do this when not done yet for this buffer +" Also do nothing if 'compatible' enabled +if exists('b:did_ftplugin_perl_check') || &compatible + finish +endif +let b:did_ftplugin_perl_check = 1 +if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|unlet b:did_ftplugin_perl_check' +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> + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <Plug>PerlCheck' + endif + + " If there isn't a key mapping already, use a default one + if !hasmapto('<Plug>PerlCheck') + nmap <buffer> <unique> + \ <LocalLeader>c + \ <Plug>PerlCheck + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <LocalLeader>c' + endif + endif + +endif diff --git a/vim/after/ftplugin/perl/lint.vim b/vim/after/ftplugin/perl/lint.vim new file mode 100644 index 00000000..86740c81 --- /dev/null +++ b/vim/after/ftplugin/perl/lint.vim @@ -0,0 +1,35 @@ +" Only do this when not done yet for this buffer +" Also do nothing if 'compatible' enabled +if exists('b:did_ftplugin_perl_lint') || &compatible + finish +endif +let b:did_ftplugin_perl_lint = 1 +if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|unlet b:did_ftplugin_perl_lint' +endif + +" Set up a mapping for the linter, if we're allowed +if !exists('g:no_plugin_maps') && !exists('g:no_perl_maps') + + " Define a mapping target + nnoremap <buffer> <silent> <unique> + \ <Plug>PerlLint + \ :<C-U>write !perlcritic<CR> + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <Plug>PerlLint' + endif + + " If there isn't a key mapping already, use a default one + if !hasmapto('<Plug>PerlLint') + nmap <buffer> <unique> + \ <LocalLeader>l + \ <Plug>PerlLint + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <LocalLeader>l' + endif + endif + +endif diff --git a/vim/after/ftplugin/perl/tidy.vim b/vim/after/ftplugin/perl/tidy.vim new file mode 100644 index 00000000..18033a42 --- /dev/null +++ b/vim/after/ftplugin/perl/tidy.vim @@ -0,0 +1,35 @@ +" Only do this when not done yet for this buffer +" Also do nothing if 'compatible' enabled +if exists('b:did_ftplugin_perl_tidy') || &compatible + finish +endif +let b:did_ftplugin_perl_tidy = 1 +if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|unlet b:did_ftplugin_perl_tidy' +endif + +" Set up a mapping for the tidier, if we're allowed +if !exists('g:no_plugin_maps') && !exists('g:no_perl_maps') + + " Define a mapping target + nnoremap <buffer> <silent> <unique> + \ <Plug>PerlTidy + \ :<C-U>%!perltidy<CR> + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <Plug>PerlTidy' + endif + + " If there isn't a key mapping already, use a default one + if !hasmapto('<Plug>PerlTidy') + nmap <buffer> <unique> + \ <LocalLeader>t + \ <Plug>PerlTidy + if exists('b:undo_ftplugin') + let b:undo_ftplugin = b:undo_ftplugin + \ . '|nunmap <buffer> <LocalLeader>t' + endif + endif + +endif |