me
/
guix
Archived
1
0
Fork 0
Code

build-aux: Relax the regexp used to match NEWS sections. 

A number of packages doesn't really make sense in the name of the section to
be substituted.  This change allows using simply '*** new packages' instead of
'*** 1999 new packages', for example, and have the update-NEWS.scm script
update it.

* build-aux/update-NEWS.scm (write-packages-added) <regexp>: Do not care about
leading white space in the name of the section.
master
Maxim Cournoyer 2021-04-18 09:58:31 -04:00
parent 87c0d6265c
commit 18dc8c6f0f
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
build-aux/update-NEWS.scm
View File

@ -95,7 +95,7 @@ paragraph."
(with-atomic-file-replacement news-file (with-atomic-file-replacement news-file
(lambda (input output) (lambda (input output)
(rewrite-org-section input output (rewrite-org-section input output
(make-regexp "^(\\*+) (.*) new packages") (make-regexp "^(\\*+).*new packages")
(lambda (match port) (lambda (match port)
(let ((stars (match:substring match 1))) (let ((stars (match:substring match 1)))
(format port (format port
@ -141,7 +141,7 @@ paragraph."
(with-atomic-file-replacement news-file (with-atomic-file-replacement news-file
(lambda (input output) (lambda (input output)
(rewrite-org-section input output (rewrite-org-section input output
(make-regexp "^(\\*+) (.*) package updates") (make-regexp "^(\\*+).*package updates")
(lambda (match port) (lambda (match port)
(let ((stars (match:substring match 1)) (let ((stars (match:substring match 1))
(lst (map (match-lambda (lst (map (match-lambda