aboutsummaryrefslogtreecommitdiff
path: root/gn/packages/genenetwork.scm
diff options
context:
space:
mode:
authorEfraim Flashner2020-08-18 08:20:13 -0500
committerEfraim Flashner2020-08-18 08:20:13 -0500
commitc29ac2a11247efb5609776a3be386380259e019e (patch)
treeade0ca4abe38ac6f706842100bb5cba53dd6a60e /gn/packages/genenetwork.scm
parent926ff576bf67febe2ceb6d07d2dbc442fcaf5270 (diff)
downloadguix-bioinformatics-c29ac2a11247efb5609776a3be386380259e019e.tar.gz
gn: Use local links for genenetwork1.
Diffstat (limited to 'gn/packages/genenetwork.scm')
-rw-r--r--gn/packages/genenetwork.scm21
1 files changed, 21 insertions, 0 deletions
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")