Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

check if language code available in LanguageTool #211

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

check if language code available in LanguageTool #211

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
70 changes: 59 additions & 11 deletions editors/ltyc.vim
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -22,10 +22,6 @@ if !exists("g:ltyc_ltdirectory")
" home of LT software
let g:ltyc_ltdirectory = '~/lib/LanguageTool'
endif
if !exists("g:ltyc_ltcommand")
" alternative LT command
let g:ltyc_ltcommand = ''
endif
if !exists("g:ltyc_server")
" use an LT server?
let g:ltyc_server = 'my'
Expand All @@ -34,10 +30,6 @@ if !exists("g:ltyc_encoding")
" encoding of LaTeX source
let g:ltyc_encoding = 'auto'
endif
if !exists("g:ltyc_language")
" language code for LT
let g:ltyc_language = 'en-GB'
endif
if !exists("g:ltyc_disable")
" LT option --disable
let g:ltyc_disable = 'WHITESPACE_RULE'
Expand Down Expand Up @@ -75,6 +67,11 @@ if v:shell_error != 0
echoerr s:pref . 'install the Python module YaLafi.'
finish
endif
if !exists("g:ltyc_ltcommand")
" alternative LT command
let g:ltyc_ltcommand = ''
endif
let s:ltyc_ltcommand = ''
if g:ltyc_server != 'lt'
if !executable('java')
echoerr s:pref . 'install Java.'
Expand All @@ -84,13 +81,64 @@ if g:ltyc_server != 'lt'
if !executable(g:ltyc_ltcommand)
echoerr s:pref . 'set g:ltyc_ltcommand correctly.'
finish
else
let s:ltyc_ltcommand = g:ltyc_ltcommand
endif
else
if !filereadable(fnamemodify(g:ltyc_ltdirectory
\ . '/languagetool-commandline.jar', ':p'))
if !filereadable(fnamemodify(g:ltyc_ltdirectory . '/languagetool-commandline.jar', ':p'))
echoerr s:pref . 'set g:ltyc_ltdirectory to the'
\ . ' path of LanguageTool.'
finish
else
let s:ltyc_ltcommand = 'java -jar ' . fnamemodify(g:ltyc_ltdirectory . '/languagetool-commandline.jar', ':p:S')
endif
endif
endif

" Guess language if it is not defined
if !exists('g:ltyc_language')
let spelllangs = split(&spelllang, ',')
if len(spelllangs) > 1
echohl WarningMsg | echo 'Please select one of the &spelllang language codes numbered 0,1,...' | echohl None
let spelllang = spelllangs[inputlist(spelllangs)]
else
let spelllang = &spelllang
endif
let g:ltyc_language = substitute(spelllang, '_', '-', 'g')
endif

if empty(g:ltyc_language)
echohl WarningMsg
echomsg 'Please set g:ltyc_language to enable more accurate'
echomsg 'checks by LanguageTool. Reverting to --autoDetect.'
echohl None
let s:ltyc_language = ' --autoDetect'
else
let g:ltyc_language = substitute(g:ltyc_language, '_', '-', '')
let s:ltyc_language = ' --language ' . g:ltyc_language
if !exists('s:list')
silent let s:list = split(
\ system(s:ltyc_ltcommand . ' --list NOFILE'),
\ '[[:space:]]')
endif
if !empty(s:list)
if match(s:list, '\c^' . g:ltyc_language . '$') == -1
echohl WarningMsg
echomsg "Language '" . g:ltyc_language . "'"
\ . " not listed in output of the command "
\ . "'" . s:ltyc_ltcommand . " --list'! "
\ . "Please check its output!"
echohl None
if match(g:ltyc_language, '-') != -1
let g:ltyc_language = matchstr(g:ltyc_language, '\v^[^-]+')
echohl WarningMsg
echomsg "Trying '" . g:ltyc_language . "' instead."
echohl None
else
echohl WarningMsg
echomsg "Trying '" . g:ltyc_language . "' anyway."
echohl None
endif
endif
endif
endif
Expand All @@ -105,7 +153,7 @@ let &l:makeprg =
\ . ' --encoding ' . (g:ltyc_encoding ==# 'auto'
\ ? (empty(&l:fileencoding) ? &l:encoding : &l:fileencoding)
\ : g:ltyc_encoding)
\ . ' --language ' . g:ltyc_language
\ . s:ltyc_language
\ . ' --disable "' . g:ltyc_disable . '"'
\ . ' --enable "' . g:ltyc_enable . '"'
\ . ' --disablecategories "' . g:ltyc_disablecategories . '"'
Expand Down