From 0ea281e5fe1b9665af1c33625409f01ce7eb499e Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Wed, 17 May 2017 10:26:13 +0000
Subject: js: first package

---
 gn/packages/javascript.scm | 50 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 gn/packages/javascript.scm

diff --git a/gn/packages/javascript.scm b/gn/packages/javascript.scm
new file mode 100644
index 0000000..38bc73f
--- /dev/null
+++ b/gn/packages/javascript.scm
@@ -0,0 +1,50 @@
+(define-module (gn packages javascript)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix utils)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system trivial)
+  #:use-module (srfi srfi-1))
+
+(define-public javascript-twitter-post-fetcher
+  (let ((commit "377c050def3a1076c15cb24fd20b71f801d0e78f"))
+  (package
+    (name "javascript-twitter-post-fetcher")
+    (version (string-append "16.0.3" "-" (string-take commit 7)))
+    (source (origin
+             (method git-fetch)
+             (uri (git-reference
+                   (url "https://github.com/genenetwork/Twitter-Post-Fetcher.git")
+                   (commit commit)))
+             (file-name (string-append name "-" commit))
+             (sha256
+              (base32
+               "05w2wiqw84lb778nkivn421m1kk6h66xk4cjjqng1bri3d2kfzjv"))))
+    (build-system trivial-build-system)
+    (native-inputs `(
+                     ("source" ,source)))
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (let* ((out (assoc-ref %outputs "out"))
+              (name "gn2_data_s")
+              (tarfn (string-append name ".tar"))
+              (targetdir (string-append out "/share/genenetwork2/"))
+              )
+           (begin
+             (use-modules (guix build utils))
+             (let ((source (assoc-ref %build-inputs "source"))
+                   )
+               (and
+                    ; (zero? (system* lz4unpack source "-d" tarfn))
+                    ; (zero? (system* tar "xf" tarfn))
+                    ; (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))))
-- 
cgit v1.2.3