Class-Dot
view release on metacpan or search on metacpan
contrib/vim/taglist.vim view on Meta::CPAN
" taglist windowif!exists('Tlist_GainFocus_On_ToggleOpen')let Tlist_GainFocus_On_ToggleOpen = 0endif" Process files evenwhenthe taglist window is notopenif!exists('Tlist_Process_File_Always')let Tlist_Process_File_Always = 0endifif!exists('Tlist_Show_Menu')let Tlist_Show_Menu = 0endif" Tag listingsorttype -'name'or'order'if!exists('Tlist_Sort_Type')let Tlist_Sort_Type ='order'endif" Tag listing windowsplit(horizontal/vertical) controlif!exists('Tlist_Use_Horiz_Window')let Tlist_Use_Horiz_Window = 0
contrib/vim/taglist.vim view on Meta::CPAN
" on Vim startupifg:Tlist_Auto_Openautocmd VimEnter * nested call s:Tlist_Window_Check_Auto_Open()endif" Refresh the taglistifg:Tlist_Process_File_Alwaysautocmd BufEnter * call s:Tlist_Refresh()endififg:Tlist_Show_Menuautocmd GUIEnter * call s:Tlist_Menu_Init()endif" When the taglist buffer is createdwhenloading a Vim session file," the taglist buffer needs to be initialized. The BufFilePost event" is used to handle this case.autocmd BufFilePost __Tag_List__ call s:Tlist_Vim_Session_Load()" Define the user commands to manage the taglist windowcommand! -nargs=0 -bar TlistToggle call s:Tlist_Window_Toggle()command! -nargs=0 -bar TlistOpen call s:Tlist_Window_Open()
contrib/vim/taglist.vim view on Meta::CPAN
" Trick to get the current script IDmap<SID>xx <SID>xxlet s:tlist_sid = substitute(maparg('<SID>xx'),'<SNR>\(\d\+_\)xx$',\'\1','')unmap <SID>xxexe'autocmd FuncUndefined *'. s:tlist_sid .'Tlist_* source '.\ escape(expand('<sfile>'),' ')exe'autocmd FuncUndefined *'. s:tlist_sid .'Tlist_Window_* source '.\ escape(expand('<sfile>'),' ')exe'autocmd FuncUndefined *'. s:tlist_sid .'Tlist_Menu_* source '.\ escape(expand('<sfile>'),' ')exe'autocmd FuncUndefined Tlist_* source '.\ escape(expand('<sfile>'),' ')exe'autocmd FuncUndefined TagList_* source '.\ escape(expand('<sfile>'),' ')let loaded_taglist ='fast_load_done'ifg:Tlist_Show_Menu &&has('gui_running')call s:Tlist_Menu_Init()endif" restore'cpo'let&cpo= s:cpo_savefinishendifif!exists('s:tlist_sid')" Two or more versions of taglist plugin are installed. Don't" load this version of the plugin.
contrib/vim/taglist.vim view on Meta::CPAN
autocmd BufEnter * silent\ call s:Tlist_Window_Open_File_Fold(expand('<abuf>'))endif" Exit Vim itselfifonly the taglist window is present (optional)ifg:Tlist_Exit_OnlyWindowautocmd BufEnter __Tag_List__ nested\ call s:Tlist_Window_Exit_Only_Window()endififs:tlist_app_name !="winmanager"&&\ !g:Tlist_Process_File_Always &&\ (!has('gui_running') || !g:Tlist_Show_Menu)" Auto refresh the taglist windowautocmd BufEnter * call s:Tlist_Refresh()endifif!g:Tlist_Use_Horiz_Windowifv:version < 700autocmd WinEnter * call s:Tlist_Window_Check_Width()endifendifaugroup end
contrib/vim/taglist.vim view on Meta::CPAN
" include the empty lineafterthelastlineifg:Tlist_Compact_Formatlet end = s:tlist_{fidx}_endelselet end = s:tlist_{fidx}_end + 1endifcall s:Tlist_Window_Update_Line_Offsets(fidx + 1, 1, end - start + 1)" Now that we have updated the taglist window, update the tags" menu (ifpresent)ifg:Tlist_Show_Menucall s:Tlist_Menu_Update_File(1)endifendfunction" Tlist_Init_File" Initialize the variablesfora new filefunction! s:Tlist_Init_File(filename, ftype)call s:Tlist_Log_Msg('Tlist_Init_File ('. a:filename .')')" Add new files at the end of the listlet fidx = s:tlist_file_countlet s:tlist_file_count = s:tlist_file_count + 1
contrib/vim/taglist.vim view on Meta::CPAN
exe'normal! '. save_col .'|'endififwinnr() != save_winnr" Go back to the original windowcall s:Tlist_Exe_Cmd_No_Acmds(save_winnr .'wincmd w')endifendif" Update the taglist menuifg:Tlist_Show_Menucall s:Tlist_Menu_Update_File(1)endifendfunction" Tlist_Window_Close" Close the taglist windowfunction! s:Tlist_Window_Close()call s:Tlist_Log_Msg('Tlist_Window_Close()')" Make sure the taglist windowexistslet winnum = bufwinnr(g:TagList_title)ifwinnum == -1
contrib/vim/taglist.vim view on Meta::CPAN
call s:Tlist_Window_Open()" Go back to the original window,ifTlist_GainFocus_On_ToggleOpen is not" setif!g:Tlist_GainFocus_On_ToggleOpencall s:Tlist_Exe_Cmd_No_Acmds('wincmd p')endif" Update the taglist menuifg:Tlist_Show_Menucall s:Tlist_Menu_Update_File(0)endifendfunction" Tlist_Process_Filelist" Process multiple files. Each filename is separated by "\n"" Returns the number of processed filesfunction! s:Tlist_Process_Filelist(file_names)let flist = a:file_names" Enable lazy screen updates
contrib/vim/taglist.vim view on Meta::CPAN
" Tlist_Refresh()" Refresh the taglistfunction! s:Tlist_Refresh()call s:Tlist_Log_Msg('Tlist_Refresh (Skip_Refresh = '.\ s:Tlist_Skip_Refresh .', '. bufname('%') .')')" If we are entering the buffer from one of the taglist functions, then"noneed to refresh the taglist window again.ifs:Tlist_Skip_Refresh" We still need to update the taglist menuifg:Tlist_Show_Menucall s:Tlist_Menu_Update_File(0)endifreturnendif" If part of the winmanager plugin and not configured to process" tags always and not configured to display the tags menu, thenreturnif(s:tlist_app_name =='winmanager') && !g:Tlist_Process_File_Always\ && !g:Tlist_Show_Menureturnendif" Skip bufferswith'https://metacpan.org/pod/buftype">buftype'set to nofile, nowrite, quickfix or helpif&buftype!=''returnendiflet filename = fnamemodify(bufname('%'),':p')let ftype =&filetype" If the file doesn't support tag listing, skip itifs:Tlist_Skip_File(filename, ftype)returnendiflet tlist_win = bufwinnr(g:TagList_title)" If the taglist window is not opened and not configured to process" tags always and not displaying the tags menu, thenreturniftlist_win == -1 && !g:Tlist_Process_File_Always && !g:Tlist_Show_Menureturnendiflet fidx = s:Tlist_Get_File_Index(filename)iffidx == -1" Check whether this file is removed based on user request" If it is, then don't display the tagsforthis fileifs:Tlist_User_Removed_File(filename)returnendif
contrib/vim/taglist.vim view on Meta::CPAN
" Jump back to the original windowifsave_winnr != winnr()call s:Tlist_Exe_Cmd_No_Acmds(save_winnr .'wincmd w')endif" Restore screen updateslet&lazyredraw= old_lazyredrawendif" Update the taglist menuifg:Tlist_Show_Menucall s:Tlist_Menu_Update_File(0)endifendfunction" Tlist_Change_Sort()" Change thesortorder of the tag listing"caller=='cmd', command used in the taglist window"caller=='menu', taglist menu" action =='toggle', togglesortfrom name to order and vice versa" action =='set', set thesortorder to sort_typefunction! s:Tlist_Change_Sort(caller, action, sort_type)
contrib/vim/taglist.vim view on Meta::CPAN
let curline ='\V\^'. getline('.') .'\$'call s:Tlist_Window_Refresh_File(s:tlist_{fidx}_filename,\ s:tlist_{fidx}_filetype)exe s:tlist_{fidx}_start .','. s:tlist_{fidx}_end .'foldopen!'" Go back to the cursor linebeforethe tag list is sortedcall search(curline,'w')call s:Tlist_Menu_Update_File(1)elsecall s:Tlist_Menu_Remove_File()call s:Tlist_Refresh()endifendfunction" Tlist_Update_Current_File()" Update taglistforthe current buffer by regenerating the tag list" Contributed by WEN Guopeng.function! s:Tlist_Update_Current_File()call s:Tlist_Log_Msg('Tlist_Update_Current_File()')
contrib/vim/taglist.vim view on Meta::CPAN
endiflet i = i + 1let buf_num = winbufnr(i)endwhileifopen_windowcall s:Tlist_Window_Toggle()endifendfunctionfunction! s:Tlist_Menu_Add_Base_Menu()call s:Tlist_Log_Msg('Adding the base menu')" Add the menuanoremenu <silent> T&ags.Refresh\ menu :call <SID>Tlist_Menu_Refresh()<CR>anoremenu <silent> T&ags.Sort\ menu\ by.Name\ :call <SID>Tlist_Change_Sort('menu','set','name')<CR>anoremenu <silent> T&ags.Sort\ menu\ by.Order\ :call <SID>Tlist_Change_Sort('menu','set','order')<CR>anoremenu T&ags.-SEP1- :if&mousemodel=~'popup'anoremenu <silent> PopUp.T&ags.Refresh\ menu\ :call <SID>Tlist_Menu_Refresh()<CR>anoremenu <silent> PopUp.T&ags.Sort\ menu\ by.Name\ :call <SID>Tlist_Change_Sort('menu','set','name')<CR>anoremenu <silent> PopUp.T&ags.Sort\ menu\ by.Order\ :call <SID>Tlist_Change_Sort('menu','set','order')<CR>anoremenu PopUp.T&ags.-SEP1- :endifendfunctionlet s:menu_char_prefix =\'0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'" Tlist_Menu_Get_Tag_Type_Cmd" Get the menu commandforthe specified tag type" fidx - File typeindex" ftype - File Type" add_ttype_name - To add or not to add the tag type name to the menu entries" ttype_idx - Tag typeindexfunction! s:Tlist_Menu_Get_Tag_Type_Cmd(fidx, ftype, add_ttype_name, ttype_idx)" Curly brace variable name optimizationlet ftype_ttype_idx = a:ftype .'_'. a:ttype_idxlet ttype = s:tlist_{ftype_ttype_idx}_nameifa:add_ttype_name" If the tag type name contains space characters, escape it. This" will be used to create the menu entries.let ttype_fullname = escape(s:tlist_{ftype_ttype_idx}_fullname,' ')endif
contrib/vim/taglist.vim view on Meta::CPAN
" Character prefix used to number the menu items (hotkey)let m_prefix_idx = 0whilej <= final_indexlet tidx = s:tlist_{fidx_ttype}_{j}let tname = s:tlist_{a:fidx}_{tidx}_tag_namelet mcmd = mcmd . m_prefix .'\&'.\ s:menu_char_prefix[m_prefix_idx] .'\.'.\ tname .' :call <SID>Tlist_Menu_Jump_To_Tag('.\ tidx .')<CR>|'let m_prefix_idx = m_prefix_idx + 1let j = j + 1endwhileendwhileelse" Character prefix used to number the menu items (hotkey)let m_prefix_idx = 0
contrib/vim/taglist.vim view on Meta::CPAN
let m_prefix = m_prefix . ttype_fullname .'.'endiflet j = 1whilej <= tcntlet tidx = s:tlist_{fidx_ttype}_{j}let tname = s:tlist_{a:fidx}_{tidx}_tag_namelet mcmd = mcmd . m_prefix .'\&'.\ s:menu_char_prefix[m_prefix_idx] .'\.'.\ tname .' :call <SID>Tlist_Menu_Jump_To_Tag('. tidx\ .')<CR>|'let m_prefix_idx = m_prefix_idx + 1let j = j + 1endwhileendifreturnmcmdendfunction" Update the taglist menuwiththe tagsforthe specified filefunction! s:Tlist_Menu_File_Refresh(fidx)call s:Tlist_Log_Msg('Refreshing the tag menu for '. s:tlist_{a:fidx}_filename)" The'B'flag is needed in the'cpoptions'optionlet old_cpoptions =&cpoptionsset cpoptions&vimexe s:tlist_{a:fidx}_menu_cmd" Update the popup menu (ifenabled)if&mousemodel=~'popup'let cmd = substitute(s:tlist_{a:fidx}_menu_cmd,' T\\&ags\.',
contrib/vim/taglist.vim view on Meta::CPAN
exe cmdendif" The taglist menu is not empty nowlet s:tlist_menu_empty = 0" Restore the'cpoptions'settingslet&cpoptions= old_cpoptionsendfunction" Tlist_Menu_Update_File" Add the taglist menufunction! s:Tlist_Menu_Update_File(clear_menu)if!has('gui_running')" Not running in GUI modereturnendifcall s:Tlist_Log_Msg('Updating the tag menu, clear_menu = '. a:clear_menu)" Remove the tags menuifa:clear_menucall s:Tlist_Menu_Remove_File()endif" Skip bufferswith'https://metacpan.org/pod/buftype">buftype'set to nofile, nowrite, quickfix or helpif&buftype!=''returnendiflet filename = fnamemodify(bufname('%'),':p')let ftype =&filetype
contrib/vim/taglist.vim view on Meta::CPAN
exe'anoremenu T&ags.'. fname .' <Nop>'anoremenu T&ags.-SEP2- :endifif!s:tlist_{fidx}_tag_countreturnendififs:tlist_{fidx}_menu_cmd !=''" Update the menuwiththe cached commandcall s:Tlist_Menu_File_Refresh(fidx)returnendif" We are going to add entries to the tags menu, so the menu won't be" emptylet s:tlist_menu_empty = 0let cmd =''
contrib/vim/taglist.vim view on Meta::CPAN
let ttype = s:tlist_{ftype}_{i}_nameifs:tlist_{fidx}_{ttype}_countlet add_ttype_name = add_ttype_name + 1endiflet i = i + 1endwhile" Process the tags by the tag type and get the menu commandlet i = 1whilei <= s:tlist_{ftype}_countlet mcmd = s:Tlist_Menu_Get_Tag_Type_Cmd(fidx, ftype, add_ttype_name, i)ifmcmd !=''let cmd = cmd . mcmdendiflet i = i + 1endwhile" Cache the menu commandforreuselet s:tlist_{fidx}_menu_cmd = cmd" Update the menucall s:Tlist_Menu_File_Refresh(fidx)endfunction" Tlist_Menu_Remove_File" Remove the tags displayed in the tags menufunction! s:Tlist_Menu_Remove_File()if!has('gui_running') || s:tlist_menu_emptyreturnendifcall s:Tlist_Log_Msg('Removing the tags menu for a file')" Cleanup the Tags menusilent! unmenu T&agsif&mousemodel=~'popup'silent! unmenu PopUp.T&agsendif" Add a dummy menu item to retain teared off menunoremenu T&ags.Dummy lsilent! unmenu! T&agsif&mousemodel=~'popup'silent! unmenu! PopUp.T&agsendifcall s:Tlist_Menu_Add_Base_Menu()" Remove the dummy menu itemunmenu T&ags.Dummylet s:tlist_menu_empty = 1endfunction" Tlist_Menu_Refresh" Refresh the taglist menufunction! s:Tlist_Menu_Refresh()call s:Tlist_Log_Msg('Refreshing the tags menu')let fidx = s:Tlist_Get_File_Index(fnamemodify(bufname('%'),':p'))iffidx != -1" Invalidate the cached menu commandlet s:tlist_{fidx}_menu_cmd =''endif" Update the taglist, menu and windowcall s:Tlist_Update_Current_File()endfunction" Tlist_Menu_Jump_To_Tag" Jump to the selected tagfunction! s:Tlist_Menu_Jump_To_Tag(tidx)let fidx = s:Tlist_Get_File_Index(fnamemodify(bufname('%'),':p'))iffidx == -1returnendiflet tagpat = s:Tlist_Get_Tag_SearchPat(fidx, a:tidx)iftagpat ==''returnendif
contrib/vim/taglist.vim view on Meta::CPAN
" Bring the line to the middle of the windownormal! z." If the line is inside a fold,openthe foldiffoldclosed('.') != -1.foldopenendifendfunction" Tlist_Menu_Init" Initialize the taglist menufunction! s:Tlist_Menu_Init()call s:Tlist_Menu_Add_Base_Menu()" Automatically add the tagsdefinedin the current file to the menuaugroup TagListMenuCmdsautocmd!if!g:Tlist_Process_File_Alwaysautocmd BufEnter * call s:Tlist_Refresh()endifautocmd BufLeave * call s:Tlist_Menu_Remove_File()augroup endcall s:Tlist_Menu_Update_File(0)endfunction" Tlist_Vim_Session_Load" Initialize the taglist window/buffer, which is createdwhenloading" a Vim session file.function! s:Tlist_Vim_Session_Load()call s:Tlist_Log_Msg('Tlist_Vim_Session_Load')" Initialize the taglist windowcall s:Tlist_Window_Init()
( run in 0.513 second using v1.01-cache-2.11-cpan-87723dcf8b7 )