mirror of
https://github.com/inkarkat/vim-ingo-library.git
synced 2026-05-29 11:18:51 +02:00
Ingo Karkat
98 lines
3.4 KiB
VimL
98 lines
3.4 KiB
VimL
" ingo/pos.vim: Functions for comparing positions.
|
|
"
|
|
" DEPENDENCIES:
|
|
"
|
|
" Copyright: (C) 2014-2019 Ingo Karkat
|
|
" The VIM LICENSE applies to this script; see ':help copyright'.
|
|
"
|
|
" Maintainer: Ingo Karkat <ingo@karkat.de>
|
|
|
|
function! ingo#pos#Make4( pos, ... ) abort
|
|
if a:0 > 0
|
|
if a:0 != 1
|
|
throw 'Make4: Must pass exactly two line, column arguments or a List'
|
|
endif
|
|
return [0, a:pos, a:1, 0]
|
|
endif
|
|
|
|
return (len(a:pos) >= 4 ? a:pos : [0, get(a:pos, 0, 0), get(a:pos, 1, 0), 0])
|
|
endfunction
|
|
function! ingo#pos#Make2( pos ) abort
|
|
return (len(a:pos) >= 3 ? a:pos[1:2] : a:pos)
|
|
endfunction
|
|
|
|
|
|
function! ingo#pos#Compare( posA, posB )
|
|
if a:posA == a:posB
|
|
return 0
|
|
else
|
|
return (a:posA[0] > a:posB[0] || a:posA[0] == a:posB[0] && a:posA[1] > a:posB[1] ? 1 : -1)
|
|
endif
|
|
endfunction
|
|
function! ingo#pos#Sort( positions ) abort
|
|
return sort(a:positions, function('ingo#pos#Compare'))
|
|
endfunction
|
|
|
|
function! ingo#pos#IsOnOrAfter( posA, posB )
|
|
return (a:posA[0] > a:posB[0] || a:posA[0] == a:posB[0] && a:posA[1] >= a:posB[1])
|
|
endfunction
|
|
function! ingo#pos#IsAfter( posA, posB )
|
|
return (a:posA[0] > a:posB[0] || a:posA[0] == a:posB[0] && a:posA[1] > a:posB[1])
|
|
endfunction
|
|
|
|
function! ingo#pos#IsOnOrBefore( posA, posB )
|
|
return (a:posA[0] < a:posB[0] || a:posA[0] == a:posB[0] && a:posA[1] <= a:posB[1])
|
|
endfunction
|
|
function! ingo#pos#IsBefore( posA, posB )
|
|
return (a:posA[0] < a:posB[0] || a:posA[0] == a:posB[0] && a:posA[1] < a:posB[1])
|
|
endfunction
|
|
|
|
function! ingo#pos#IsOutside( pos, start, end )
|
|
return (a:pos[0] < a:start[0] || a:pos[0] > a:end[0] || a:pos[0] == a:start[0] && a:pos[1] < a:start[1] || a:pos[0] == a:end[0] && a:pos[1] > a:end[1])
|
|
endfunction
|
|
|
|
function! ingo#pos#IsInside( pos, start, end )
|
|
return ! ingo#pos#IsOutside(a:pos, a:start, a:end)
|
|
endfunction
|
|
|
|
function! ingo#pos#IsInsideVisualSelection( pos, ... )
|
|
let l:start = (a:0 == 2 ? a:1 : getpos("'<")[1:2])
|
|
let l:end = (a:0 == 2 ? a:2 : getpos("'>")[1:2])
|
|
if &selection ==# 'exclusive'
|
|
return ! (a:pos[0] < l:start[0] || a:pos[0] > l:end[0] || a:pos[0] == l:start[0] && a:pos[1] < l:start[1] || a:pos[0] == l:end[0] && a:pos[1] >= l:end[1])
|
|
else
|
|
return ! (a:pos[0] < l:start[0] || a:pos[0] > l:end[0] || a:pos[0] == l:start[0] && a:pos[1] < l:start[1] || a:pos[0] == l:end[0] && a:pos[1] > l:end[1])
|
|
endif
|
|
endfunction
|
|
|
|
function! ingo#pos#Before( pos )
|
|
if a:pos[1] == 1
|
|
return [a:pos[0], 0]
|
|
endif
|
|
|
|
let l:charBeforePosition = matchstr(getline(a:pos[0]), '.\%' . a:pos[1] . 'c')
|
|
return (empty(l:charBeforePosition) ? [0, 0] : [a:pos[0], a:pos[1] - len(l:charBeforePosition)])
|
|
endfunction
|
|
function! ingo#pos#After( pos )
|
|
let l:charAtPosition = matchstr(getline(a:pos[0]), '\%' . a:pos[1] . 'c.')
|
|
return (empty(l:charAtPosition) ? [0, 0] : [a:pos[0], a:pos[1] + len(l:charAtPosition)])
|
|
endfunction
|
|
|
|
|
|
|
|
function! ingo#pos#SameLineIsOnOrAfter( posA, posB )
|
|
return (a:posA[0] == a:posB[0] && a:posA[1] >= a:posB[1])
|
|
endfunction
|
|
function! ingo#pos#SameLineIsAfter( posA, posB )
|
|
return (a:posA[0] == a:posB[0] && a:posA[1] > a:posB[1])
|
|
endfunction
|
|
|
|
function! ingo#pos#SameLineIsOnOrBefore( posA, posB )
|
|
return (a:posA[0] == a:posB[0] && a:posA[1] <= a:posB[1])
|
|
endfunction
|
|
function! ingo#pos#SameLineIsBefore( posA, posB )
|
|
return (a:posA[0] == a:posB[0] && a:posA[1] < a:posB[1])
|
|
endfunction
|
|
|
|
" vim: set ts=8 sts=4 sw=4 noexpandtab ff=unix fdm=syntax :
|