" Plugin to update the %changelog section of RPM spec files " Filename: spec.vim " Maintainer: Gustavo Niemeyer <niemeyer@conectiva.com> " Last Change: 2012 Mar 07 if exists("b:did_ftplugin") finish endif let b:did_ftplugin = 1 let s:cpo_save = &cpo set cpo&vim if !exists("no_plugin_maps") && !exists("no_spec_maps") if !hasmapto("<Plug>SpecChangelog") map <buffer> <LocalLeader>c <Plug>SpecChangelog endif endif noremap <buffer> <unique> <script> <Plug>SpecChangelog :call <SID>SpecChangelog("")<CR> if !exists("*s:SpecChangelog") function s:SpecChangelog(format) let save_time = v:lc_time if strlen(a:format) == 0 if !exists("g:spec_chglog_format") if !exists("g:packager") let email = input("Email address: ") let g:spec_chglog_format = "%a %b %d %Y " . l:email echo "\r" else let email = g:packager let g:spec_chglog_format = "%a %b %d %Y " . l:email echo "\r" endif endif let format = g:spec_chglog_format else if !exists("g:spec_chglog_format") let g:spec_chglog_format = a:format endif let format = a:format endif let line = 0 let name = "" let ver = "" let rel = "" let nameline = -1 let verline = -1 let relline = -1 let chgline = -1 while (line <= line("$")) let linestr = getline(line) if (name == "" && linestr =~? '^Name:') let nameline = line let name = substitute(strpart(linestr,5), '^[ ]*\([^ ]\+\)[ ]*$','\1','') elseif (ver == "" && linestr =~? '^Version:') let verline = line let ver = substitute(strpart(linestr,8), '^[ ]*\([^ ]\+\)[ ]*$','\1','') elseif (rel == "" && linestr =~? '^Release:') let relline = line let rel = substitute(strpart(linestr,8), '^[ ]*\([^ ]\+\)[ ]*$','\1','') elseif (linestr =~? '^%changelog') let chgline = line execute line break endif let line = line+1 endwhile if (nameline != -1 && verline != -1 && relline != -1) let include_release_info = 1 let name = s:ParseRpmVars(name, nameline) let ver = s:ParseRpmVars(ver, verline) let rel = s:ParseRpmVars(rel, relline) else let include_release_info = 0 endif if (chgline == -1) let option = confirm("Can't find %changelog. Create one? ","&End of file\n&Here\n&Cancel",3) if (option == 1) call append(line("$"),"") call append(line("$"),"%changelog") execute line("$") let chgline = line(".") elseif (option == 2) call append(line("."),"%changelog") normal j chgline = line(".") endif endif if (chgline != -1) execute "language time C" let parsed_format = "* ".strftime(format) execute "language time " . save_time let release_info = ver."-".rel let wrong_format = 0 let wrong_release = 0 let insert_line = 0 if (getline(chgline+1) != parsed_format) let wrong_format = 1 endif if (include_release_info && getline(chgline+2) != release_info) let wrong_release = 1 endif if (wrong_format || wrong_release) if (include_release_info && !wrong_release && !exists("g:spec_chglog_never_increase_release")) let option = confirm("Increase release? ","&Yes\n&No",1) if (option == 1) execute relline normal
let rel = substitute(strpart(getline(relline),8), '^[ ]*\([^ ]\+\)[ ]*$','\1','') let release_info = ver."-".rel endif endif let n = 0 if include_release_info let parsed_format = parsed_format." ".release_info endif call append(chgline+n, parsed_format) let n = n + 1 call append(chgline+n,"- ") let n = n + 1 call append(chgline+n,"") let insert_line = chgline+n else let line = chgline if !exists("g:spec_chglog_prepend") while !(getline(line+2) =~ '^\( *\|\*.*\)$') let line = line+1 endwhile endif call append(line+1,"- ") let insert_line = line+2 endif execute insert_line startinsert! endif endfunction endif if !exists("*s:ParseRpmVars") function s:ParseRpmVars(str, strline) let end = -1 let ret = "" while (1) let start = match(a:str, "\%{", end+1) if (start == -1) let ret = ret . strpart(a:str, end+1) break endif let ret = ret . strpart(a:str, end+1, start-(end+1)) let end = match(a:str, "}", start) if (end == -1) let ret = ret . strpart(a:str, start) break endif let varname = strpart(a:str, start+2, end-(start+2)) execute a:strline let definestr = "^[ \t]*%define[ \t]\\+" . varname . "[ \t]\\+\\(.*\\)$" let linenum = search(definestr, "bW") if (linenum != -1) let ret = ret . substitute(getline(linenum), definestr, "\\1", "") else let ret = ret . strpart(str, start, end+1-start) endif endwhile return ret endfunction endif " The following lines, along with the macros/matchit.vim plugin, " make it easy to navigate the different sections of a spec file " with the % key (thanks to Max Ischenko). let b:match_ignorecase = 0 let b:match_words = \ '^Name:^%description:^%clean:^%setup:^%build:^%install:^%files:' . \ '^%package:^%preun:^%postun:^%changelog' let &cpo = s:cpo_save unlet s:cpo_save let b:undo_ftplugin = "unlet! b:match_ignorecase b:match_words"