Also have repository function as a guix channel

1 files changed, 45 insertions, 0 deletions

diff --git a/.guix/modules/genenetwork2.scm b/.guix/modules/genenetwork2.scm
new file mode 100644
index 00000000..46814c37
--- /dev/null
+++ b/.guix/modules/genenetwork2.scm
@@ -0,0 +1,45 @@
+;; Make sure you have the
+;; https://git.genenetwork.org/guix-bioinformatics/guix-bioinformatics
+;; channel set up.
+;;
+;; To drop into a development environment, run
+;;
+;; guix shell -Df guix.scm
+;;
+;; To get a development environment in a container, run
+;;
+;; guix shell -C -Df guix.scm
+
+(define-module (genenetwork2))
+(use-modules (gn packages genenetwork)
+             (guix gexp)
+             (guix utils)
+             (guix git-download)
+             (guix packages)
+             (ice-9 popen)
+             (ice-9 rdelim))
+
+(define %source-dir
+  (string-append (current-source-directory)
+                 "/../.."))
+
+;; This isn't kept up-to-date.
+(define %version
+  (call-with-input-file (string-append %source-dir "/VERSION")
+    (lambda (port)
+      (read-line port))))
+
+(define (%version package)
+  (or (version-major+minor+point (package-version package))
+      (version-major+minor (package-version package))))
+
+(define-public genenetwork2-head
+  (package
+    (inherit genenetwork2)
+    (version (string-append (%version genenetwork2) "-HEAD"))
+    (source (local-file %source-dir "genenetwork2-checkout"
+                        #:recursive? #t
+                        #:select? (or (git-predicate %source-dir)
+                                      (const #t))))))
+
+genenetwork2-head