" perl/tidy.vim: Use Perl::Tidy to format and filter scripts " Don't load if running compatible or too old if &compatible || v:version < 700 finish endif " Don't load if already loaded if exists('b:did_ftplugin_perl_tidy') finish endif " Flag as loaded let b:did_ftplugin_perl_tidy = 1 let b:undo_ftplugin = b:undo_ftplugin \ . '|unlet b:did_ftplugin_perl_tidy' " Plugin function function s:PerlTidy() let l:view = winsaveview() %!perltidy call winrestview(l:view) endfunction " Stop here if the user doesn't want ftplugin mappings if exists('g:no_plugin_maps') || exists('g:no_perl_maps') finish endif " Define a mapping target nnoremap \ PerlTidy \ :call PerlTidy() let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap PerlTidy' " If there isn't a key mapping already, use a default one if !hasmapto('PerlTidy') nmap \ t \ PerlTidy let b:undo_ftplugin = b:undo_ftplugin \ . '|nunmap t' endif