From d6add13a718e260b27a54c80d840f46206faf95d Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 17 Jun 2018 15:00:23 +1200
Subject: Use autoload function for tidy filters

---
 vim/after/ftplugin/perl/tidy.vim | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

(limited to 'vim/after/ftplugin/perl')

diff --git a/vim/after/ftplugin/perl/tidy.vim b/vim/after/ftplugin/perl/tidy.vim
index f6744f3a..64f0eda2 100644
--- a/vim/after/ftplugin/perl/tidy.vim
+++ b/vim/after/ftplugin/perl/tidy.vim
@@ -10,27 +10,20 @@ if exists('b:did_ftplugin_perl_tidy')
   finish
 endif
 
+" Don't load if the user doesn't want ftplugin mappings
+if exists('g:no_plugin_maps') || exists('g:no_perl_maps')
+  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 <buffer> <silent> <unique>
       \ <Plug>PerlTidy
-      \ :<C-U>call <SID>PerlTidy()<CR>
+      \ :<C-U>call filter#Stable('perltidy')<CR>
 let b:undo_ftplugin = b:undo_ftplugin
       \ . '|nunmap <buffer> <Plug>PerlTidy'
 
-- 
cgit v1.2.3