diff options
| author | Efraim Flashner | 2020-08-18 08:20:13 -0500 |
|---|---|---|
| committer | Efraim Flashner | 2020-08-18 08:20:13 -0500 |
| commit | c29ac2a11247efb5609776a3be386380259e019e (patch) | |
| tree | ade0ca4abe38ac6f706842100bb5cba53dd6a60e | |
| parent | 926ff576bf67febe2ceb6d07d2dbc442fcaf5270 (diff) | |
| download | guix-bioinformatics-c29ac2a11247efb5609776a3be386380259e019e.tar.gz | |
gn: Use local links for genenetwork1.
| -rw-r--r-- | gn/packages/genenetwork.scm | 21 |
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") |