Replace manifest with Guix package definition. HEAD main

1 files changed, 46 insertions, 0 deletions

diff --git a/guix.scm b/guix.scm
new file mode 100644
index 0000000..c9225ec
--- /dev/null
+++ b/guix.scm
@@ -0,0 +1,46 @@
+(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