diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 08:50:31 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 08:50:31 +0000 |
commit | aed8ce9da277f5ecffe968b324f242c41c3b752a (patch) | |
tree | d2e538394cb7a8a7c42a4aac6ccf1a8e3256999b /src/testdir/view_util.vim | |
parent | Initial commit. (diff) | |
download | vim-upstream.tar.xz vim-upstream.zip |
Adding upstream version 2:9.0.1378.upstream/2%9.0.1378upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r-- | src/testdir/view_util.vim | 117 |
1 files changed, 117 insertions, 0 deletions
diff --git a/src/testdir/view_util.vim b/src/testdir/view_util.vim new file mode 100644 index 0000000..71cb071 --- /dev/null +++ b/src/testdir/view_util.vim @@ -0,0 +1,117 @@ +" Functions about view shared by several tests + +" Only load this script once. +if exists('*Screenline') + finish +endif + +" Get line "lnum" as displayed on the screen. +" Trailing white space is trimmed. +func Screenline(lnum) + let chars = [] + for c in range(1, winwidth(0)) + call add(chars, nr2char(screenchar(a:lnum, c))) + endfor + let line = join(chars, '') + return matchstr(line, '^.\{-}\ze\s*$') +endfunc + +" Get text on the screen, including composing characters. +" ScreenLines(lnum, width) or +" ScreenLines([start, end], width) +func ScreenLines(lnum, width) abort + redraw! + if type(a:lnum) == v:t_list + let start = a:lnum[0] + let end = a:lnum[1] + else + let start = a:lnum + let end = a:lnum + endif + let lines = [] + for l in range(start, end) + let lines += [join(map(range(1, a:width), 'screenstring(l, v:val)'), '')] + endfor + return lines +endfunc + +func ScreenAttrs(lnum, width) abort + redraw! + if type(a:lnum) == v:t_list + let start = a:lnum[0] + let end = a:lnum[1] + else + let start = a:lnum + let end = a:lnum + endif + let attrs = [] + for l in range(start, end) + let attrs += [map(range(1, a:width), 'screenattr(l, v:val)')] + endfor + return attrs +endfunc + +" Create a new window with the requested size and fix it. +func NewWindow(height, width) abort + exe a:height . 'new' + exe a:width . 'vsp' + set winfixwidth winfixheight + redraw! +endfunc + +func CloseWindow() abort + bw! + redraw! +endfunc + + +" When using RunVimInTerminal() we expect modifyOtherKeys level 2 to be enabled +" automatically. The key + modifier Escape codes must then use the +" modifyOtherKeys encoding. They are recognized anyway, thus it's safer to use +" than the raw code. + +" Return the modifyOtherKeys level 2 encoding for "key" with "modifier" +" (number value, e.g. CTRL is 5). +func GetEscCodeCSI27(key, modifier) + let key = printf("%d", char2nr(a:key)) + let mod = printf("%d", a:modifier) + return "\<Esc>[27;" .. mod .. ';' .. key .. '~' +endfunc + +" Return the modifyOtherKeys level 2 encoding for "key" with "modifier" +" (character value, e.g. CTRL is "C"). +func GetEscCodeWithModifier(modifier, key) + let modifier = get({'C': 5}, a:modifier, '') + if modifier == '' + echoerr 'Unknown modifier: ' .. a:modifier + endif + return GetEscCodeCSI27(a:key, modifier) +endfunc + +" Return the kitty keyboard protocol encoding for "key" with "modifier" +" (number value, e.g. CTRL is 5). +func GetEscCodeCSIu(key, modifier) + let key = printf("%d", char2nr(a:key)) + let mod = printf("%d", a:modifier) + return "\<Esc>[" .. key .. ';' .. mod .. 'u' +endfunc + +" Return the kitty keyboard protocol encoding for a function key: +" CSI {key} +" CSS 1;{modifier} {key} +func GetEscCodeFunckey(key, modifier) + if a:modifier == 0 + return "\<Esc>[" .. a:key + endif + + let mod = printf("%d", a:modifier) + return "\<Esc>[1;".. mod .. a:key +endfunc + +" Return the kitty keyboard protocol encoding for "key" without a modifier. +" Used for the Escape key. +func GetEscCodeCSIuWithoutModifier(key) + let key = printf("%d", char2nr(a:key)) + return "\<Esc>[" .. key .. 'u' +endfunc + |