Mercurial > vim
view runtime/import/dist/vimhighlight.vim @ 32782:abf161ce0c77 v9.0.1707
patch 9.0.1707: Cannot wrap around in popup_filter_menu()
Commit: https://github.com/vim/vim/commit/badeedd913d9d6456ad8087911d024fd36800743
Author: Christian Brabandt <cb@256bit.org>
Date: Sun Aug 13 19:25:28 2023 +0200
patch 9.0.1707: Cannot wrap around in popup_filter_menu()
Problem: Cannot wrap around in popup_filter_menu()
Solution: Allow to wrap around by default
Currently, it is not possible, to wrap around at the end of the list
using e.g. down (and go back to the top) or up at the beginning of the
list and go directly to the last item. This is not consistent behaviour
with e.g. how the pum-menu currently works, so let's just allow this.
Also adjust tests about it.
closes: #12689
closes: #12693
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 13 Aug 2023 19:30:04 +0200 |
parents | 50e447c67247 |
children |
line wrap: on
line source
vim9script # Maintainer: github user lacygoill # Last Change: 2023 Mar 08 # Init {{{1 const LINK: string = '->' # Interface {{{1 export def HighlightTest() # {{{2 # Open a new window if the current one isn't empty if line('$') != 1 || getline(1) != '' new endif edit Highlight\ test # `:help scratch-buffer` &l:bufhidden = 'hide' &l:buftype = 'nofile' &l:swapfile = false var report: list<string> =<< trim END Highlighting groups for various occasions ----------------------------------------- END var various_groups: list<string> = GetVariousGroups() ->filter((_, group: string): bool => group->hlexists() && !group->IsCleared()) ->sort() ->uniq() report->extend(various_groups->FollowChains()) var language_section: list<string> =<< trim END Highlighting groups for language syntaxes ----------------------------------------- END report->extend(language_section) var syntax_groups: list<string> = getcompletion('', 'highlight') ->filter((_, group: string): bool => various_groups->index(group) == -1 && !group->IsCleared() && group !~ '^HighlightTest') # put the report report ->extend(syntax_groups->FollowChains()) ->setline(1) # highlight the group names execute $'silent! global /^\w\+\%(\%(\s*{LINK}\s*\)\w\+\)*$/ Highlight({bufnr('%')})' cursor(1, 1) enddef # }}}1 # Core {{{1 def Highlight(buf: number) # {{{2 var lnum: number = line('.') for group: string in getline('.')->split($'\s*{LINK}\s*') silent! prop_type_add($'highlight-test-{group}', { bufnr: buf, highlight: group, combine: false, }) prop_add(lnum, col('.'), { length: group->strlen(), type: $'highlight-test-{group}' }) search('\<\w\+\>', '', lnum) endfor enddef # }}}1 # Util {{{1 def IsCleared(name: string): bool # {{{2 return name ->hlget() ->get(0, {}) ->get('cleared') enddef def FollowChains(groups: list<string>): list<string> # {{{2 # A group might be linked to another, which itself might be linked... # We want the whole chain, for every group. var chains: list<string> for group: string in groups var target: string = group->LinksTo() var chain: string = group while !target->empty() chain ..= $' {LINK} {target}' target = target->LinksTo() endwhile var a_link_is_cleared: bool = chain ->split($'\s*{LINK}\s*') ->indexof((_, g: string): bool => g->IsCleared()) >= 0 if a_link_is_cleared continue endif chains->add(chain) endfor return chains enddef def LinksTo(group: string): string # {{{2 return group ->hlget() ->get(0, {}) ->get('linksto', '') enddef def GetVariousGroups(): list<string> # {{{2 return getcompletion('hl-', 'help') ->filter((_, helptag: string): bool => helptag =~ '^hl-\w\+$') ->map((_, helptag: string) => helptag->substitute('^hl-', '', '')) ->extend(range(1, 9)->map((_, n: number) => $'User{n}')) enddef