guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: guix-commits
Subject: 01/08: build-aux: Relax the regexp used to match NEWS sections.
Date: Sun, 18 Apr 2021 15:42:08 -0400 (EDT)

apteryx pushed a commit to branch version-1.3.0
in repository guix.

commit dc28018a8c4fbb8c8e3c74bb5d66644bb382fa52
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sun Apr 18 09:58:31 2021 -0400

    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.
---
 build-aux/update-NEWS.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/build-aux/update-NEWS.scm b/build-aux/update-NEWS.scm
index a05ecad..e916f3f 100644
--- a/build-aux/update-NEWS.scm
+++ b/build-aux/update-NEWS.scm
@@ -95,7 +95,7 @@ paragraph."
     (with-atomic-file-replacement news-file
       (lambda (input output)
         (rewrite-org-section input output
-                             (make-regexp "^(\\*+) (.*) new packages")
+                             (make-regexp "^(\\*+).*new packages")
                              (lambda (match port)
                                (let ((stars (match:substring match 1)))
                                  (format port
@@ -141,7 +141,7 @@ paragraph."
     (with-atomic-file-replacement news-file
       (lambda (input output)
         (rewrite-org-section input output
-                             (make-regexp "^(\\*+) (.*) package updates")
+                             (make-regexp "^(\\*+).*package updates")
                              (lambda (match port)
                                (let ((stars (match:substring match 1))
                                      (lst   (map (match-lambda



reply via email to

[Prev in Thread] Current Thread [Next in Thread]