From c29ac2a11247efb5609776a3be386380259e019e Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Tue, 18 Aug 2020 08:20:13 -0500
Subject: gn: Use local links for genenetwork1.

---
 gn/packages/genenetwork.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 3cf7d98..282af31 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -820,6 +820,27 @@ written in C")
                  ;; This directory is expected to be writable
                  (symlink "/tmp" "web/tmp")
                  #t)))
+           (add-after 'unpack 'use-local-links
+             (lambda _
+               (substitute* "web/webqtl/base/webqtlConfig.py"
+                 (("http://www.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"
+                              (find-files "web" "\\.html"))
+                 ((".*base href.*") "")
+                 (("(HREF|href)=\\\"http://(www.)?genenetwork.org")
+                  "href=\""))
+               (substitute* "web/webqtl/base/indexBody.py"
+                 (("src=\\\"http://www.genenetwork.org") "src=\""))
+
+               ;; Move this file back to its original location.
+               (rename-file "web/infoshare/manager/MDB-Free/index.htm"
+                            "web/infoshare/manager/MDB-Free/index.html")
+               #t))
            (add-before 'install 'replace-htaccess-file
              (lambda _
                (delete-file "web/webqtl/.htaccess")
-- 
cgit v1.2.3