guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 4f3d9137a10d977b0f0ed519a31b90a81f6d92b7
Author: Nicolas Graves <[email protected]>
AuthorDate: Mon Sep 29 00:07:41 2025 +0200
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
(<project-info>): 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 <[email protected]>
---
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 4245e36a2a..b451fb9387 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))
