zoukankan      html  css  js  c++  java
  • vim之perlsupport的小修改

    实在是不喜欢将这种针对某种类型的插件放在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最后几行如下:

       2: if has("autocmd")
       3:  "
       4:  "autocmd 
       5: BufNewFile,BufRead *.pl,*.pm,*.t,*.pod
       6:  "autocmd 
       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 |
      23:  "
      24:  autocmd BufRead 
      25: *
      26:  
      27: \ if ( &;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:  
      38: \ endif 
      39:  "
      40:  autocmd 
      41: BufNewFile,BufRead *.pod setlocal syntax=perl
      42:  autocmd 
      43: BufNewFile,BufRead *.t setlocal 
      44: filetype=perl
      45:  "
      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()
      60:  "
      61:  
      62: " Wrap error descriptions in the quickfix window.
      63:  autocmd BufReadPost 
      64: quickfix setlocal wrap | setlocal linebreak
      65:  
      66: "
      67:  exe 'autocmd BufNewFile,BufReadPost 
      68: '.s:Perl_PerlModuleList.' setlocal foldmethod=expr | setlocal 
      69: foldexpr=Perl_ModuleListFold(v:lnum)'
      70:  
      71: "
      72:  autocmd FileType * if &;filetype =~ '^\(perl\|pod\)$' 
      73: |
      74:  
      75: \ call s:CreateAdditionalMaps() | endif
      76: endif



  • 相关阅读:
    浏览器的渲染过程、渲染原理
    echarts简单用法快速上手
    gulp自动化构建工具使用
    vue路由高级语法糖
    git项目常用命令
    vue项目中快捷语法糖
    UpnP Hacking
    无线路由器认证会话劫持漏洞
    DNS缓存欺骗攻击
    识别无线设备
  • 原文地址:https://www.cnblogs.com/tshell/p/2814975.html
Copyright © 2011-2022 走看看