Added cytoscape-js package

4 files changed, 71 insertions, 65 deletions

diff --git a/gn/packages/gemma.scm b/gn/packages/gemma.scm
index 90735fe..5e9b4b7 100644
--- a/gn/packages/gemma.scm
+++ b/gn/packages/gemma.scm
@@ -57,7 +57,7 @@
   #:use-module (gnu packages web)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages bootstrap)
-  #:use-module (gn packages ldc)
+  ; #:use-module (gn packages ldc)
   #:use-module (gn packages ldc)
   #:use-module (gn packages shell)
   #:use-module (srfi srfi-1))
diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index 9aa723f..8783717 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -28,7 +28,7 @@
   #:use-module (gnu packages graphviz)
   #:use-module (gnu packages java)
   #:use-module (gnu packages linux)
-  #:use-module (gnu packages ldc)
+  ; #:use-module (gnu packages ldc)
   #:use-module (gnu packages machine-learning)
   #:use-module (gnu packages maths)
   #:use-module (gnu packages ncurses)
@@ -273,6 +273,7 @@ location of a putative QTL.")
               ("python2-xlsxwriter" ,python2-xlsxwriter)
               ("python2-qtlreaper" ,python2-qtlreaper)
               ("javascript-twitter-post-fetcher" ,javascript-twitter-post-fetcher)
+              ("javascript-cytoscape" ,javascript-cytoscape)
               ))
     (build-system python-build-system)
     (arguments
@@ -433,7 +434,7 @@ location of a putative QTL.")
 	("python-parameterized" ,python-parameterized) ;; used for the tests
 	("genenetwork2-files-small" ,genenetwork2-files-small)
 	("javascript-twitter-post-fetcher" ,javascript-twitter-post-fetcher)
-
+	; ("javascript-cytoscape" ,javascript-cytoscape)
 
 	;; With Python3 support
 	("gunicorn" ,gunicorn)
diff --git a/gn/packages/javascript.scm b/gn/packages/javascript.scm
index 7fc82af..e9173ca 100644
--- a/gn/packages/javascript.scm
+++ b/gn/packages/javascript.scm
@@ -1,5 +1,7 @@
 (define-module (gn packages javascript)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages compression)
   #:use-module (gnu packages)
   #:use-module (guix packages)
   #:use-module (guix download)
@@ -11,36 +13,73 @@
 
 (define-public javascript-twitter-post-fetcher
   (let ((commit "27440ffebd4c1ba7abc9aec92a581155715f2e4e"))
+    (package
+     (name "javascript-twitter-post-fetcher")
+     (version (string-append "17.0.3" "-" (string-take commit 7)))
+     (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/jasonmayes/Twitter-Post-Fetcher.git")
+                    (commit commit)))
+              (file-name (string-append name "-" commit))
+              (sha256
+               (base32
+                "159z8izf510086d8sa79k4mml6sw1gycb1r1r9ri1kyw2k9knmqa"))))
+     (build-system trivial-build-system)
+     (native-inputs `(("source" ,source)))
+     (arguments
+      `(#:modules ((guix build utils))
+        #:builder
+        (let* ((out (assoc-ref %outputs "out"))
+               (name "Twitter-Post-Fetcher")
+               (targetdir (string-append out "/share/genenetwork2/javascript/" name))
+               )
+          (begin
+            (use-modules (guix build utils))
+            (let ((source (assoc-ref %build-inputs "source"))
+                  )
+              (and
+                                        ; (mkdir-p targetdir)
+               (copy-recursively source targetdir)
+               ))))))
+     (home-page "http://jasonmayes.com/projects/twitterApi/")
+     (synopsis "Twitter post fetching")
+     (description "Twitter post fetching.")
+     (license license:expat))))
+
+(define-public javascript-cytoscape
   (package
-    (name "javascript-twitter-post-fetcher")
-    (version (string-append "17.0.3" "-" (string-take commit 7)))
-    (source (origin
-             (method git-fetch)
-             (uri (git-reference
-                   (url "https://github.com/jasonmayes/Twitter-Post-Fetcher.git")
-                   (commit commit)))
-             (file-name (string-append name "-" commit))
-             (sha256
-              (base32
-               "159z8izf510086d8sa79k4mml6sw1gycb1r1r9ri1kyw2k9knmqa"))))
+    (name "javascript-cytoscape")
+    (version "2.7.8") ; ancient version
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/cytoscape/cytoscape.js/archive/v" version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "08ks2nd7ccmdmahn151i180pvhn4vdzgpw99g4g4f2baz9pkz4w3"))))
     (build-system trivial-build-system)
-    (native-inputs `(("source" ,source)))
+    (native-inputs `(("gzip" ,gzip)
+                     ("tar" ,tar)
+                     ("source" ,source)))
     (arguments
      `(#:modules ((guix build utils))
        #:builder
-       (let* ((out (assoc-ref %outputs "out"))
-              (name "Twitter-Post-Fetcher")
-              (targetdir (string-append out "/share/genenetwork2/javascript/" name))
-              )
-           (begin
-             (use-modules (guix build utils))
-             (let ((source (assoc-ref %build-inputs "source"))
-                   )
-               (and
-                    ; (mkdir-p targetdir)
-                    (copy-recursively source targetdir)
-                    ))))))
-    (home-page "http://jasonmayes.com/projects/twitterApi/")
-    (synopsis "Twitter post fetching")
-    (description "Twitter post fetching.")
-    (license license:expat))))
+       (begin
+         (use-modules (guix build utils))
+         (let* ((out (assoc-ref %outputs "out"))
+                (tarcmd (string-append (assoc-ref %build-inputs "tar") "/bin/tar"))
+                (targetdir (string-append out "/share/genenetwork2/javascript/cytoscape"))
+                (source (assoc-ref %build-inputs "source")))
+           (setenv "PATH" (string-append
+                           (assoc-ref %build-inputs "tar") "/bin" ":"
+                           (assoc-ref %build-inputs "gzip") "/bin"))
+           (invoke "tar" "xvf" (assoc-ref %build-inputs "source") "--strip-components=1")
+           (mkdir-p targetdir)
+           (copy-recursively "dist" targetdir)
+           ))))
+
+    (home-page "https://github.com/cytoscape/cytoscape.js")
+    (synopsis "Cytoscape.js")
+    (description "Cytoscape.")
+    (license license:expat)))
diff --git a/gn/packages/python.scm b/gn/packages/python.scm
index a6a99c6..23444f6 100644
--- a/gn/packages/python.scm
+++ b/gn/packages/python.scm
@@ -64,40 +64,6 @@
     "Variant Call Format (VCF) parser for Python")
    (license #f)))
 
-
-(define-public python-elasticsearch
-  (package
-    (name "python-elasticsearch")
-    (version "6.1.1")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (pypi-uri "elasticsearch" version))
-        (sha256
-         (base32
-          "1kjxl45yvvgfb5fmamx0kfsfg9pzphiqrwbkns3s28r1w7ya74cd"))))
-    (build-system python-build-system)
-    (native-inputs
-     `(("python-mock" ,python-mock)
-       ("python-nosexcover" ,python-nosexcover)
-       ("python-pyaml" ,python-pyaml)
-       ("python-requests" ,python-requests)))
-    (propagated-inputs
-     `(("urllib3" ,python-urllib3)))
-    (arguments
-     ;; tests require the test_elasticsearch module but it is not distributed.
-     `(#:tests? #f))
-    (home-page "https://github.com/elastic/elasticsearch-py")
-    (synopsis "Low-level client for Elasticsearch")
-    (description "Official low-level client for Elasticsearch.  Its goal is to
-provide common ground for all Elasticsearch-related code in Python; because of
-this it tries to be opinion-free and very extendable.")
-    (license license:expat)))
-
-(define-public python2-elasticsearch
-  (package-with-python2 python-elasticsearch))
-
-
 (define-public python2-rpy2
   (package
     (name "python2-rpy2")