blob: 1a7df55935ca8629a617c478111792686f6d9ff7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
" Extra configuration for 'perl' filetypes
if exists('b:did_ftplugin_after') || &compatible
finish
endif
if v:version < 700
finish
endif
if &filetype !=# 'perl'
finish
endif
let b:did_ftplugin_after = 1
let b:undo_ftplugin = b:undo_ftplugin
\ . '|unlet b:did_ftplugin_after'
" Stop here if the user doesn't want ftplugin mappings
if exists('g:no_plugin_maps') || exists('g:no_perl_maps')
finish
endif
" Set mappings
nnoremap <buffer> <LocalLeader>c
\ :<C-U>call compiler#Make('perl')<CR>
nnoremap <buffer> <LocalLeader>l
\ :<C-U>call compiler#Make('perlcritic')<CR>
nnoremap <buffer> <LocalLeader>t
\ :<C-U>call filter#Stable('perltidy')<CR>
let b:undo_ftplugin = b:undo_ftplugin
\ . '|nunmap <buffer> <LocalLeader>c'
\ . '|nunmap <buffer> <LocalLeader>l'
\ . '|nunmap <buffer> <LocalLeader>t'
" Bump version numbers
nmap <buffer> <LocalLeader>v
\ <Plug>PerlVersionBumpMinor
nmap <buffer> <LocalLeader>V
\ <Plug>PerlVersionBumpMajor
let b:undo_ftplugin = b:undo_ftplugin
\ . '|nunmap <buffer> <LocalLeader>v'
\ . '|nunmap <buffer> <LocalLeader>V'
|