bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

teams/qt: Include python-pyqt packages in update manifest.

Browse source 
* etc/teams/qt/common.scm (qt-packages-manifest): Also select packages whose
name start with 'python-pyqt'.

Change-Id: I8caf2b62b1f0cd269d8c123d9e8ffe6344814c55
This commit is contained in:
Maxim Cournoyer 2025-09-14 21:36:04 +09:00
parent fbc0079965
commit 6fcf91be52
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
etc/teams/qt/common.scm
View file

@ -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)))
'()))))