From ed5ce61bd063ed6d77e9bacc8bc640a81757fe39 Mon Sep 17 00:00:00 2001 From: pjotrp Date: Thu, 5 Apr 2018 11:55:27 +0000 Subject: Added cytoscape-js package --- gn/packages/gemma.scm | 2 +- gn/packages/genenetwork.scm | 5 ++- gn/packages/javascript.scm | 95 ++++++++++++++++++++++++++++++++------------- gn/packages/python.scm | 34 ---------------- 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") -- cgit v1.2.3