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
|
" Author: w0rp <devw0rp@gmail.com>
" Description: A linter for checking ALE project code itself.
function! ale_linters#vim#ale_custom_linting_rules#GetExecutable(buffer) abort
let l:filename = expand('#' . a:buffer . ':p')
let l:dir_list = []
for l:dir in split(&runtimepath, ',')
if l:filename[:len(l:dir) - 1] is# l:dir
call add(l:dir_list, l:dir)
endif
endfor
return !empty(l:dir_list)
\ ? findfile('test/script/custom-linting-rules', join(l:dir_list, ','))
\ : ''
endfunction
function! s:GetALEProjectDir(buffer) abort
let l:executable = ale_linters#vim#ale_custom_linting_rules#GetExecutable(a:buffer)
return ale#path#Dirname(ale#path#Dirname(ale#path#Dirname(l:executable)))
endfunction
function! ale_linters#vim#ale_custom_linting_rules#GetCommand(buffer) abort
let l:dir = s:GetALEProjectDir(a:buffer)
return ale#path#CdString(l:dir) . '%e .'
endfunction
function! ale_linters#vim#ale_custom_linting_rules#Handle(buffer, lines) abort
let l:dir = s:GetALEProjectDir(a:buffer)
let l:output = []
let l:pattern = '\v^([a-zA-Z]?:?[^:]+):(\d+) (.+)$'
for l:match in ale#util#GetMatches(a:lines, l:pattern)
let l:filename = ale#path#GetAbsPath(l:dir, l:match[1])
if bufnr(l:filename) is a:buffer
call add(l:output, {
\ 'lnum': l:match[2],
\ 'text': l:match[3],
\ 'type': 'W',
\})
endif
endfor
return l:output
endfunction
call ale#linter#Define('vim', {
\ 'name': 'ale_custom_linting_rules',
\ 'executable_callback': 'ale_linters#vim#ale_custom_linting_rules#GetExecutable',
\ 'command_callback': 'ale_linters#vim#ale_custom_linting_rules#GetCommand',
\ 'callback': 'ale_linters#vim#ale_custom_linting_rules#Handle',
\ 'lint_file': 1,
\})
|
