mirror of
https://github.com/dense-analysis/ale
synced 2024-12-27 00:22:28 +00:00
ba38688dff
With earlier elm versions, a separate package file is maintained for tests, which when properly configured enabled the compiler to find what it needed to compile the tests. Under elm 0.19, test dependencies are managed in the top-level package file, so `elm make` will fail on the tests. `elm-test make` is required in this case. See https://github.com/elm-explorations/test/issues/64
225 lines
7.4 KiB
VimL
225 lines
7.4 KiB
VimL
" Author: buffalocoder - https://github.com/buffalocoder, soywod - https://github.com/soywod, hecrj - https://github.com/hecrj
|
|
" Description: Elm linting in Ale. Closely follows the Syntastic checker in https://github.com/ElmCast/elm-vim.
|
|
|
|
call ale#Set('elm_make_executable', 'elm')
|
|
call ale#Set('elm_make_use_global', get(g:, 'ale_use_global_executables', 0))
|
|
|
|
function! ale_linters#elm#make#Handle(buffer, lines) abort
|
|
let l:output = []
|
|
let l:unparsed_lines = []
|
|
|
|
for l:line in a:lines
|
|
if l:line[0] is# '{'
|
|
" Elm 0.19
|
|
call ale_linters#elm#make#HandleElm019Line(l:line, l:output)
|
|
elseif l:line[0] is# '['
|
|
" Elm 0.18
|
|
call ale_linters#elm#make#HandleElm018Line(l:line, l:output)
|
|
elseif l:line isnot# 'Successfully generated /dev/null'
|
|
call add(l:unparsed_lines, l:line)
|
|
endif
|
|
endfor
|
|
|
|
if len(l:unparsed_lines) > 0
|
|
call add(l:output, {
|
|
\ 'lnum': 1,
|
|
\ 'type': 'E',
|
|
\ 'text': l:unparsed_lines[0],
|
|
\ 'detail': join(l:unparsed_lines, "\n")
|
|
\})
|
|
endif
|
|
|
|
return l:output
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#HandleElm019Line(line, output) abort
|
|
let l:report = json_decode(a:line)
|
|
|
|
if l:report.type is? 'error'
|
|
" General problem
|
|
let l:details = ale_linters#elm#make#ParseMessage(l:report.message)
|
|
|
|
if empty(l:report.path)
|
|
let l:report.path = 'Elm'
|
|
endif
|
|
|
|
if ale_linters#elm#make#FileIsBuffer(l:report.path)
|
|
call add(a:output, {
|
|
\ 'lnum': 1,
|
|
\ 'type': 'E',
|
|
\ 'text': l:details,
|
|
\})
|
|
else
|
|
call add(a:output, {
|
|
\ 'lnum': 1,
|
|
\ 'type': 'E',
|
|
\ 'text': l:report.path .' - '. l:details,
|
|
\ 'detail': l:report.path ." ----------\n\n". l:details,
|
|
\})
|
|
endif
|
|
else
|
|
" Compilation errors
|
|
for l:error in l:report.errors
|
|
let l:file_is_buffer = ale_linters#elm#make#FileIsBuffer(l:error.path)
|
|
|
|
for l:problem in l:error.problems
|
|
let l:details = ale_linters#elm#make#ParseMessage(l:problem.message)
|
|
|
|
if l:file_is_buffer
|
|
" Buffer module has problems
|
|
call add(a:output, {
|
|
\ 'lnum': l:problem.region.start.line,
|
|
\ 'col': l:problem.region.start.column,
|
|
\ 'end_lnum': l:problem.region.end.line,
|
|
\ 'end_col': l:problem.region.end.column,
|
|
\ 'type': 'E',
|
|
\ 'text': l:details,
|
|
\})
|
|
else
|
|
" Imported module has problems
|
|
let l:location = l:error.path .':'. l:problem.region.start.line
|
|
call add(a:output, {
|
|
\ 'lnum': 1,
|
|
\ 'type': 'E',
|
|
\ 'text': l:location .' - '. l:details,
|
|
\ 'detail': l:location ." ----------\n\n". l:details,
|
|
\})
|
|
endif
|
|
endfor
|
|
endfor
|
|
endif
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#HandleElm018Line(line, output) abort
|
|
let l:errors = json_decode(a:line)
|
|
|
|
for l:error in l:errors
|
|
let l:file_is_buffer = ale_linters#elm#make#FileIsBuffer(l:error.file)
|
|
|
|
if l:file_is_buffer
|
|
" Current buffer has problems
|
|
call add(a:output, {
|
|
\ 'lnum': l:error.region.start.line,
|
|
\ 'col': l:error.region.start.column,
|
|
\ 'end_lnum': l:error.region.end.line,
|
|
\ 'end_col': l:error.region.end.column,
|
|
\ 'type': (l:error.type is? 'error') ? 'E' : 'W',
|
|
\ 'text': l:error.overview,
|
|
\ 'detail': l:error.overview . "\n\n" . l:error.details
|
|
\})
|
|
elseif l:error.type is? 'error'
|
|
" Imported module has errors
|
|
let l:location = l:error.file .':'. l:error.region.start.line
|
|
|
|
call add(a:output, {
|
|
\ 'lnum': 1,
|
|
\ 'type': 'E',
|
|
\ 'text': l:location .' - '. l:error.overview,
|
|
\ 'detail': l:location ." ----------\n\n". l:error.overview . "\n\n" . l:error.details
|
|
\})
|
|
endif
|
|
endfor
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#FileIsBuffer(path) abort
|
|
return ale#path#IsTempName(a:path)
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#ParseMessage(message) abort
|
|
return join(map(copy(a:message), 'ale_linters#elm#make#ParseMessageItem(v:val)'), '')
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#ParseMessageItem(item) abort
|
|
if type(a:item) is v:t_string
|
|
return a:item
|
|
else
|
|
return a:item.string
|
|
endif
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#GetPackageFile(buffer) abort
|
|
let l:elm_json = ale#path#FindNearestFile(a:buffer, 'elm.json')
|
|
|
|
if empty(l:elm_json)
|
|
" Fallback to Elm 0.18
|
|
let l:elm_json = ale#path#FindNearestFile(a:buffer, 'elm-package.json')
|
|
endif
|
|
|
|
return l:elm_json
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#IsVersionGte19(buffer) abort
|
|
let l:elm_json = ale_linters#elm#make#GetPackageFile(a:buffer)
|
|
|
|
if l:elm_json =~# '-package'
|
|
return 0
|
|
else
|
|
return 1
|
|
endif
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#GetRootDir(buffer) abort
|
|
let l:elm_json = ale_linters#elm#make#GetPackageFile(a:buffer)
|
|
|
|
if empty(l:elm_json)
|
|
return ''
|
|
else
|
|
return fnamemodify(l:elm_json, ':p:h')
|
|
endif
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#IsTest(buffer) abort
|
|
let l:root_dir = ale_linters#elm#make#GetRootDir(a:buffer)
|
|
|
|
if empty(l:root_dir)
|
|
return 0
|
|
endif
|
|
|
|
let l:tests_dir = join([l:root_dir, 'tests', ''], has('win32') ? '\' : '/')
|
|
|
|
let l:buffer_path = fnamemodify(bufname(a:buffer), ':p')
|
|
|
|
if match(l:buffer_path, l:tests_dir) == 0
|
|
return 1
|
|
else
|
|
return 0
|
|
endif
|
|
endfunction
|
|
|
|
" Return the command to execute the linter in the projects directory.
|
|
" If it doesn't, then this will fail when imports are needed.
|
|
function! ale_linters#elm#make#GetCommand(buffer) abort
|
|
let l:root_dir = ale_linters#elm#make#GetRootDir(a:buffer)
|
|
|
|
if empty(l:root_dir)
|
|
let l:dir_set_cmd = ''
|
|
else
|
|
let l:dir_set_cmd = 'cd ' . ale#Escape(l:root_dir) . ' && '
|
|
endif
|
|
|
|
" The elm compiler, at the time of this writing, uses '/dev/null' as
|
|
" a sort of flag to tell the compiler not to generate an output file,
|
|
" which is why this is hard coded here.
|
|
" Source: https://github.com/elm-lang/elm-compiler/blob/19d5a769b30ec0b2fc4475985abb4cd94cd1d6c3/builder/src/Generate/Output.hs#L253
|
|
return l:dir_set_cmd . '%e make --report=json --output=/dev/null %t'
|
|
endfunction
|
|
|
|
function! ale_linters#elm#make#GetExecutable(buffer) abort
|
|
let l:is_test = ale_linters#elm#make#IsTest(a:buffer)
|
|
let l:is_v19 = ale_linters#elm#make#IsVersionGte19(a:buffer)
|
|
|
|
if l:is_test && l:is_v19
|
|
return ale#node#FindExecutable(a:buffer, 'elm_make', ['node_modules/.bin/elm-test'])
|
|
else
|
|
return ale#node#FindExecutable(a:buffer, 'elm_make', ['node_modules/.bin/elm'])
|
|
endif
|
|
endfunction
|
|
|
|
call ale#linter#Define('elm', {
|
|
\ 'name': 'make',
|
|
\ 'executable_callback': 'ale_linters#elm#make#GetExecutable',
|
|
\ 'output_stream': 'both',
|
|
\ 'command_callback': 'ale_linters#elm#make#GetCommand',
|
|
\ 'callback': 'ale_linters#elm#make#Handle'
|
|
\})
|