Replace manifest with Guix package definition. HEAD main

3 files changed, 47 insertions, 3 deletions

diff --git a/README.md b/README.md
index 65e4f12..c9b00a0 100644
--- a/README.md
+++ b/README.md
@@ -10,7 +10,7 @@ Really, this is hacky abuse of the single file HTTPS download links that the Glo
 
 [globus-sdk](https://pypi.org/project/globus-sdk/) and requests are the only dependencies. The easiest way to obtain them is to use GNU Guix. You will need the [guix-bioinformatics channel](https://git.genenetwork.org/guix-bioinformatics/about/).
 ```
-guix shell -m manifest.scm
+guix shell -Df guix.scm
 ```
 
 # How to use
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
diff --git a/manifest.scm b/manifest.scm
deleted file mode 100644
index 87ee2ec..0000000
--- a/manifest.scm
+++ /dev/null
@@ -1,2 +0,0 @@
-(specifications->manifest
- (list "python" "python-globus-sdk" "python-requests"))