diff options
Diffstat (limited to 'gn/packages')
| -rw-r--r-- | gn/packages/genenetwork.scm | 4 | ||||
| -rw-r--r-- | gn/packages/javascript.scm | 80 |
2 files changed, 83 insertions, 1 deletions
diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm index 8783717..b860787 100644 --- a/gn/packages/genenetwork.scm +++ b/gn/packages/genenetwork.scm @@ -434,7 +434,9 @@ 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) + ("javascript-cytoscape" ,javascript-cytoscape) + ("javascript-panzoom" ,javascript-cytoscape-panzoom) + ("javascript-qtip" ,javascript-cytoscape-qtip) ;; With Python3 support ("gunicorn" ,gunicorn) diff --git a/gn/packages/javascript.scm b/gn/packages/javascript.scm index e9173ca..a964405 100644 --- a/gn/packages/javascript.scm +++ b/gn/packages/javascript.scm @@ -11,6 +11,8 @@ #:use-module (guix build-system trivial) #:use-module (srfi srfi-1)) +;; see color-make package for great example - also install-file and invoke + (define-public javascript-twitter-post-fetcher (let ((commit "27440ffebd4c1ba7abc9aec92a581155715f2e4e")) (package @@ -83,3 +85,81 @@ (synopsis "Cytoscape.js") (description "Cytoscape.") (license license:expat))) + +(define-public javascript-cytoscape-panzoom + (package + ;; (inherit javascript-cytoscape) + (name "javascript-cytoscape-panzoom") + (version "2.5.2") ; ancient version + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cytoscape/cytoscape.js-panzoom/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "154xzi693gbv89y221gkpi03k84lccmr55v5z43mn1i1s1fdhm2b")))) + (inputs `(("javascript-cytoscape" ,javascript-cytoscape))) + (build-system trivial-build-system) + (native-inputs `(("gzip" ,gzip) + ("tar" ,tar) + ("source" ,source))) + (arguments + `(#:modules ((guix build utils)) + #:builder + (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-panzoom")) + (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) + (install-file "cytoscape-panzoom.js" targetdir) + (install-file "cytoscape.js-panzoom.css" targetdir) + )))) + (home-page "https://github.com/cytoscape/cytoscape.js") + (synopsis "Cytoscape.js") + (description "Cytoscape.") + (license license:expat))) + +;; https://github.com/cytoscape/cytoscape.js-qtip/archive/2.7.1.tar.gz +(define-public javascript-cytoscape-qtip + (package + ;; (inherit javascript-cytoscape) + (name "javascript-cytoscape-qtip") + (version "2.7.1") ; ancient version + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/cytoscape/cytoscape.js-qtip/archive/" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0f2qhxi9qx5r3rcmxqgdqnwd9apnjlb4s4hckwhaqgsp6rf8lzlb")))) + (inputs `(("javascript-cytoscape" ,javascript-cytoscape))) + (build-system trivial-build-system) + (native-inputs `(("gzip" ,gzip) + ("tar" ,tar) + ("source" ,source))) + (arguments + `(#:modules ((guix build utils)) + #:builder + (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-qtip")) + (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) + (install-file "cytoscape-qtip.js" targetdir) + )))) + (home-page "https://github.com/cytoscape/cytoscape.js") + (synopsis "Cytoscape.js") + (description "Cytoscape.") + (license license:expat))) |