Make repository a guix channel.

* .guix-channel: New file.
* guix.scm: Move to ...
* .guix/genenetwork3-package.scm: ... here. Convert into a module with public
package variables.

3 files changed, 41 insertions, 39 deletions

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..222b451
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,21 @@
+;; This file lets us present this repo as a Guix channel.
+
+(channel
+  (version 0)
+  (directory ".guix")
+  (dependencies
+   (channel
+    (name guix-bioinformatics)
+    (url "https://gitlab.com/genenetwork/guix-bioinformatics.git"))
+   ;; FIXME: guix-bioinformatics depends on guix-past. So, there
+   ;; should be no reason to explicitly depend on guix-past. But, the
+   ;; channel does not build otherwise. This is probably a guix bug.
+   (channel
+    (name guix-past)
+    (url "https://gitlab.inria.fr/guix-hpc/guix-past")
+    (introduction
+     (channel-introduction
+      (version 0)
+      (commit "0c119db2ea86a389769f4d2b9c6f5c41c027e336")
+      (signer
+       "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"))))))
diff --git a/.guix/genenetwork3-package.scm b/.guix/genenetwork3-package.scm
new file mode 100644
index 0000000..9833213
--- /dev/null
+++ b/.guix/genenetwork3-package.scm
@@ -0,0 +1,19 @@
+(define-module (genenetwork3-package)
+  #:use-module ((gn packages genenetwork)
+                #:select (genenetwork3) #:prefix gn:)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (guix git-download)
+  #:use-module (guix packages))
+
+(define-public genenetwork3
+  (package
+    (inherit gn:genenetwork3)
+    (version (string-append (package-version gn:genenetwork3) "-git"))
+    (source (local-file ".."
+                        "genenetwork3-checkout"
+                        #:recursive? #t
+                        #:select? (or (git-predicate (dirname (current-source-directory)))
+                                      (const #t))))))
+
+genenetwork3
diff --git a/guix.scm b/guix.scm
index c46e884..bd2235c 100644..120000
--- a/guix.scm
+++ b/guix.scm
@@ -1,39 +1 @@
-;;; guix.scm --- genenetwork3 rest Api guix bootstrapping file.
-;;;
-;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
-;;;
-;;; This file is part of genenetwork3.
-;;;
-;;; genenetwork3 is free software: you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 3 of the
-;;; License, or (at your option) any later version.
-;;;
-;;; sheepdog is distributed in the hope that it will be useful, but
-;;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;;; General Public License for more details.
-;;;
-;;; You should have received a copy of the GNU General Public License
-;;; along with genenetwork3. If not, see https://www.gnu.org/licenses/.
-
-;; Make sure you have the
-;; https://git.genenetwork.org/guix-bioinformatics/guix-bioinformatics channel
-;; set up.
-;;
-;; To get a development container (e.g., run in emacs shell).
-;;
-;;   guix shell -C -Df guix.scm
-
-(use-modules (gn packages genenetwork)
-             (guix gexp)
-             (guix git-download)
-             (guix packages))
-
-(define %source-dir (dirname (current-filename)))
-
-(package
-  (inherit genenetwork3)
-  (source (local-file %source-dir "genenetwork3-checkout"
-                      #:recursive? #t
-                      #:select? (git-predicate %source-dir))))
+.guix/genenetwork3-package.scm
\ No newline at end of file