diff options
Diffstat (limited to 'gn/packages/javascript.scm')
| -rw-r--r-- | gn/packages/javascript.scm | 175 |
1 files changed, 147 insertions, 28 deletions
diff --git a/gn/packages/javascript.scm b/gn/packages/javascript.scm index 7fc82af..a964405 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) @@ -9,38 +11,155 @@ #: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 + (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))) + +(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))) |