Server IP : 85.214.239.14 / Your IP : 3.145.78.203 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/proc/2/cwd/usr/share/vim/vim90/ftplugin/ |
Upload File : |
" Vim filetype plugin file (GUI menu, folding and completion) " Language: Debian Changelog " Maintainer: Debian Vim Maintainers <team+vim@tracker.debian.org> " Former Maintainers: Michael Piefel <piefel@informatik.hu-berlin.de> " Stefano Zacchiroli <zack@debian.org> " Last Change: 2023 Jan 16 " License: Vim License " URL: https://salsa.debian.org/vim-team/vim-debian/blob/main/ftplugin/debchangelog.vim " Bug completion requires apt-listbugs installed for Debian packages or " python-launchpadlib installed for Ubuntu packages if exists('b:did_ftplugin') finish endif let b:did_ftplugin=1 " {{{1 Local settings (do on every load) if exists('g:debchangelog_fold_enable') setlocal foldmethod=expr setlocal foldexpr=DebGetChangelogFold(v:lnum) setlocal foldtext=DebChangelogFoldText() endif " Debian changelogs are not supposed to have any other text width, " so the user cannot override this setting setlocal tw=78 setlocal comments=f:* " Clean unloading let b:undo_ftplugin = 'setlocal tw< comments< foldmethod< foldexpr< foldtext<' " }}}1 if exists('g:did_changelog_ftplugin') finish endif " Don't load another plugin (this is global) let g:did_changelog_ftplugin = 1 " Make sure the '<' and 'C' flags are not included in 'cpoptions', otherwise " <CR> would not be recognized. See ":help 'cpoptions'". let s:cpo_save = &cpo set cpo&vim " {{{1 GUI menu " Helper functions returning various data. " Returns full name, either from $DEBFULLNAME or debianfullname. " TODO Is there a way to determine name from anywhere else? function <SID>FullName() if exists('$DEBFULLNAME') return $DEBFULLNAME elseif exists('g:debianfullname') return g:debianfullname else return 'Your Name' endif endfunction " Returns email address, from $DEBEMAIL, $EMAIL or debianemail. function <SID>Email() if exists('$DEBEMAIL') return $DEBEMAIL elseif exists('$EMAIL') return $EMAIL elseif exists('g:debianemail') return g:debianemail else return 'your@email.address' endif endfunction " Returns date in RFC822 format. function <SID>Date() let savelang = v:lc_time execute 'language time C' let dateandtime = strftime('%a, %d %b %Y %X %z') execute 'language time ' . savelang return dateandtime endfunction function <SID>WarnIfNotUnfinalised() if match(getline('.'), ' -- [[:alpha:]][[:alnum:].]')!=-1 echohl WarningMsg echo 'The entry has not been unfinalised before editing.' echohl None return 1 endif return 0 endfunction function <SID>Finalised() let savelinenum = line('.') 1 call search('^ -- ') if match(getline('.'), ' -- [[:alpha:]][[:alnum:].]')!=-1 let returnvalue = 1 else let returnvalue = 0 endif execute savelinenum return returnvalue endfunction " These functions implement the menus function NewVersion() " The new entry is unfinalised and shall be changed amenu disable &Changelog.&New\ Version amenu enable &Changelog.&Add\ Entry amenu enable &Changelog.&Close\ Bug amenu enable &Changelog.Set\ &Distribution amenu enable &Changelog.Set\ &Urgency amenu disable &Changelog.U&nfinalise amenu enable &Changelog.&Finalise call append(0, substitute(getline(1), '-\([[:digit:]]\+\))', '-$$\1)', '')) call append(1, '') call append(2, '') call append(3, ' -- ') call append(4, '') call Urgency('low') normal! 1G0 call search(')') normal! h " ':normal' doens't support key annotation (<c-a>) directly. " Vim's manual recommends using ':exe' to use key annotation indirectly (backslash-escaping needed though). exe "normal! \<c-a>" call setline(1, substitute(getline(1), '-\$\$', '-', '')) if exists('g:debchangelog_fold_enable') foldopen endif call AddEntry() endfunction function AddEntry() 1 call search('^ -- ') .-2 call append('.', ' * ') .+3 let warn=<SID>WarnIfNotUnfinalised() .-2 if warn echohl MoreMsg call input('Hit ENTER') echohl None endif startinsert! endfunction function CloseBug() 1 call search('^ -- ') let warn=<SID>WarnIfNotUnfinalised() .-2 call append('.', ' * (closes: #' . input('Bug number to close: ') . ')') normal! j^ll startinsert endfunction function Distribution(dist) call setline(1, substitute(getline(1), ') *\%(UNRELEASED\|\l\+\);', ') ' . a:dist . ';', '')) endfunction function Urgency(urg) call setline(1, substitute(getline(1), 'urgency=.*$', 'urgency=' . a:urg, '')) endfunction function <SID>UnfinaliseMenu() " This means the entry shall be changed amenu disable &Changelog.&New\ Version amenu enable &Changelog.&Add\ Entry amenu enable &Changelog.&Close\ Bug amenu enable &Changelog.Set\ &Distribution amenu enable &Changelog.Set\ &Urgency amenu disable &Changelog.U&nfinalise amenu enable &Changelog.&Finalise endfunction function Unfinalise() call <SID>UnfinaliseMenu() 1 call search('^ -- ') call setline('.', ' -- ') endfunction function <SID>FinaliseMenu() " This means the entry should not be changed anymore amenu enable &Changelog.&New\ Version amenu disable &Changelog.&Add\ Entry amenu disable &Changelog.&Close\ Bug amenu disable &Changelog.Set\ &Distribution amenu disable &Changelog.Set\ &Urgency amenu enable &Changelog.U&nfinalise amenu disable &Changelog.&Finalise endfunction function Finalise() call <SID>FinaliseMenu() 1 call search('^ -- ') call setline('.', ' -- ' . <SID>FullName() . ' <' . <SID>Email() . '> ' . <SID>Date()) endfunction function <SID>MakeMenu() amenu &Changelog.&New\ Version :call NewVersion()<CR> amenu &Changelog.&Add\ Entry :call AddEntry()<CR> amenu &Changelog.&Close\ Bug :call CloseBug()<CR> menu &Changelog.-sep- <nul> amenu &Changelog.Set\ &Distribution.&unstable :call Distribution("unstable")<CR> amenu &Changelog.Set\ &Distribution.&frozen :call Distribution("frozen")<CR> amenu &Changelog.Set\ &Distribution.&stable :call Distribution("stable")<CR> menu &Changelog.Set\ &Distribution.-sep- <nul> amenu &Changelog.Set\ &Distribution.frozen\ unstable :call Distribution("frozen unstable")<CR> amenu &Changelog.Set\ &Distribution.stable\ unstable :call Distribution("stable unstable")<CR> amenu &Changelog.Set\ &Distribution.stable\ frozen :call Distribution("stable frozen")<CR> amenu &Changelog.Set\ &Distribution.stable\ frozen\ unstable :call Distribution("stable frozen unstable")<CR> amenu &Changelog.Set\ &Urgency.&low :call Urgency("low")<CR> amenu &Changelog.Set\ &Urgency.&medium :call Urgency("medium")<CR> amenu &Changelog.Set\ &Urgency.&high :call Urgency("high")<CR> menu &Changelog.-sep- <nul> amenu &Changelog.U&nfinalise :call Unfinalise()<CR> amenu &Changelog.&Finalise :call Finalise()<CR> if <SID>Finalised() call <SID>FinaliseMenu() else call <SID>UnfinaliseMenu() endif endfunction augroup changelogMenu au BufEnter * if &filetype == "debchangelog" | call <SID>MakeMenu() | endif au BufLeave * if &filetype == "debchangelog" | silent! aunmenu &Changelog | endif augroup END " }}} " {{{1 folding " look for an author name in the [zonestart zoneend] lines searching backward function! s:getAuthor(zonestart, zoneend) let linepos = a:zoneend while linepos >= a:zonestart let line = getline(linepos) if line =~# '^ --' return substitute(line, '^ --\s*\([^<]\+\)\s*.*', '\1', '') endif let linepos -= 1 endwhile return '[unknown]' endfunction " Look for a package source name searching backward from the givenline and " returns it. Return the empty string if the package name can't be found function! DebGetPkgSrcName(lineno) let lineidx = a:lineno let pkgname = '' while lineidx > 0 let curline = getline(lineidx) if curline =~# '^\S' let pkgname = matchlist(curline, '^\(\S\+\).*$')[1] break endif let lineidx = lineidx - 1 endwhile return pkgname endfunction function! DebChangelogFoldText() if v:folddashes ==# '-' " changelog entry fold return foldtext() . ' -- ' . s:getAuthor(v:foldstart, v:foldend) . ' ' endif return foldtext() endfunction function! DebGetChangelogFold(lnum) let line = getline(a:lnum) if line =~# '^\w\+' return '>1' " beginning of a changelog entry endif if line =~# '^\s\+\[.*\]' return '>2' " beginning of an author-specific chunk endif if line =~# '^ --' return '1' endif return '=' endfunction if exists('g:debchangelog_fold_enable') silent! foldopen! " unfold the entry the cursor is on (usually the first one) endif " }}} " {{{1 omnicompletion for Closes: # if !exists('g:debchangelog_listbugs_severities') let g:debchangelog_listbugs_severities = 'critical,grave,serious,important,normal,minor,wishlist' endif fun! DebCompleteBugs(findstart, base) if a:findstart let line = getline('.') " try to detect whether this is closes: or lp: let g:debchangelog_complete_mode = 'debbugs' let try_colidx = col('.') - 1 let colidx = -1 " default to no-completion-possible while try_colidx > 0 && line[try_colidx - 1] =~# '\s\|\d\|#\|,\|:' let try_colidx = try_colidx - 1 if line[try_colidx] ==# '#' && colidx == -1 " found hash, where we complete from: let colidx = try_colidx elseif line[try_colidx] ==# ':' if try_colidx > 1 && strpart(line, try_colidx - 2, 3) =~? '\clp:' let g:debchangelog_complete_mode = 'lp' endif break endif endwhile return colidx else " return matches: let bug_lines = [] if g:debchangelog_complete_mode ==? 'lp' if ! has('python') echoerr 'vim must be built with Python support to use LP bug completion' return endif let pkgsrc = DebGetPkgSrcName(line('.')) python << EOF import vim try: from launchpadlib.launchpad import Launchpad from lazr.restfulclient.errors import HTTPError # login anonymously lp = Launchpad.login_anonymously('debchangelog.vim', 'production') ubuntu = lp.distributions['ubuntu'] try: sp = ubuntu.getSourcePackage(name=vim.eval('pkgsrc')) status = ('New', 'Incomplete', 'Confirmed', 'Triaged', 'In Progress', 'Fix Committed') tasklist = sp.searchTasks(status=status, order_by='id') liststr = '[' for task in tasklist: bug = task.bug liststr += "'#%d - %s'," % (bug.id, bug.title.replace('\'', '\'\'')) liststr += ']' vim.command('silent let bug_lines = %s' % liststr.encode('utf-8')) except HTTPError: pass except ImportError: vim.command('echoerr \'python-launchpadlib >= 1.5.4 needs to be installed to use Launchpad bug completion\'') EOF else if ! filereadable('/usr/sbin/apt-listbugs') echoerr 'apt-listbugs not found, you should install it to use Closes bug completion' return endif let pkgsrc = DebGetPkgSrcName(line('.')) let listbugs_output = system('/usr/sbin/apt-listbugs -s ' . g:debchangelog_listbugs_severities . ' list ' . pkgsrc . ' | grep "^ #" 2> /dev/null') let bug_lines = split(listbugs_output, '\n') endif let completions = [] for line in bug_lines let parts = matchlist(line, '^\s*\(#\S\+\)\s*-\s*\(.*\)$') " filter only those which match a:base: if parts[1] !~ '^' . a:base continue endif let completion = {} let completion['word'] = parts[1] let completion['menu'] = parts[2] let completion['info'] = parts[0] let completions += [completion] endfor return completions endif endfun setlocal omnifunc=DebCompleteBugs " }}} " Restore the previous value of 'cpoptions'. let &cpo = s:cpo_save unlet s:cpo_save " vim: set foldmethod=marker: