vim之perl-support的小修改

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

实在是不喜欢将这种针对某种类型的插件放在plugin目录，因为这样不论打开什么类型的文件都会加载插件。之前c-support就被我扔到ftplugin了，一点问题没有。但perl-support有点小问题（虽然两个插件出自一个作者之手），原因是perl-support中的autocmd用的是BufNewFile,BufRead触发事件，改成FileType就行了。

另外还要将perl-support.vim和ftplugin中的perl.vim合并成perl.vim放于ftplugin下，不能分开放在ftplugin/perl/目录下，某则linux下会找不到template文件

修改perl-support.vim最后几行如下：



   5: BufNewFile,BufRead *.pl,*.pm,*.t,*.pod



   7: BufNewFile,BufRead *

   8:  autocmd FileType 

   9: *

  10:  

  11: \ if ( &filetype == 'perl' || &filetype == 'pod') 

  12: |

  13:  

  14: \ call 

  15: Perl_CreateMenusDelayed() 

  16: |

  17:  

  18: \ call mmtemplates#core#CreateMaps ( 'g:Perl_Templates', 

  19: g:Perl_MapLeader ) 

  20: |

  21:  

  22: \ endif |



  24:  autocmd BufRead 

  25: *

  26:  

;filetype == 'perl' || &filetype == 'pod') 

  28: |

  29:  

  30: \ call 

  31: Perl_CreateMenusDelayed() 

  32: |

  33:  

  34: \ call mmtemplates#core#CreateMaps ( 'g:Perl_Templates', 

  35: g:Perl_MapLeader ) 

  36: |

  37:  

endif 



  40:  autocmd 

  41: BufNewFile,BufRead *.pod setlocal syntax=perl

  42:  autocmd 

  43: BufNewFile,BufRead *.t setlocal 

  44: filetype=perl



  46:  autocmd 

  47: BufNewFile *.pl call 

  48: mmtemplates#core#InsertTemplate(g:Perl_Templates, 'Comments.file description 

  49: pl')

  50:  autocmd BufNewFile *.pm call 

  51: mmtemplates#core#InsertTemplate(g:Perl_Templates, 'Comments.file description 

  52: pm')

  53:  autocmd BufNewFile *.t call 

  54: mmtemplates#core#InsertTemplate(g:Perl_Templates, 'Comments.file description 

  55: t')

  56:  autocmd BufNew *.pl,*.pm,*.t,*.pod call 

  57: Perl_InitializePerlInterface()

  58:  autocmd BufRead 

  59: *.pl,*.pm,*.t,*.pod call Perl_HighlightJumpTargets()



  61:  

in the quickfix window.

  63:  autocmd BufReadPost 

  64: quickfix setlocal wrap | setlocal linebreak

  65:  



  67:  exe 'autocmd BufNewFile,BufReadPost 

  68: '.s:Perl_PerlModuleList.' setlocal foldmethod=expr | setlocal 

  69: foldexpr=Perl_ModuleListFold(v:lnum)'

  70:  



;filetype =~ '^\(perl\|pod\)$' 

  73: |

  74:  

endif

endif