Moved packages into past/genenetwork1 and packages/pangenome to reduce chance of

breaking the main genenetwork packages.

3 files changed, 344 insertions, 334 deletions

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index da18c08..1b028fa 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -18,13 +18,13 @@
   #:use-module (gnu packages base)
   #:use-module (gnu packages bioconductor)
   #:use-module (gnu packages bioinformatics)
-  #:use-module (gnu packages bootstrap)
   #:use-module (gnu packages check)
   #:use-module (gnu packages cran)
   #:use-module (gnu packages crates-io)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages databases)
   #:use-module (gnu packages ghostscript)
+  #:use-module (gnu packages golang)
   #:use-module (gnu packages graphviz)
   #:use-module (gnu packages parallel)
   #:use-module (gnu packages python)
@@ -38,143 +38,20 @@
   #:use-module (gnu packages scheme)
   #:use-module (gnu packages statistics)
   #:use-module (gnu packages version-control)
-  #:use-module (gnu packages vim)
+  ; #:use-module (gnu packages vim)
   #:use-module (gnu packages web)
-  #:use-module (gnu packages wget)
+  ; #:use-module (gnu packages wget)
   #:use-module (gnu packages xml)
-  #:use-module (past packages python)
-  #:use-module (past packages web)
   #:use-module (gn packages bioinformatics)
-  #:use-module (gn packages twint)
-  #:use-module (gn packages databases)
-  #:use-module (gn packages elixir)
   #:use-module (gn packages gemma)
   #:use-module (gn packages javascript)
-  #:use-module (gn packages phewas)
   #:use-module (gn packages python)
-  #:use-module (gn packages python24)
   #:use-module (gn packages statistics)
+  #:use-module (gn packages twint)
   #:use-module (gn packages web)
   #:use-module (srfi srfi-1))
 
 
-(define-public python2-qtlreaper
-  (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd"))
-  (package
-    (name "python2-qtlreaper")
-    (version (string-append "1.11-gn2-" (string-take commit 7) ))
-    (source (origin
-             (method git-fetch)
-             (uri (git-reference
-                   ;; (url "https://github.com/genenetwork/genenetwork2.git")
-                   (url "https://github.com/pjotrp/QTLreaper.git")
-                   (commit commit)))
-             (file-name (string-append name "-" (string-take commit 7)))
-             (sha256
-              (base32
-               "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm"))))
-    (build-system python-build-system)
-    (arguments
-     `(#:python ,python-2
-       #:tests? #f))   ; no 'setup.py test' really!
-    (home-page "http://qtlreaper.sourceforge.net/")
-    (synopsis "Scan expression data for QTLs")
-    (description
-     "Batch-oriented version of WebQTL. It requires, as input,
-expression data from members of a set of recombinant inbred lines and
-genotype information for the same lines.  It searches for an
-association between each expression trait and all genotypes and
-evaluates that association by a permutation test.  For the permutation
-test, it performs only as many permutations as are necessary to define
-the empirical P-value to a reasonable precision. It also performs
-bootstrap resampling to estimate the confidence region for the
-location of a putative QTL.")
-    (license license:gpl2+))))
-
-(define-public python24-qtlreaper
-  (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd"))
-    (package
-      (name "python24-qtlreaper")
-      (version (git-version "1.11" "gn1" commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                       ;; (url "https://github.com/genenetwork/genenetwork2.git")
-                       (url "https://github.com/pjotrp/QTLreaper.git")
-                       (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm"))))
-      (build-system python-build-system)
-      (arguments
-       `(#:python ,python-2.4
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'make-max-markername-size-larger
-             (lambda _
-               (substitute* "Src/dataset.c"
-                 (("512") "2048"))
-               #t))
-           (replace 'check
-             (lambda* (#:key inputs outputs #:allow-other-keys)
-               (add-installed-pythonpath inputs outputs)
-               (invoke "python" "test/runtest.py"))))))
-      (native-inputs
-       `(("python24-setuptools" ,python24-setuptools)))
-      (home-page "http://qtlreaper.sourceforge.net/")
-      (synopsis "Scan expression data for QTLs")
-      (description
-       "Batch-oriented version of WebQTL. It requires, as input,
-expression data from members of a set of recombinant inbred lines and
-genotype information for the same lines.  It searches for an
-association between each expression trait and all genotypes and
-evaluates that association by a permutation test.  For the permutation
-test, it performs only as many permutations as are necessary to define
-the empirical P-value to a reasonable precision. It also performs
-bootstrap resampling to estimate the confidence region for the
-location of a putative QTL.")
-      (license license:gpl2+))))
-
-;; Reintroduced python2-gunicorn because we are running GN with python2
-;; right now. Please keep it until we migrate to Python3 fully!
-
-(define-public python-gunicorn-gn
-  (package
-    (name "python-gunicorn-gn")
-    (version "19.9.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (pypi-uri "gunicorn" version))
-        (sha256
-         (base32
-          "1wzlf4xmn6qjirh5w81l6i6kqjnab1n1qqkh7zsj1yb6gh4n49ps"))))
-    (build-system python-build-system)
-    (inputs
-     `(("python-mock" ,python-mock)))
-    (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'loosen-verion-restrictions
-           (lambda _
-             (substitute* "requirements_test.txt"
-               (("coverage.*") "coverage\n")
-               (("pytest.*") "pytest\n")
-               (("pytest-cov.*") "pytest-cov\n"))
-             #t)))))
-    (native-inputs
-     `(("python-coverage" ,python-coverage)
-       ("python-pytest" ,python-pytest)
-       ("python-pytest-cov" ,python-pytest-cov)))
-    (home-page "https://gunicorn.org")
-    (synopsis "WSGI HTTP Server for UNIX")
-    (description "Gunicorn 'Green Unicorn' is a Python WSGI HTTP Server for
-UNIX.  It's a pre-fork worker model ported from Ruby's Unicorn project.  The
-Gunicorn server is broadly compatible with various web frameworks, simply
-implemented, light on server resource usage, and fairly speedy.")
-    (license license:expat)))
-
 (define-public rust-qtlreaper
   (let ((commit "2e7fed6d45b0b602d80fa2a55835f96ef1cba9e3")
         (revision "1"))
@@ -219,35 +96,6 @@ implemented, light on server resource usage, and fairly speedy.")
       (description "Reimplementation of genenetwork/QTLReaper in Rust")
       (license #f))))
 
-(define-public gfautil
-  (package
-    (name "gfautil")
-    (version "0.1.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (crate-uri "gfautil" version))
-        (file-name
-         (string-append name "-" version ".tar.gz"))
-        (sha256
-         (base32
-          "0cgiis9v1nd4m7zxvgsz8jf8ijv4d8fa5wb7cpnjshksb8z7xh69"))))
-    (build-system cargo-build-system)
-    (arguments
-     `(#:cargo-inputs
-       (("rust-bstr" ,rust-bstr-0.2)
-        ("rust-clap" ,rust-clap-2)
-        ("rust-gfa" ,rust-gfa-0.6)
-        ("rust-handlegraph" ,rust-handlegraph-0.3)
-        ("rust-rayon" ,rust-rayon-1)
-        ("rust-serde" ,rust-serde-1)
-        ("rust-structopt" ,rust-structopt-0.3))))
-    (home-page "https://github.com/chfi/rs-gfa-utils")
-    (synopsis "Command line tools for working with GFA files")
-    (description
-     "This package provides command line tools for working with @acronym{GFA,
-Graphical Fragment Assembly} files and related formats.")
-    (license license:expat)))
 
 (define-public genenetwork3
   (let ((commit "c9ee473ff7797f6bbd7507eb55c772a3a646acee"))
@@ -646,184 +494,6 @@ Graphical Fragment Assembly} files and related formats.")
 
 
 
-(define-public python-reaper
-  (let ((commit "63391333a6619771277bfffa9bd9d33811fa0d28"))
-    (package
-     (name "python-reaper")
-     (version (string-append "0.0.1-"
-                             (string-take commit 7)))
-     (source (origin
-               (method git-fetch)
-               (uri (git-reference
-                      (url "https://github.com/fredmanglis/reaper.git")
-                      (commit commit)))
-               (file-name (git-file-name name version))
-               (sha256
-                (base32
-                 "1rq2qn0vrqd8k676yy8drm0zxzkj065ywhxjl0j1n2r25zifay7r"))))
-     (build-system python-build-system)
-     (arguments
-      `(#:tests? #f))
-     (home-page "https://github.com/fredmanglis/reaper")
-     (synopsis "Parser for .geno files")
-     (description "Parser for .geno files.  It replaces the Python2 library
-written in C")
-     (license license:agpl3+))))
-
-
-(define-public genenetwork1
-  (let ((commit "acf65ac9ae4be395c07c1629758f7408bf4eab5f") ; June 3, 2020
-        (revision "2"))
-    (package
-      (name "genenetwork1")
-      (version (git-version "0.0.0" revision commit))
-      (source (origin
-        (method git-fetch)
-        (uri (git-reference
-               (url "https://github.com/genenetwork/genenetwork1.git")
-               (commit commit)))
-        (file-name (git-file-name name version))
-        (sha256
-         (base32
-          "0xmmmjyvh80yd8b0cjrwpdmxl8k9zj5ly65r2g9aygx74njsp4fi"))))
-      (build-system gnu-build-system)
-      (native-inputs
-       `(("ghostscript" ,ghostscript)
-         ("graphviz" ,graphviz)
-         ("wget" ,wget)))
-      (propagated-inputs
-       `(("python" ,python-2.4)
-         ("httpd-with-mod-python" ,httpd22-with-mod-python)
-         ("python-direct" ,python24-direct)
-         ("python-htmlgen-GN1" ,python24-htmlgen-GN1)
-         ("python-json-GN1" ,python24-json-GN1)
-         ("python-mysqlclient" ,python24-mysqlclient)
-         ("python-numarray" ,python24-numarray)
-         ("python-piddle" ,python24-piddle)
-         ("python-pp-GN1" ,python24-pp-GN1)
-         ("python-pyx" ,python24-pyx)
-         ("python-pyxlwriter" ,python24-pyxlwriter)
-         ("python-qtlreaper" ,python24-qtlreaper)
-         ("python-rpy2" ,python24-rpy2)
-         ("python-svg-GN1" ,python24-svg-GN1)))
-      (arguments
-       `(#:tests? #f ; no tests
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure)
-           (delete 'build)
-           (add-after 'patch-generated-file-shebangs 'patch-more-files
-             (lambda* (#:key inputs #:allow-other-keys)
-               (let ((piddle (assoc-ref inputs "python-piddle")))
-                 (substitute* "web/webqtl/networkGraph/networkGraphUtils.py"
-                   (("/usr/local/bin/neato") (which "neato"))
-                   (("/usr/local/bin/circo") (which "circo"))
-                   (("/usr/local/bin/twopi") (which "twopi"))
-                   (("/usr/local/bin/fdp") (which "fdp"))
-                   (("ps2pdf") (which "ps2pdf")))
-                 (substitute* "web/webqtl/maintainance/addRif.py"
-                   (("rm ") (string-append (which "rm") " "))
-                   (("wget ") (string-append (which "wget") " "))
-                   (("gunzip") (which "gunzip")))
-                 (substitute* "web/webqtl/misc/editHtmlPage.py"
-                   (("/bin/cp") (which "cp")))
-                 (substitute* "web/webqtl/geneWiki/AddGeneRIFPage.py"
-                   (("touch") (which "touch")))
-                 (substitute* '("web/webqtl/maintainance/addRif.py"
-                                "web/webqtl/networkGraph/networkGraphPage.py"
-                                "web/webqtl/utility/svg.py")
-                   (("/usr/bin/(env )?python") (which "python")))
-                 (substitute* "web/webqtl/base/webqtlConfigLocal.py"
-                   (("PythonPath.*")
-                    (string-append "PythonPath = '" (which "python") "'\n"))
-                   (("PIDDLE_FONT_PATH.*/lib")
-                    (string-append "PIDDLE_FONT_PATH = '" piddle "/lib"))))
-               #t))
-           (add-after 'patch-generated-file-shebangs 'changes-for-deployed-service
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out    (assoc-ref outputs "out")))
-                 (substitute* "web/webqtl/base/webqtlConfigLocal.py"
-                   ;; Where GN1 is located: (GNROOT)
-                   (("/gnshare/gn") out)
-                   ;; Where the database is located: (sql_host)
-                   (("tux01.uthsc.edu") "127.0.0.1"))
-                   (substitute* '("web/webqtl/maintainance/QTL_Reaper_cal_lrs.py")
-                     (("128\\.169\\.5\\.59") "localhost"))
-                 ;; This directory (TMPDIR) is expected to be writable by apache.
-                 ;; /tmp is private inside the container.
-                 (symlink "/tmp" "web/tmp")
-                 ;; IMGDIR is expected to be writable.
-                 (symlink "/tmp" "web/image")
-                 (system "chmod 0777 web/tmp")
-                 ;; More writable locations:
-                 (substitute* (list "web/webqtl/collection/ExportSelectionDetailInfoPage.py"
-                                    "web/webqtl/pairScan/DirectPlotPage.py"
-                                    "web/webqtl/updateTrait/DataUpdatePage.py"
-                                    "web/webqtl/utility/Plot.py")
-                   (("/gnshare/gn/web/debug_file.txt") "/tmp/debug_file.txt"))
-                 ;; We mount the genotypes folder (GENODIR) in the OS-config and
-                 ;; provide the symlink to that location from the package.
-                 ;; And now the directory is magically available!
-                 (symlink "/gnshare/gn/web/genotypes" "web/genotypes")
-                 (substitute* "web/webqtl/base/webqtlConfig.py"
-                   (("http://www.genenetwork.org") "http://gn1-test.genenetwork.org"))
-                 ;; Inside the gn1 container, there's some conflict when
-                 ;; importing the user module, therefore, as a hack, rename
-                 ;; user to useralt
-                 (mkdir "web/webqtl/useralt")
-                 (copy-recursively "web/webqtl/user" "web/webqtl/useralt")
-                 (substitute* '("web/webqtl/main.py")
-                   (("from user import") "from useralt import"))
-                 #t)))
-           (add-after 'unpack 'use-local-links
-             (lambda _
-               (substitute* '("web/javascript/menu_items.js"
-                              "web/webqtl/maintainance/updateMenuJS.py")
-                 (("http://(www|gn1).genenetwork.org") ""))
-
-               ;; Move this file out of the way while patching files.
-               (rename-file "web/infoshare/manager/MDB-Free/index.html"
-                            "web/infoshare/manager/MDB-Free/index.htm")
-               (substitute* (cons*
-                              "web/webqtl/base/indexBody.py"
-                              "web/webqtl/submitTrait/BatchSubmitPage.py"
-                              (find-files "web" "\\.html"))
-                 ((".*base href.*") "")
-                 (("(HREF|href)=\\\"http://(www.)?genenetwork.org")
-                  "href=\""))
-               ;; Move this file back to its original location.
-               (rename-file "web/infoshare/manager/MDB-Free/index.htm"
-                            "web/infoshare/manager/MDB-Free/index.html")
-
-               (substitute* (cons*
-                              "web/humanCross.html"
-                              "web/webqtl/base/indexBody.py"
-                              "web/whats_new.html"
-                              (find-files "web/dbdoc" "\\.html"))
-                 (("src=\\\"http://www.genenetwork.org") "src=\""))
-               #t))
-           (replace 'install
-             (lambda* (#:key outputs #:allow-other-keys)
-               (copy-recursively "." (assoc-ref outputs "out"))
-               #t)))))
-      (home-page "http://www.genenetwork.org/webqtl/main.py")
-      (synopsis
-       "Combined database and data analysis software resource for systems genetics")
-      (description "GeneNetwork is a group of linked data sets and tools used to
-study complex networks of genes, molecules, and higher order gene function and
-phenotypes.  GeneNetwork combines more than 25 years of legacy data generated by
-hundreds of scientists together with sequence data (SNPs) and massive
-transcriptome data sets (expression genetic or eQTL data sets).  The
-@dfn{quantitative trait locus} (QTL) mapping module that is built into GN is
-optimized for fast on-line analysis of traits that are controlled by
-combinations of gene
-variants and environmental factors.  GeneNetwork can be used to study humans,
-mice (BXD, AXB, LXS, etc.), rats (HXB), Drosophila, and plant species (barley
-and Arabidopsis).  Most of these population data sets are linked with dense
-genetic maps (genotypes) that can be used to locate the genetic modifiers that
-cause differences in expression and phenotypes, including disease susceptibility.")
-      (license license:agpl3+))))
-
 (define (genenetwork-graph)
   (with-imported-modules '((guix build utils))
     (gexp->derivation "genenetwork-graph"
diff --git a/gn/packages/pangenome.scm b/gn/packages/pangenome.scm
new file mode 100644
index 0000000..69e3d81
--- /dev/null
+++ b/gn/packages/pangenome.scm
@@ -0,0 +1,51 @@
+;; Bioinformatics module
+
+(define-module (gn packages pangenome)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system cargo)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix graph)
+  #:use-module (guix scripts graph)
+  #:use-module (guix store)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages crates-io)
+  #:use-module (gnu packages rust)
+  #:use-module (gnu packages version-control)
+  #:use-module (srfi srfi-1))
+
+
+(define-public gfautil
+  (package
+    (name "gfautil")
+    (version "0.1.0")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (crate-uri "gfautil" version))
+        (file-name
+         (string-append name "-" version ".tar.gz"))
+        (sha256
+         (base32
+          "0cgiis9v1nd4m7zxvgsz8jf8ijv4d8fa5wb7cpnjshksb8z7xh69"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs
+       (("rust-bstr" ,rust-bstr-0.2)
+        ("rust-clap" ,rust-clap-2)
+        ("rust-gfa" ,rust-gfa-0.6)
+        ("rust-handlegraph" ,rust-handlegraph-0.3)
+        ("rust-rayon" ,rust-rayon-1)
+        ("rust-serde" ,rust-serde-1)
+        ("rust-structopt" ,rust-structopt-0.3))))
+    (home-page "https://github.com/chfi/rs-gfa-utils")
+    (synopsis "Command line tools for working with GFA files")
+    (description
+     "This package provides command line tools for working with @acronym{GFA,
+Graphical Fragment Assembly} files and related formats.")
+    (license license:expat)))
diff --git a/gn/past/genenetwork1.scm b/gn/past/genenetwork1.scm
new file mode 100644
index 0000000..b14d787
--- /dev/null
+++ b/gn/past/genenetwork1.scm
@@ -0,0 +1,289 @@
+;; Bioinformatics module
+
+(define-module (gn past genenetwork1)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system cargo)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system python)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix graph)
+  #:use-module (guix scripts graph)
+  #:use-module (guix store)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bioconductor)
+  #:use-module (gnu packages bioinformatics)
+  #:use-module (gnu packages bootstrap)
+  #:use-module (gnu packages check)
+  #:use-module (gnu packages cran)
+  #:use-module (gnu packages crates-io)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages ghostscript)
+  #:use-module (gnu packages graphviz)
+  #:use-module (gnu packages parallel)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-check)
+  #:use-module (gnu packages python-crypto)
+  #:use-module (gnu packages python-science)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages rdf)
+  #:use-module (gnu packages scheme)
+  #:use-module (gnu packages statistics)
+  #:use-module (gnu packages version-control)
+  #:use-module (gnu packages vim)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages wget)
+  #:use-module (gnu packages xml)
+  #:use-module (past packages python)
+  #:use-module (past packages web)
+  #:use-module (gn packages bioinformatics)
+  #:use-module (gn packages twint)
+  #:use-module (gn packages databases)
+  #:use-module (gn packages elixir)
+  #:use-module (gn packages gemma)
+  #:use-module (gn packages javascript)
+  #:use-module (gn packages phewas)
+  #:use-module (gn packages python)
+  #:use-module (gn packages python24)
+  #:use-module (gn packages statistics)
+  #:use-module (gn packages web)
+  #:use-module (srfi srfi-1))
+
+
+(define-public python2-qtlreaper
+  (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd"))
+  (package
+    (name "python2-qtlreaper")
+    (version (string-append "1.11-gn2-" (string-take commit 7) ))
+    (source (origin
+             (method git-fetch)
+             (uri (git-reference
+                   ;; (url "https://github.com/genenetwork/genenetwork2.git")
+                   (url "https://github.com/pjotrp/QTLreaper.git")
+                   (commit commit)))
+             (file-name (string-append name "-" (string-take commit 7)))
+             (sha256
+              (base32
+               "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm"))))
+    (build-system python-build-system)
+    (arguments
+     `(#:python ,python-2
+       #:tests? #f))   ; no 'setup.py test' really!
+    (home-page "http://qtlreaper.sourceforge.net/")
+    (synopsis "Scan expression data for QTLs")
+    (description
+     "Batch-oriented version of WebQTL. It requires, as input,
+expression data from members of a set of recombinant inbred lines and
+genotype information for the same lines.  It searches for an
+association between each expression trait and all genotypes and
+evaluates that association by a permutation test.  For the permutation
+test, it performs only as many permutations as are necessary to define
+the empirical P-value to a reasonable precision. It also performs
+bootstrap resampling to estimate the confidence region for the
+location of a putative QTL.")
+    (license license:gpl2+))))
+
+(define-public python24-qtlreaper
+  (let ((commit "442c217b90393380a8634ff8636b44992f5c53dd"))
+    (package
+      (name "python24-qtlreaper")
+      (version (git-version "1.11" "gn1" commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                       ;; (url "https://github.com/genenetwork/genenetwork2.git")
+                       (url "https://github.com/pjotrp/QTLreaper.git")
+                       (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "1rrbm1ap2zzyjxmrs9aa1d18sgiba5dhj1fmkl7wmab06jv3j1hm"))))
+      (build-system python-build-system)
+      (arguments
+       `(#:python ,python-2.4
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'make-max-markername-size-larger
+             (lambda _
+               (substitute* "Src/dataset.c"
+                 (("512") "2048"))
+               #t))
+           (replace 'check
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (add-installed-pythonpath inputs outputs)
+               (invoke "python" "test/runtest.py"))))))
+      (native-inputs
+       `(("python24-setuptools" ,python24-setuptools)))
+      (home-page "http://qtlreaper.sourceforge.net/")
+      (synopsis "Scan expression data for QTLs")
+      (description
+       "Batch-oriented version of WebQTL. It requires, as input,
+expression data from members of a set of recombinant inbred lines and
+genotype information for the same lines.  It searches for an
+association between each expression trait and all genotypes and
+evaluates that association by a permutation test.  For the permutation
+test, it performs only as many permutations as are necessary to define
+the empirical P-value to a reasonable precision. It also performs
+bootstrap resampling to estimate the confidence region for the
+location of a putative QTL.")
+      (license license:gpl2+))))
+
+(define-public genenetwork1
+  (let ((commit "acf65ac9ae4be395c07c1629758f7408bf4eab5f") ; June 3, 2020
+        (revision "2"))
+    (package
+      (name "genenetwork1")
+      (version (git-version "0.0.0" revision commit))
+      (source (origin
+        (method git-fetch)
+        (uri (git-reference
+               (url "https://github.com/genenetwork/genenetwork1.git")
+               (commit commit)))
+        (file-name (git-file-name name version))
+        (sha256
+         (base32
+          "0xmmmjyvh80yd8b0cjrwpdmxl8k9zj5ly65r2g9aygx74njsp4fi"))))
+      (build-system gnu-build-system)
+      (native-inputs
+       `(("ghostscript" ,ghostscript)
+         ("graphviz" ,graphviz)
+         ("wget" ,wget)))
+      (propagated-inputs
+       `(("python" ,python-2.4)
+         ("httpd-with-mod-python" ,httpd22-with-mod-python)
+         ("python-direct" ,python24-direct)
+         ("python-htmlgen-GN1" ,python24-htmlgen-GN1)
+         ("python-json-GN1" ,python24-json-GN1)
+         ("python-mysqlclient" ,python24-mysqlclient)
+         ("python-numarray" ,python24-numarray)
+         ("python-piddle" ,python24-piddle)
+         ("python-pp-GN1" ,python24-pp-GN1)
+         ("python-pyx" ,python24-pyx)
+         ("python-pyxlwriter" ,python24-pyxlwriter)
+         ("python-qtlreaper" ,python24-qtlreaper)
+         ("python-rpy2" ,python24-rpy2)
+         ("python-svg-GN1" ,python24-svg-GN1)))
+      (arguments
+       `(#:tests? #f ; no tests
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure)
+           (delete 'build)
+           (add-after 'patch-generated-file-shebangs 'patch-more-files
+             (lambda* (#:key inputs #:allow-other-keys)
+               (let ((piddle (assoc-ref inputs "python-piddle")))
+                 (substitute* "web/webqtl/networkGraph/networkGraphUtils.py"
+                   (("/usr/local/bin/neato") (which "neato"))
+                   (("/usr/local/bin/circo") (which "circo"))
+                   (("/usr/local/bin/twopi") (which "twopi"))
+                   (("/usr/local/bin/fdp") (which "fdp"))
+                   (("ps2pdf") (which "ps2pdf")))
+                 (substitute* "web/webqtl/maintainance/addRif.py"
+                   (("rm ") (string-append (which "rm") " "))
+                   (("wget ") (string-append (which "wget") " "))
+                   (("gunzip") (which "gunzip")))
+                 (substitute* "web/webqtl/misc/editHtmlPage.py"
+                   (("/bin/cp") (which "cp")))
+                 (substitute* "web/webqtl/geneWiki/AddGeneRIFPage.py"
+                   (("touch") (which "touch")))
+                 (substitute* '("web/webqtl/maintainance/addRif.py"
+                                "web/webqtl/networkGraph/networkGraphPage.py"
+                                "web/webqtl/utility/svg.py")
+                   (("/usr/bin/(env )?python") (which "python")))
+                 (substitute* "web/webqtl/base/webqtlConfigLocal.py"
+                   (("PythonPath.*")
+                    (string-append "PythonPath = '" (which "python") "'\n"))
+                   (("PIDDLE_FONT_PATH.*/lib")
+                    (string-append "PIDDLE_FONT_PATH = '" piddle "/lib"))))
+               #t))
+           (add-after 'patch-generated-file-shebangs 'changes-for-deployed-service
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let ((out    (assoc-ref outputs "out")))
+                 (substitute* "web/webqtl/base/webqtlConfigLocal.py"
+                   ;; Where GN1 is located: (GNROOT)
+                   (("/gnshare/gn") out)
+                   ;; Where the database is located: (sql_host)
+                   (("tux01.uthsc.edu") "127.0.0.1"))
+                   (substitute* '("web/webqtl/maintainance/QTL_Reaper_cal_lrs.py")
+                     (("128\\.169\\.5\\.59") "localhost"))
+                 ;; This directory (TMPDIR) is expected to be writable by apache.
+                 ;; /tmp is private inside the container.
+                 (symlink "/tmp" "web/tmp")
+                 ;; IMGDIR is expected to be writable.
+                 (symlink "/tmp" "web/image")
+                 (system "chmod 0777 web/tmp")
+                 ;; More writable locations:
+                 (substitute* (list "web/webqtl/collection/ExportSelectionDetailInfoPage.py"
+                                    "web/webqtl/pairScan/DirectPlotPage.py"
+                                    "web/webqtl/updateTrait/DataUpdatePage.py"
+                                    "web/webqtl/utility/Plot.py")
+                   (("/gnshare/gn/web/debug_file.txt") "/tmp/debug_file.txt"))
+                 ;; We mount the genotypes folder (GENODIR) in the OS-config and
+                 ;; provide the symlink to that location from the package.
+                 ;; And now the directory is magically available!
+                 (symlink "/gnshare/gn/web/genotypes" "web/genotypes")
+                 (substitute* "web/webqtl/base/webqtlConfig.py"
+                   (("http://www.genenetwork.org") "http://gn1-test.genenetwork.org"))
+                 ;; Inside the gn1 container, there's some conflict when
+                 ;; importing the user module, therefore, as a hack, rename
+                 ;; user to useralt
+                 (mkdir "web/webqtl/useralt")
+                 (copy-recursively "web/webqtl/user" "web/webqtl/useralt")
+                 (substitute* '("web/webqtl/main.py")
+                   (("from user import") "from useralt import"))
+                 #t)))
+           (add-after 'unpack 'use-local-links
+             (lambda _
+               (substitute* '("web/javascript/menu_items.js"
+                              "web/webqtl/maintainance/updateMenuJS.py")
+                 (("http://(www|gn1).genenetwork.org") ""))
+
+               ;; Move this file out of the way while patching files.
+               (rename-file "web/infoshare/manager/MDB-Free/index.html"
+                            "web/infoshare/manager/MDB-Free/index.htm")
+               (substitute* (cons*
+                              "web/webqtl/base/indexBody.py"
+                              "web/webqtl/submitTrait/BatchSubmitPage.py"
+                              (find-files "web" "\\.html"))
+                 ((".*base href.*") "")
+                 (("(HREF|href)=\\\"http://(www.)?genenetwork.org")
+                  "href=\""))
+               ;; Move this file back to its original location.
+               (rename-file "web/infoshare/manager/MDB-Free/index.htm"
+                            "web/infoshare/manager/MDB-Free/index.html")
+
+               (substitute* (cons*
+                              "web/humanCross.html"
+                              "web/webqtl/base/indexBody.py"
+                              "web/whats_new.html"
+                              (find-files "web/dbdoc" "\\.html"))
+                 (("src=\\\"http://www.genenetwork.org") "src=\""))
+               #t))
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (copy-recursively "." (assoc-ref outputs "out"))
+               #t)))))
+      (home-page "http://www.genenetwork.org/webqtl/main.py")
+      (synopsis
+       "Combined database and data analysis software resource for systems genetics")
+      (description "GeneNetwork is a group of linked data sets and tools used to
+study complex networks of genes, molecules, and higher order gene function and
+phenotypes.  GeneNetwork combines more than 25 years of legacy data generated by
+hundreds of scientists together with sequence data (SNPs) and massive
+transcriptome data sets (expression genetic or eQTL data sets).  The
+@dfn{quantitative trait locus} (QTL) mapping module that is built into GN is
+optimized for fast on-line analysis of traits that are controlled by
+combinations of gene
+variants and environmental factors.  GeneNetwork can be used to study humans,
+mice (BXD, AXB, LXS, etc.), rats (HXB), Drosophila, and plant species (barley
+and Arabidopsis).  Most of these population data sets are linked with dense
+genetic maps (genotypes) that can be used to locate the genetic modifiers that
+cause differences in expression and phenotypes, including disease susceptibility.")
+      (license license:agpl3+))))