diff --git a/autoload/ale/loclist_jumping.vim b/autoload/ale/loclist_jumping.vim index b4d1993..2531cdb 100644 --- a/autoload/ale/loclist_jumping.vim +++ b/autoload/ale/loclist_jumping.vim @@ -2,19 +2,20 @@ " Description: This file implements functions for jumping around in a file " based on errors and warnings in the loclist or quickfix list. -function! s:GetCurrentList() abort - if g:ale_set_loclist - return getloclist(winnr()) - elseif g:ale_set_quickfix - let l:buffer = bufnr('%') +function! s:GetCurrentList() abort + let l:buffer = bufnr('%') + let l:list = [] - return filter(getqflist(), 'get(v:val, ''bufnr'', -1) == ' . l:buffer) + if g:ale_set_loclist + let l:list = getloclist(winnr()) + elseif g:ale_set_quickfix + let l:list = getqflist() endif - return [] + return filter(l:list, 'get(v:val, ''bufnr'', -1) == ' . l:buffer) endfunction -function! s:GetSortedLoclist() abort +function! ale#loclist_jumping#GetSortedList() abort let l:loclist = [] for l:item in s:GetCurrentList() @@ -41,7 +42,7 @@ endfunction " List will be returned, otherwise a pair of [line_number, column_number] will " be returned. function! ale#loclist_jumping#FindNearest(direction, wrap) abort - let l:loclist = s:GetSortedLoclist() + let l:loclist = ale#loclist_jumping#GetSortedList() if empty(l:loclist) " We couldn't find anything, so stop here. diff --git a/test/test_loclist_jumping_loading.vader b/test/test_loclist_jumping_loading.vader new file mode 100644 index 0000000..06ae374 --- /dev/null +++ b/test/test_loclist_jumping_loading.vader @@ -0,0 +1,74 @@ +Before: + let g:buffer = bufnr('%') + + function! GetList() abort + return map( + \ ale#loclist_jumping#GetSortedList(), + \ '{''lnum'': v:val.lnum, ''col'': v:val.col, ''text'': v:val.text}' + \) + endfunction + +After: + unlet! g:buffer + unlet! g:new_buffer + let g:ale_set_loclist = 1 + let g:ale_set_quickfix = 0 + call setloclist(winnr(), []) + call setqflist([]) + delfunction GetList + +Execute(The loclist should be filtered and sorted appropriately for jumping): + :new + + let g:new_buffer = bufnr('%') + + AssertNotEqual g:new_buffer, g:buffer + + call setloclist(winnr(), [ + \ {'lnum': 1, 'col': 1, 'text': 'ignore this', 'bufnr': g:buffer}, + \ {'lnum': 20, 'col': 5, 'text': 'baz', 'bufnr': g:new_buffer}, + \ {'lnum': 10, 'col': 6, 'text': 'bar', 'bufnr': g:new_buffer}, + \ {'lnum': 10, 'col': 5, 'text': 'foo', 'bufnr': g:new_buffer}, + \]) + + AssertEqual + \ [ + \ {'lnum': 10, 'col': 5, 'text': 'foo'}, + \ {'lnum': 10, 'col': 6, 'text': 'bar'}, + \ {'lnum': 20, 'col': 5, 'text': 'baz'}, + \ ], + \ GetList() + +Execute(quickfix should be filtered and sorted appropriately for jumping): + let g:ale_set_loclist = 0 + let g:ale_set_quickfix = 1 + + :new + + let g:new_buffer = bufnr('%') + + AssertNotEqual g:new_buffer, g:buffer + + call setqflist([ + \ {'lnum': 1, 'col': 1, 'text': 'ignore this', 'bufnr': g:buffer}, + \ {'lnum': 20, 'col': 5, 'text': 'baz', 'bufnr': g:new_buffer}, + \ {'lnum': 10, 'col': 6, 'text': 'bar', 'bufnr': g:new_buffer}, + \ {'lnum': 10, 'col': 5, 'text': 'foo', 'bufnr': g:new_buffer}, + \]) + + AssertEqual + \ [ + \ {'lnum': 10, 'col': 5, 'text': 'foo'}, + \ {'lnum': 10, 'col': 6, 'text': 'bar'}, + \ {'lnum': 20, 'col': 5, 'text': 'baz'}, + \ ], + \ GetList() + +Execute(An empty List should be returned when both lists are turned off): + let g:ale_set_loclist = 0 + let g:ale_set_quickfix = 0 + + call setqflist([{'lnum': 1, 'col': 1, 'text': 'foo', 'bufnr': bufnr('%')}]) + call setloclist(winnr(), [{'lnum': 1, 'col': 1, 'text': 'foo', 'bufnr': bufnr('%')}]) + + AssertEqual [], GetList()