From e4143ab02f03d6f765ca9cea800ee94df4e2e55e Mon Sep 17 00:00:00 2001
From: Efraim Flashner
Date: Mon, 23 Sep 2019 01:59:46 -0500
Subject: gn: genenetwork2: Use packaged javascript-colorbox.

* gn/packages/genenetwork.scm (genenetwork2)[inputs]: Add
javascript-colorbox's source.
[arguments]: Replace vendored javascript-colorbox with our own.
---
 gn/packages/genenetwork.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'gn/packages/genenetwork.scm')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 175ec69..7e5a04e 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -287,6 +287,8 @@ location of a putative QTL.")
        ("javascript-panzoom" ,javascript-cytoscape-panzoom)
        ("javascript-qtip" ,javascript-cytoscape-qtip)
        ))
+    (inputs
+     `(("javascript-colorbox" ,(package-source javascript-colorbox))))
     (build-system python-build-system)
     (arguments
      `(#:python ,python-2
@@ -307,9 +309,16 @@ location of a putative QTL.")
                  (("git") (which "git"))
                  (("grep") (which "grep"))
                  (("rm") (which "rm"))
-                 (("which") (which "which")) ; three wiches in a row!
+                 (("which") (which "which")) ; three whiches in a row!
                  )
                #t))
+           (add-after 'unpack 'patch-javascript
+             (lambda* (#:key inputs #:allow-other-keys)
+               (let ((colorbox (assoc-ref inputs "javascript-colorbox"))
+                     (gn2 "/share/genenetwork2/javascript/"))
+                 (delete-file-recursively "wqflask/wqflask/static/packages/colorbox")
+                 (copy-recursively colorbox "wqflask/wqflask/static/packages/colorbox")
+                 #t)))
            (add-before 'install 'fix-paths
              (lambda* (#:key inputs #:allow-other-keys)
                (let* (
-- 
cgit v1.2.3