mirror of
https://github.com/SpaceVim/SpaceVim.git
synced 2025-02-03 22:00:07 +08:00
148 lines
4.6 KiB
VimL
Vendored
148 lines
4.6 KiB
VimL
Vendored
" ___vital___
|
|
" NOTE: lines between '" ___vital___' is generated by :Vitalize.
|
|
" Do not mofidify the code nor insert new lines before '" ___vital___'
|
|
function! s:_SID() abort
|
|
return matchstr(expand('<sfile>'), '<SNR>\zs\d\+\ze__SID$')
|
|
endfunction
|
|
execute join(['function! vital#_over#Coaster#Search#import() abort', printf("return map({'region': '', '_vital_depends': '', 'pos_ignore_syntaxes': '', 'pattern_by_range': '', 'pattern_in_region': '', 'pattern_in_region_char': '', 'pattern_in_region_block': '', 'pattern_in_region_line': '', 'region_pair': '', 'pattern_in_range': '', 'count': '', 'text_by_pattern': '', '_vital_loaded': ''}, \"vital#_over#function('<SNR>%s_' . v:key)\")", s:_SID()), 'endfunction'], "\n")
|
|
delfunction s:_SID
|
|
" ___vital___
|
|
scriptencoding utf-8
|
|
let s:save_cpo = &cpo
|
|
set cpo&vim
|
|
|
|
|
|
|
|
function! s:_vital_loaded(V)
|
|
let s:V = a:V
|
|
let s:Buffer = s:V.import("Coaster.Buffer")
|
|
endfunction
|
|
|
|
|
|
function! s:_vital_depends()
|
|
return [
|
|
\ ]
|
|
endfunction
|
|
|
|
|
|
function! s:region(pattern, ...)
|
|
let flag_first = get(a:, 1, "")
|
|
let flag_last = get(a:, 2, "")
|
|
return [searchpos(a:pattern, flag_first), searchpos(a:pattern, flag_last)]
|
|
endfunction
|
|
|
|
|
|
function! s:region_pair(fist, last, ...)
|
|
" todo
|
|
endfunction
|
|
|
|
|
|
function! s:pattern_in_region_char(first, last, pattern)
|
|
if a:first == a:last
|
|
return printf('\%%%dl\%%%dc', a:first[0], a:first[1])
|
|
elseif a:first[0] == a:last[0]
|
|
return printf('\%%%dl\%%>%dc\%%(%s\M\)\%%<%dc', a:first[0], a:first[1]-1, a:pattern, a:last[1]+1)
|
|
elseif a:last[0] - a:first[0] == 1
|
|
return printf('\%%%dl\%%(%s\M\)\%%>%dc', a:first[0], a:pattern, a:first[1]-1)
|
|
\ . "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dc', a:last[0], a:pattern, a:last[1]+1)
|
|
else
|
|
return printf('\%%%dl\%%(%s\M\)\%%>%dc', a:first[0], a:pattern, a:first[1]-1)
|
|
\ . "\\|" . printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0], a:pattern, a:last[0])
|
|
\ . "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dc', a:last[0], a:pattern, a:last[1]+1)
|
|
endif
|
|
endfunction
|
|
|
|
|
|
" function! s:pattern_in_region_char(first, last, pattern)
|
|
" if a:first == a:last
|
|
" return printf('\%%%dl\%%%dv', a:first[0], a:first[1])
|
|
" elseif a:first[0] == a:last[0]
|
|
" return printf('\%%%dl\%%>%dv\%%(%s\M\)\%%<%dv', a:first[0], a:first[1]-1, a:pattern, a:last[1]+1)
|
|
" elseif a:last[0] - a:first[0] == 1
|
|
" return printf('\%%%dl\%%(%s\M\)\%%>%dv', a:first[0], a:pattern, a:first[1]-1)
|
|
" \ . "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dv', a:last[0], a:pattern, a:last[1]+1)
|
|
" else
|
|
" return printf('\%%%dl\%%(%s\M\)\%%>%dv', a:first[0], a:pattern, a:first[1]-1)
|
|
" \ . "\\|" . printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0], a:pattern, a:last[0])
|
|
" \ . "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dv', a:last[0], a:pattern, a:last[1]+1)
|
|
" endif
|
|
" endfunction
|
|
|
|
|
|
|
|
|
|
function! s:pattern_in_region_line(first, last, pattern)
|
|
return printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0]-1, a:pattern, a:last[0]+1)
|
|
endfunction
|
|
|
|
|
|
function! s:pattern_in_region_block(first, last, pattern)
|
|
return join(map(range(a:first[0], a:last[0]), "s:pattern_in_region_char([v:val, a:first[1]], [v:val, a:last[1]], a:pattern)"), '\|')
|
|
endfunction
|
|
|
|
|
|
function! s:pattern_in_region(wise, first, last, ...)
|
|
let pattern = get(a:, 1, "")
|
|
if a:wise ==# "v"
|
|
return s:pattern_in_region_char(a:first, a:last, pattern)
|
|
elseif a:wise ==# "V"
|
|
return s:pattern_in_region_line(a:first, a:last, pattern)
|
|
elseif a:wise ==# "\<C-v>"
|
|
return s:pattern_in_region_block(a:first, a:last, pattern)
|
|
endif
|
|
endfunction
|
|
|
|
function! s:pattern_in_range(...)
|
|
return call("s:pattern_in_region", a:000)
|
|
endfunction
|
|
|
|
|
|
function! s:pattern_by_range(wise, first, last)
|
|
return s:pattern_in_range(a:wise, a:first, a:last, '.\{-}')
|
|
endfunction
|
|
|
|
|
|
function! s:text_by_pattern(pattern, ...)
|
|
let flag = get(a:, 1, "")
|
|
let [first, last] = s:region(a:pattern, "c" . flag, "ce" . flag)
|
|
if first == [0, 0] || last == [0, 0]
|
|
endif
|
|
let result = s:Buffer.get_text_from_region([0] + first + [0], [0] + last + [0], "v")
|
|
return result
|
|
endfunction
|
|
|
|
|
|
function! s:_syntax_name(pos)
|
|
return synIDattr(synIDtrans(synID(a:pos[0], a:pos[1], 1)), 'name')
|
|
endfunction
|
|
|
|
|
|
" log : http://lingr.com/room/vim/archives/2014/08/15#message-19938628
|
|
function! s:pos_ignore_syntaxes(pattern, syntaxes, ...)
|
|
let old_pos = getpos(".")
|
|
let old_view = winsaveview()
|
|
let flag = substitute(get(a:, 1, ""), 'n', "", "g")
|
|
try
|
|
while 1
|
|
let pos = searchpos(a:pattern, flag . "W")
|
|
if pos == [0, 0] || index(a:syntaxes, s:_syntax_name(pos)) == -1
|
|
return pos
|
|
endif
|
|
endwhile
|
|
finally
|
|
if get(a:, 1, "") =~# "n"
|
|
call setpos(".", old_pos)
|
|
call winrestview(old_view)
|
|
endif
|
|
endtry
|
|
endfunction
|
|
|
|
|
|
function! s:count(pattern)
|
|
return matchstr(s:M.capture('%s/' . a:pattern . '//n'), '\d\+\ze')
|
|
endfunction
|
|
|
|
|
|
let &cpo = s:save_cpo
|
|
unlet s:save_cpo
|