~ruther/guix-local: import: pypi: Improve home-page detection.

4f3d9137a10d977b0f0ed519a31b90a81f6d92b7 — Nicolas Graves 9 months ago 92c2333

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 <sharlatanus@gmail.com>

patch browse .tar.gz

1 files changed, 9 insertions(+), 1 deletions(-)

M guix/import/pypi.scm

M guix/import/pypi.scm => guix/import/pypi.scm +9 -1

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