diff --git a/README.md b/README.md index a821a5f..2eb9d9f 100644 --- a/README.md +++ b/README.md @@ -88,6 +88,7 @@ name. That seems to be the fairest way to arrange this table. | SASS | [sass-lint](https://www.npmjs.com/package/sass-lint), [stylelint](https://github.com/stylelint/stylelint) | | SCSS | [sass-lint](https://www.npmjs.com/package/sass-lint), [scss-lint](https://github.com/brigade/scss-lint), [stylelint](https://github.com/stylelint/stylelint) | | Scala | [scalac](http://scala-lang.org) | +| SML | [smlnj](http://www.smlnj.org/) | | Swift | [swiftlint](https://swift.org/) | | Tex | [proselint](http://proselint.com/) | | Text^^ | [proselint](http://proselint.com/) | diff --git a/ale_linters/sml/smlnj.vim b/ale_linters/sml/smlnj.vim new file mode 100644 index 0000000..5e7f40a --- /dev/null +++ b/ale_linters/sml/smlnj.vim @@ -0,0 +1,42 @@ +" Author: Paulo Alem +" Description: Rudimentary SML checking with smlnj compiler + +if exists('g:loaded_ale_sml_smlnj_checker') + finish +endif + +let g:loaded_ale_sml_smlnj_checker = 1 + +function! ale_linters#sml#smlnj#Handle(buffer, lines) abort + " Try to match basic sml errors + + let l:out = [] + let l:pattern = '^.*\:\([0-9\.]\+\)\ \(\w\+\)\:\ \(.*\)' + + for l:line in a:lines + let l:match = matchlist(l:line, l:pattern) + + if len(l:match) == 0 + continue + endif + + call add(l:out, { + \ 'bufnr': a:buffer, + \ 'lnum': l:match[1] + 0, + \ 'vcol': 0, + \ 'col': 1, + \ 'text': l:match[2] . ': ' . l:match[3], + \ 'type': l:match[2] ==# 'error' ? 'E' : 'W', + \ 'nr': -1, + \}) + endfor + + return l:out +endfunction + +call g:ale#linter#Define('sml', { +\ 'name': 'smlnj', +\ 'executable': 'sml', +\ 'command': 'sml', +\ 'callback': 'ale_linters#sml#smlnj#Handle', +\}) diff --git a/doc/ale.txt b/doc/ale.txt index f21983b..5f9cdea 100644 --- a/doc/ale.txt +++ b/doc/ale.txt @@ -109,6 +109,7 @@ The following languages and tools are supported. * SASS: 'sasslint', 'stylelint' * SCSS: 'sasslint', 'scsslint', 'stylelint' * Scala: 'scalac' +* SML: 'smlnj' * Swift: 'swiftlint' * Tex: 'proselint' * Text: 'proselint'