" Author: Jelmer Vernooij <jelmer@jelmer.uk>
" Description: Language server for Debian package files

call ale#Set('debcontrol_debian_lsp_executable', 'debian-lsp')

function! ale_linters#debcontrol#debian_lsp#GetProjectRoot(buffer) abort
    " Find the debian directory
    let l:debian_dir = ale#path#FindNearestDirectory(a:buffer, 'debian')

    if !empty(l:debian_dir)
        return fnamemodify(l:debian_dir, ':h:h')
    endif

    return ''
endfunction

call ale#linter#Define('debcontrol', {
\   'name': 'debian_lsp',
\   'lsp': 'stdio',
\   'executable': {b -> ale#Var(b, 'debcontrol_debian_lsp_executable')},
\   'command': '%e',
\   'project_root': function('ale_linters#debcontrol#debian_lsp#GetProjectRoot'),
\})