From 4f3d9137a10d977b0f0ed519a31b90a81f6d92b7 Mon Sep 17 00:00:00 2001 From: Nicolas Graves Date: Mon, 29 Sep 2025 00:07:41 +0200 Subject: [PATCH] import: pypi: Improve home-page detection. A lot of python imports are generated with a #f home-page, despite the license being visible on PyPi. Fix this. * guix/import/pypi.scm (): Add fields project-info-project-home-page and project-info-project-source. (make-pypi-sexp): Use them. Change-Id: I661ffffc2aca37b4d42f7b7e3faa5537171523d4 Signed-off-by: Sharlatan Hellseher --- guix/import/pypi.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm index 4245e36a2a43194e0d9daf8f2d7c4fb424b91c4a..b451fb9387244215ce50569b945dfb7118c2e0cf 100644 --- a/guix/import/pypi.scm +++ b/guix/import/pypi.scm @@ -123,6 +123,12 @@ "download_url" non-empty-string-or-false) (home-page project-info-home-page ;string | #f "home_page" non-empty-string-or-false) + (project-home-page project-info-project-home-page ;string | #f + "project_urls" + (cut assoc-ref <> "Homepage")) + (project-source project-info-project-source ;string | #f + "project_urls" + (cut assoc-ref <> "Source")) (url project-info-url "project_url") ;string (release-url project-info-release-url "release_url") ;string (version project-info-version)) ;string @@ -624,7 +630,9 @@ VERSION." (let* ((info (pypi-project-info pypi-package)) (name (project-info-name info)) (source (pypi-package->upstream-source pypi-package version)) - (home-page (project-info-home-page info)) + (home-page (or (project-info-home-page info) + (project-info-project-home-page info) + (project-info-project-source info))) (home-page (if (and (string? home-page) (string-prefix? "http://" home-page)) (string-append "https" (string-drop home-page 4))