summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Spiers <ben.spiers22@gmail.com>2018-07-19 18:25:45 +0100
committerBen Spiers <ben.spiers22@gmail.com>2018-07-19 18:47:37 +0100
commit324838adae32f4062c2099c297530588fb80a1a3 (patch)
treee115bd3d4d82004f33dfa2ded1450d6e8f99e0d2
parent27f1915745d22a2d3831b3431a498d3ef674648c (diff)
downloadale-324838adae32f4062c2099c297530588fb80a1a3.zip
Add support for Fortran language server by @hansec
-rw-r--r--README.md2
-rw-r--r--ale_linters/fortran/language_server.vim23
-rw-r--r--doc/ale.txt2
3 files changed, 25 insertions, 2 deletions
diff --git a/README.md b/README.md
index dea58fd9..6196512d 100644
--- a/README.md
+++ b/README.md
@@ -119,7 +119,7 @@ formatting.
| Erb | [erb](https://apidock.com/ruby/ERB), [erubi](https://github.com/jeremyevans/erubi), [erubis](https://github.com/kwatch/erubis) |
| Erlang | [erlc](http://erlang.org/doc/man/erlc.html), [SyntaxErl](https://github.com/ten0s/syntaxerl) |
| Fish | fish [-n flag](https://linux.die.net/man/1/fish)
-| Fortran | [gcc](https://gcc.gnu.org/) |
+| Fortran | [gcc](https://gcc.gnu.org/), [language_server](https://github.com/hansec/fortran-language-server) |
| Fountain | [proselint](http://proselint.com/) |
| FusionScript | [fusion-lint](https://github.com/RyanSquared/fusionscript) |
| Git Commit Messages | [gitlint](https://github.com/jorisroovers/gitlint) |
diff --git a/ale_linters/fortran/language_server.vim b/ale_linters/fortran/language_server.vim
new file mode 100644
index 00000000..c0dd51bf
--- /dev/null
+++ b/ale_linters/fortran/language_server.vim
@@ -0,0 +1,23 @@
+" Author: unpairedbracket ben.spiers22@gmail.com
+" Description: A language server for fortran
+
+call ale#Set('fortran_language_server_executable', 'fortls')
+call ale#Set('fortran_language_server_use_global', get(g:, 'ale_use_global_executables', 0))
+
+function! ale_linters#fortran#language_server#GetExecutable(buffer) abort
+ return ale#Var(a:buffer, 'fortran_language_server_executable')
+endfunction
+
+function! ale_linters#fortran#language_server#GetProjectRoot(buffer) abort
+ let l:fortls_file = ale#path#FindNearestFile(a:buffer, '.fortls')
+
+ return !empty(l:fortls_file) ? fnamemodify(l:fortls_file, ':h') : ''
+endfunction
+
+call ale#linter#Define('fortran', {
+\ 'name': 'language_server',
+\ 'lsp': 'stdio',
+\ 'executable_callback': 'ale_linters#fortran#language_server#GetExecutable',
+\ 'command_callback': 'ale_linters#fortran#language_server#GetExecutable',
+\ 'project_root_callback': 'ale_linters#fortran#language_server#GetProjectRoot',
+\})
diff --git a/doc/ale.txt b/doc/ale.txt
index 2b25091e..2862057b 100644
--- a/doc/ale.txt
+++ b/doc/ale.txt
@@ -355,7 +355,7 @@ Notes:
* Erb: `erb`, `erubi`, `erubis`
* Erlang: `erlc`, `SyntaxErl`
* Fish: `fish` (-n flag)
-* Fortran: `gcc`
+* Fortran: `gcc`, `language_server`
* Fountain: `proselint`
* FusionScript: `fusion-lint`
* Git Commit Messages: `gitlint`