guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 6fcf91be5256a6484e847f03e09e7275ff3d980b
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Sun Sep 14 21:36:04 2025 +0900
teams/qt: Include python-pyqt packages in update manifest.
* etc/teams/qt/common.scm (qt-packages-manifest): Also select packages whose
name start with 'python-pyqt'.
Change-Id: I8caf2b62b1f0cd269d8c123d9e8ffe6344814c55
---
etc/teams/qt/common.scm | 23 +++++++++++++----------
1 file changed, 13 insertions(+), 10 deletions(-)
diff --git a/etc/teams/qt/common.scm b/etc/teams/qt/common.scm
index 4735b408d0..852d096391 100644
--- a/etc/teams/qt/common.scm
+++ b/etc/teams/qt/common.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2023 Maxim Cournoyer <[email protected]>
+;;; Copyright © 2023, 2025 Maxim Cournoyer <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -32,15 +32,18 @@ unspecified. If NEGATE-VERSION-TEST? is true, select all
the Qt packages
(let ((uri (and=> (package-source package)
(lambda (x)
(and (origin? x)
- (origin-uri x))))))
- (if (and uri
- (string? uri)
- (string-prefix? "mirror://qt/" uri)
- (if major-version
- ((if negate-version-test? not identity)
- (string=? major-version (version-major
- (package-version
package))))
- #t))
+ (origin-uri x)))))
+ (name (package-name package)))
+ (if (or (string-prefix? "python-pyqt" name)
+ (and uri
+ (string? uri)
+ (string-prefix? "mirror://qt/" uri)
+ (if major-version
+ ((if negate-version-test? not identity)
+ (string=? major-version
+ (version-major
+ (package-version package))))
+ #t)))
(cons package lst)
lst)))
'()))))
