" Plugin to update the %changelog section of RPM spec files" Filename: spec.vim" Maintainer: Gustavo Niemeyer <niemeyer@conectiva.com>" Last Change: Wed, 10 Apr 2002 16:28:52 -0300 if exists("b:did_ftplugin")	finishendiflet b:did_ftplugin = 1 if !exists("no_plugin_maps") && !exists("no_spec_maps")	if !hasmapto("<Plug>SpecChangelog")		map <buffer> <LocalLeader>c <Plug>SpecChangelog	endifendif noremap <buffer> <unique> <script> <Plug>SpecChangelog :call <SID>SpecChangelog("")<CR> if !exists("*s:SpecChangelog")	function s:SpecChangelog(format)		if strlen(a:format) == 0			if !exists("g:spec_chglog_format")				let email = input("Email address: ")				let g:spec_chglog_format = "%a %b %d %Y " . l:email				echo "\r"			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 = exists("g:spec_chglog_release_info")			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)			let parsed_format = "* ".strftime(format)			let release_info = "+ ".name."-".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 = "+ ".name."-".ver."-".rel					endif				endif				let n = 0				call append(chgline+n, parsed_format)				if include_release_info					let n = n + 1					call append(chgline+n, release_info)				endif				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	endfunctionendif 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    endfunctionendif " 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 = 0let b:match_words =  \ '^Name:^%description:^%clean:^%setup:^%build:^%install:^%files:' .  \ '^%package:^%preun:^%postun:^%changelog'