golden hour

/usr/share/vim/vim74/ftplugin

File/Folder	Size	Actions
README.txt	869 B
a2ps.vim	458 B
aap.vim	716 B
abap.vim	800 B
abaqus.vim	3.31 KB
ada.vim	6.26 KB
alsaconf.vim	426 B
ant.vim	1.31 KB
arch.vim	419 B
art.vim	410 B
aspvbs.vim	1.87 KB
automake.vim	325 B
bdf.vim	437 B
bst.vim	333 B
btm.vim	316 B
c.vim	1.92 KB
calendar.vim	450 B
cdrdaoconf.vim	375 B
ch.vim	472 B
changelog.vim	8.54 KB
clojure.vim	2.78 KB
cobol.vim	9.17 KB
conf.vim	422 B
config.vim	1.24 KB
context.vim	955 B
cpp.vim	288 B
crm.vim	402 B
cs.vim	802 B
csc.vim	734 B
csh.vim	1.59 KB
css.vim	516 B
cucumber.vim	5.2 KB
cvsrc.vim	387 B
debchangelog.vim	11.26 KB
debcontrol.vim	1.84 KB
denyhosts.vim	375 B
dictconf.vim	422 B
dictdconf.vim	423 B
diff.vim	355 B
dircolors.vim	419 B
docbk.vim	530 B
dosbatch.vim	777 B
dosini.vim	446 B
dtd.vim	1.1 KB
dtrace.vim	1.12 KB
elinks.vim	424 B
erlang.vim	1.77 KB
eruby.vim	3.08 KB
eterm.vim	458 B
falcon.vim	1.31 KB
fetchmail.vim	416 B
flexwiki.vim	1.83 KB
fortran.vim	4.16 KB
framescript.vim	768 B
fvwm.vim	390 B
git.vim	1.19 KB
gitcommit.vim	2.16 KB
gitconfig.vim	376 B
gitrebase.vim	1.4 KB
gitsendemail.vim	157 B
gpg.vim	421 B
gprof.vim	939 B
group.vim	413 B
grub.vim	422 B
haml.vim	1.84 KB
hamster.vim	1.88 KB
haskell.vim	433 B
help.vim	430 B
hostconf.vim	375 B
hostsaccess.vim	424 B
html.vim	2.87 KB
htmldjango.vim	331 B
indent.vim	442 B
initex.vim	1005 B
ishd.vim	1.23 KB
java.vim	1.65 KB
javascript.vim	1.02 KB
jsp.vim	1.96 KB
kconfig.vim	375 B
kwt.vim	851 B
ld.vim	458 B
lftp.vim	422 B
libao.vim	428 B
limits.vim	424 B
liquid.vim	1.85 KB
lisp.vim	911 B
logcheck.vim	500 B
loginaccess.vim	430 B
logindefs.vim	428 B
logtalk.dict	1.75 KB
logtalk.vim	401 B
lprolog.vim	1.25 KB
lua.vim	973 B
m4.vim	414 B
mail.vim	1.08 KB
mailaliases.vim	375 B
mailcap.vim	422 B
make.vim	935 B
man.vim	4.6 KB
manconf.vim	432 B
markdown.vim	572 B
matlab.vim	649 B
mf.vim	404 B
modconf.vim	465 B
mp.vim	621 B
mplayerconf.vim	460 B
mrxvtrc.vim	798 B
msmessages.vim	1.11 KB
muttrc.vim	455 B
nanorc.vim	435 B
netrc.vim	416 B
nsis.vim	553 B
objc.vim	296 B
ocaml.vim	22.5 KB
occam.vim	1.27 KB
pamconf.vim	421 B
pascal.vim	667 B
passwd.vim	412 B
pdf.vim	2.55 KB
perl.vim	2.77 KB
perl6.vim	2.47 KB
php.vim	2.75 KB
pinfo.vim	423 B
plaintex.vim	1.12 KB
postscr.vim	1006 B
procmail.vim	467 B
prolog.vim	428 B
protocols.vim	445 B
pyrex.vim	766 B
python.vim	1.33 KB
qf.vim	459 B
quake.vim	427 B
racc.vim	437 B
readline.vim	426 B
reva.vim	709 B
rnc.vim	419 B
rpl.vim	620 B
rst.vim	444 B
ruby.vim	15.48 KB
sass.vim	580 B
scheme.vim	1.71 KB
screen.vim	424 B
scss.vim	200 B
sensors.vim	443 B
services.vim	440 B
setserial.vim	427 B
sgml.vim	1.18 KB
sh.vim	1.17 KB
sieve.vim	457 B
slpconf.vim	465 B
slpreg.vim	464 B
slpspi.vim	455 B
spec.vim	5.21 KB
sql.vim	20.08 KB
sshconfig.vim	429 B
sudoers.vim	426 B
svg.vim	1.17 KB
sysctl.vim	441 B
tcl.vim	1002 B
tcsh.vim	1.18 KB
terminfo.vim	418 B
tex.vim	1.6 KB
treetop.vim	404 B
tt2html.vim	434 B
udevconf.vim	422 B
udevperm.vim	420 B
udevrules.vim	414 B
updatedb.vim	431 B
vb.vim	1.86 KB
verilog.vim	1.64 KB
vhdl.vim	3.42 KB
vim.vim	2.88 KB
xdefaults.vim	469 B
xf86conf.vim	422 B
xhtml.vim	1.99 KB
xinetd.vim	464 B
xml.vim	1.87 KB
xmodmap.vim	422 B
xs.vim	465 B
xsd.vim	1.14 KB
xslt.vim	539 B
yaml.vim	452 B
zimbu.vim	5.2 KB
zsh.vim	674 B

Edit: debchangelog.vim

" Vim filetype plugin file (GUI menu, folding and completion)
" Language:     Debian Changelog
" Maintainer:   Debian Vim Maintainers <pkg-vim-maintainers@lists.alioth.debian.org>
" Former Maintainers:   Michael Piefel <piefel@informatik.hu-berlin.de>
"                       Stefano Zacchiroli <zack@debian.org>
" Last Change:  2012-01-31
" License:      Vim License
" URL:          http://hg.debian.org/hg/pkg-vim/vim/file/unstable/runtime/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

" {{{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(".")
    normal 1G
    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.Unfinalise
    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 
    call setline(1, substitute(getline(1), '-\$\$', '-', ''))
    if exists("g:debchangelog_fold_enable")
        foldopen
    endif
    call AddEntry()
endfunction

function AddEntry()
    normal 1G
    call search("^ -- ")
    normal kk
    call append(".", "  * ")
    normal jjj
    let warn=<SID>WarnIfNotUnfinalised()
    normal kk
    if warn
	echohl MoreMsg
	call input("Hit ENTER")
	echohl None
    endif
    startinsert!
endfunction

function CloseBug()
    normal 1G
    call search("^ -- ")
    let warn=<SID>WarnIfNotUnfinalised()
    normal kk
    call append(".", "  *  (closes: #" . input("Bug number to close: ") . ")")
    normal j^ll
    startinsert
endfunction

function Distribution(dist)
    call setline(1, substitute(getline(1), ") [[:lower:] ]*;", ") " . 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.Unfinalise
    amenu enable Changelog.Finalise
endfunction

function Unfinalise()
    call <SID>UnfinaliseMenu()
    normal 1G
    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.Unfinalise
    amenu disable Changelog.Finalise
endfunction

function Finalise()
    call <SID>FinaliseMenu()
    normal 1G
    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

" }}}

" vim: set foldmethod=marker: