diff options
author | Vincent Lequertier <sky@riseup.net> | 2016-10-09 17:31:03 +0200 |
---|---|---|
committer | Vincent Lequertier <sky@riseup.net> | 2016-10-09 17:33:03 +0200 |
commit | d1cf20868358281d7940c0f24052d8a04ad61acf (patch) | |
tree | 9bf487be87ec3f3ec1e2c8250f5cec731bc94024 /ale_linters/perl/perlcritic.vim | |
parent | 34241edcdbc562f074988ba54b970a6ecf8dd4d9 (diff) | |
download | ale-d1cf20868358281d7940c0f24052d8a04ad61acf.zip |
Add support for perl and perlcritic
Diffstat (limited to 'ale_linters/perl/perlcritic.vim')
-rw-r--r-- | ale_linters/perl/perlcritic.vim | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/ale_linters/perl/perlcritic.vim b/ale_linters/perl/perlcritic.vim new file mode 100644 index 00000000..98ac83a8 --- /dev/null +++ b/ale_linters/perl/perlcritic.vim @@ -0,0 +1,46 @@ +" Author: Vincent Lequertier <https://github.com/SkySymbol> +" Description: This file adds support for checking perl with perl critic + +if exists('g:loaded_ale_linters_perl_perlcritic') + finish +endif + +let g:loaded_ale_linters_perl_perlcritic = 1 +function! ale_linters#perl#perlcritic#Handle(buffer, lines) + let pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' + let output = [] + + for line in a:lines + let l:match = matchlist(line, pattern) + + if len(l:match) == 0 + continue + endif + + let line = l:match[3] + let column = 1 + let text = l:match[1] + let type = 'E' + + " vcol is Needed to indicate that the column is a character. + call add(output, { + \ 'bufnr': a:buffer, + \ 'lnum': line, + \ 'vcol': 0, + \ 'col': column, + \ 'text': text, + \ 'type': type, + \ 'nr': -1, + \}) + endfor + + return output +endfunction + +call ALEAddLinter('perl', { +\ 'name': 'perlcritic', +\ 'executable': 'perlcritic', +\ 'output_stream': 'sdtout', +\ 'command': 'perlcritic --verbose 3 --nocolor', +\ 'callback': 'ale_linters#perl#perlcritic#Handle', +\}) |