(use-modules ((gnu packages python-web) #:select (python-globus-sdk
                                                  python-requests))
             (guix build-system python)
             (guix gexp)
             (guix git-download)
             ((guix licenses) #:prefix license:)
             (guix packages))

(define-public globus-weblinks
  (let ((commit "7a0017b796ab1f691823576a35db543215f07792")
        (revision "1"))
    (package
      (name "globus-weblinks")
      (version (git-version "0.1.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                       (url "https://github.com/arunisaac/globus-weblinks")
                       (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "0inc0mdh7a31060n01pg1ymr4sw7pjj4vz2cdagvc2pkv26b30f2"))))
      (build-system python-build-system)
      (arguments
       (list #:tests? #f ;; no tests
             #:phases
             #~(modify-phases %standard-phases
                 (delete 'build)
                 (replace 'install
                   (lambda _
                     (install-file "globus-weblinks"
                                   (string-append #$output "/bin")))))))
      (inputs
       (list python-globus-sdk
             python-requests))
      (home-page "https://github.com/arunisaac/globus-weblinks")
      (synopsis "Download data from Globus via HTTPS")
      (description "@code{globus-weblinks} is a quick hack to download
data from Globus via HTTPS and without having to set up any
Globus-specific tools.  This is convenient if you simply want to
download data from a Globus collection, and don't wish to set up their
complex proprietary tooling.")
      (license license:unlicense))))

globus-weblinks