From 6fc8a3a19a9d9e6f1b9147ce7c6b46f3b7a4de66 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 26 Aug 2026 22:47:33 +0900 Subject: teams/gnome: Refine gnome-core-refresh script. * etc/teams/gnome/gnome-core-refresh (%gnome-releng-versions-uri): Update to version 50. (%names): Add more associations. (make-name-spec): New procedure. (releng-tree->update-specs): Use it. --- etc/teams/gnome/gnome-core-refresh | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) (limited to 'etc') diff --git a/etc/teams/gnome/gnome-core-refresh b/etc/teams/gnome/gnome-core-refresh index f9c7a9c661e..21a801a2b7b 100755 --- a/etc/teams/gnome/gnome-core-refresh +++ b/etc/teams/gnome/gnome-core-refresh @@ -48,7 +48,7 @@ (define %gnome-releng-versions-uri (make-parameter (or (getenv "GNOME_RELENG_VERSIONS_URI") - "https://gitlab.gnome.org/GNOME/releng/-/raw/master/tools/versions-49"))) + "https://gitlab.gnome.org/GNOME/releng/-/raw/master/tools/versions-50"))) (define (fetch-releng-content) "Return a string corresponding to the content of the %GNOME-RELENG-VERSIONS-URI @@ -73,10 +73,26 @@ NL < '\n'") (define %names '(("adwaita-fonts" . "font-adwaita") - ("glycin" . "glycin-loaders") + ("glycin" . "libglycin") + ("json-glib" . "json-glib-minimal") + ("libcloudproviders" . "libcloudproviders-minimal") + ("libsoup" . "libsoup-minimal") ("pygobject" . "python-pygobject") ("pyatspi" . "python-pyatspi"))) +(define (make-name-spec name version) + "Return a package name specification given its NAME and VERSION. This can +be used when the package NAME need to be transformed based on its VERSION." + (match (list name (version-major version)) + (("gcr" "3") + "gcr@3") + (("gtksourceview" "4") + "gtksourceview@4") + (("gtk" "3") + "gtk+") + ((name _) + (or (assoc-ref %names name) name)))) + (define (parse-releng data) "Return the complete parse tree for DATA, a string representing the content of a GNOME releng file." @@ -105,7 +121,7 @@ refresh' can automatically find the newest compatible version." (match tree (('releng ('entry ('suite "core") ('name name) ('version version) _) ...) (filter-map (lambda (name version) - (let ((name (or (assoc-ref %names name) name))) + (let* ((name (make-name-spec name version))) (and (check-package-name name) (if partial-versions? (let* ((parts (string-split version #\.)) -- cgit v1.2.3