add vital.vim's FloatingWindow

Author: prabirshrestha

autoload/vital/_lsp.vim

@@ -0,0 +1,9 @@
+let s:_plugin_name = expand('<sfile>:t:r')
+
+function! vital#{s:_plugin_name}#new() abort
+  return vital#{s:_plugin_name[1:]}#new()
+endfunction
+
+function! vital#{s:_plugin_name}#function(funcname) abort
+  silent! return function(a:funcname)
+endfunction

autoload/vital/_lsp/VS/Vim/Syntax/Markdown.vim

@@ -0,0 +1,93 @@
+" ___vital___
+" NOTE: lines between '" ___vital___' is generated by :Vitalize.
+" Do not modify 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#_lsp#VS#Vim#Syntax#Markdown#import() abort', printf("return map({'apply': ''}, \"vital#_lsp#function('<SNR>%s_' . v:key)\")", s:_SID()), 'endfunction'], "\n")
+delfunction s:_SID
+" ___vital___
+function! s:apply(text, ...) abort
+  if !exists('b:___VS_Vim_Syntax_Markdown')
+    runtime! syntax/markdown.vim
+    let b:___VS_Vim_Syntax_Markdown = {}
+  endif
+
+  try
+    for [l:mark, l:filetype] in items(s:_get_filetype_map(a:text, get(a:000, 0, {})))
+      let l:group = substitute(toupper(l:mark), '\.', '_', 'g')
+      if has_key(b:___VS_Vim_Syntax_Markdown, l:group)
+        continue
+      endif
+      let b:___VS_Vim_Syntax_Markdown[l:group] = v:true
+
+      try
+        if exists('b:current_syntax')
+          unlet b:current_syntax
+        endif
+        execute printf('syntax include @%s syntax/%s.vim', l:group, l:filetype)
+        execute printf('syntax region %s matchgroup=Conceal start=/%s/rs=e matchgroup=Conceal end=/%s/re=s contains=@%s containedin=ALL keepend concealends',
+        \   l:group,
+        \   printf('^\s*```\s*%s\s*', l:mark),
+        \   '\s*```\s*$',
+        \   l:group
+        \ )
+      catch /.*/
+        echomsg printf('[VS.Vim.Syntax.Markdown] The `%s` is not valid filetype! You can add `"let g:markdown_fenced_languages = ["FILETYPE=%s"]`.', l:mark, l:mark)
+      endtry
+    endfor
+  catch /.*/
+    echomsg string({ 'exception': v:exception, 'throwpoint': v:throwpoint })
+  endtry
+endfunction
+
+"
+" _get_filetype_map
+"
+function! s:_get_filetype_map(text, filetype_map) abort
+  let l:filetype_map = {}
+  for l:mark in s:_find_marks(a:text)
+    let l:filetype_map[l:mark] = s:_get_filetype_from_mark(l:mark, a:filetype_map)
+  endfor
+  return l:filetype_map
+endfunction
+
+"
+" _find_marks
+"
+function! s:_find_marks(text) abort
+  let l:marks = {}
+
+  " find from buffer contents.
+  let l:pos = 0
+  while 1
+    let l:match = matchlist(a:text, '```\s*\(\w\+\)', l:pos, 1)
+    if empty(l:match)
+      break
+    endif
+    let l:marks[l:match[1]] = v:true
+    let l:pos = matchend(a:text, '```\s*\(\w\+\)', l:pos, 1)
+  endwhile
+
+  return keys(l:marks)
+endfunction
+
+"
+" _get_filetype_from_mark
+"
+function! s:_get_filetype_from_mark(mark, filetype_map) abort
+  for l:config in get(g:, 'markdown_fenced_languages', [])
+    if l:config !~# '='
+      if l:config ==# a:mark
+        return a:mark
+      endif
+    else
+      let l:config = split(l:config, '=')
+      if l:config[1] ==# a:mark
+        return l:config[0]
+      endif
+    endif
+  endfor
+  return get(a:filetype_map, a:mark, a:mark)
+endfunction
+

autoload/vital/_lsp/VS/Vim/Window.vim

@@ -0,0 +1,52 @@
+" ___vital___
+" NOTE: lines between '" ___vital___' is generated by :Vitalize.
+" Do not modify 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#_lsp#VS#Vim#Window#import() abort', printf("return map({'do': '', 'screenpos': ''}, \"vital#_lsp#function('<SNR>%s_' . v:key)\")", s:_SID()), 'endfunction'], "\n")
+delfunction s:_SID
+" ___vital___
+let s:Do = { -> {} }
+
+"
+" do
+"
+function! s:do(winid, func) abort
+  let l:curr_winid = win_getid()
+  if l:curr_winid == a:winid
+    call a:func()
+    return
+  endif
+
+  if exists('*win_execute')
+    let s:Do = a:func
+    try
+      noautocmd keepalt keepjumps call win_execute(a:winid, 'call s:Do()')
+    catch /.*/
+      echomsg string({ 'exception': v:exception, 'throwpoint': v:throwpoint })
+    endtry
+    unlet s:Do
+    return
+  endif
+
+  noautocmd keepalt keepjumps call win_gotoid(a:winid)
+  try
+    call a:func()
+  catch /.*/
+    echomsg string({ 'exception': v:exception, 'throwpoint': v:throwpoint })
+  endtry
+  noautocmd keepalt keepjumps call win_gotoid(l:curr_winid)
+endfunction
+
+"
+" screenpos
+"
+function! s:screenpos(pos) abort
+  let l:pos = getpos('.')
+  let l:scroll_x = (l:pos[2] + l:pos[3]) - wincol()
+  let l:scroll_y = l:pos[1] - winline()
+  let l:winpos = win_screenpos(win_getid())
+  return [l:winpos[0] + (a:pos[0] - l:scroll_y) - 2, l:winpos[1] + (a:pos[1] - l:scroll_x) - 2]
+endfunction
+