Configurer vos éditeurs de texte ou EDI pour programmer en Perl aisément

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
  1 set encoding=utf-8
  2 set fileencoding=utf-8
  3 syntax on
  4 set nocompatible
  5
  6 filetype indent plugin on
  7 filetype plugin on
  8 highlight Comment ctermfg=blue
  9 set hidden
 10 set wildmenu
 11 set showcmd
 12 set hlsearch
 13 set ignorecase
 14 set smartcase
 15 set backspace=indent,eol,start
 16 set nostartofline
 17 set ruler
 18 set laststatus=2
 19 set confirm
 20 set visualbell
 21 set t_vb=
 22 set cmdheight=2
 23 set number
 24 set notimeout ttimeout ttimeoutlen=200
 25 set shiftwidth=4
 26 set softtabstop=4
 27 set expandtab
 28 set showmatch
 29 set ffs=unix
 30
 31 "--------------------------------------------------------------------------------
 32 " Status line customization
 33
 34 function! InsertStatuslineColor(mode)
 35     if a:mode == 'i'
 36         hi statusline ctermfg=196 ctermbg=15
 37     elseif a:mode == 'r'
 38         hi statusline ctermfg=5 ctermbg=0
 39     else
 40         hi statusline ctermfg=226 ctermbg=0
 41     endif
 42 endfunction
 43
 44 au InsertEnter * call InsertStatuslineColor(v:insertmode)
 45 au InsertLeave * hi statusline ctermfg=243 ctermbg=46
 46
 47 " default the statusline when entering Vim
 48 hi statusline ctermfg=243 ctermbg=46
 49
 50 "set statusline=%t[%{strlen(&fenc)?&fenc:'none'},%{&ff}]%h%m%r%y%=%c,%l/%L\ %P
 51
 52 set statusline=[%n]                                 "buffer number
 53 set statusline+=\ %t                                "tail of the filename
 54 set statusline+=\ %m                                "modified flag
 55 set statusline+=\ %r                                "read only flag
 56 set statusline+=\ [%{strlen(&fenc)?&fenc:'none'},   "file encoding
 57 set statusline+=%{&ff}]                             "file format
 58 set statusline+=%h                                  "help file flag
 59 set statusline+=%y                                  "filetype
 60 set statusline+=\ \ \ Char(D-H):%b-%B               "Value of byte under cursor in dec & hex
 61 set statusline+=\ Offset(D-H):%o-%O                 "Byte number in file of byte under cursor in dex & hex, first byte is 1 - Mnemonic: Offset from start of file (with one added)k
 62 set statusline+=%=                                  "left/right separator
 63 set statusline+=%v-%c,                              "virtual and real cursor column
 64 set statusline+=%l/%L                               "cursor line/total lines
 65 set statusline+=\ %P                                "percent through file
 66 "--------------------------------------------------------------------------------
 67
 68 autocmd FileType * setlocal formatoptions-=c formatoptions-=r formatoptions-=o
 69
 70 " abréviations
 71 abbreviate ch chomp
 72 abbreviate lb next if $_ =~ m{^ \s* ([#].*)* $}x; # lignes commentaires ou vides
 73 abbreviate re3 # my @vars = $str =~ /\$\{([^}]+)\}/g;
 74 abbreviate hdp #!/usr/bin/env perl^Muse strict;^Muse warnings;^Muse feature 'say';
 75
 76
 77 " mapping
 78 ":map <F2> a<C-R>=strftime("%c")<CR><Esc>
 79 :map <F2> a# Last modified : <C-R>=strftime("%A %d %B %Y %H:%M")<CR><Esc>
 80 :map HDP  a#!/usr/bin/env perl^Muse strict;^Muse warnings;^Muse feature 'say';^M