diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2025-09-14 21:36:04 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2025-09-14 22:04:06 +0900 |
| commit | 6fcf91be5256a6484e847f03e09e7275ff3d980b (patch) | |
| tree | a50255c94e22c2fc0f81c70061ca6d98c0d1e1fc | |
| parent | fbc00799654328c1a89b820e8736e3b846b6ce0d (diff) | |
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
| -rw-r--r-- | etc/teams/qt/common.scm | 23 |
1 files 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 <maxim.cournoyer@gmail.com> +;;; Copyright © 2023, 2025 Maxim Cournoyer <maxim@guixotic.coop> ;;; ;;; 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))) '())))) |