From b4b3302171d163342dbfaa1c80bd0874dcbddfc4 Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Wed, 17 May 2017 10:48:35 +0000
Subject: Link in twitter package

---
 gn/packages/genenetwork.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'gn/packages/genenetwork.scm')

diff --git a/gn/packages/genenetwork.scm b/gn/packages/genenetwork.scm
index df18955..63d687c 100644
--- a/gn/packages/genenetwork.scm
+++ b/gn/packages/genenetwork.scm
@@ -45,6 +45,7 @@
   #:use-module (gnu packages bootstrap)
   #:use-module (gn packages bioinformatics)
   #:use-module (gn packages gemma)
+  #:use-module (gn packages javascript)
   #:use-module (gn packages phewas)
   #:use-module (gn packages python)
   #:use-module (gn packages statistics)
@@ -226,6 +227,7 @@ location of a putative QTL.")
               ("python2-pyyaml" ,python2-pyyaml)
               ("python2-xlsxwriter" ,python2-xlsxwriter)
               ("qtlreaper" ,qtlreaper)
+              ("javascript-twitter-post-fetcher" ,javascript-twitter-post-fetcher)
               ))
     (build-system python-build-system)
     (arguments
@@ -237,6 +239,7 @@ location of a putative QTL.")
              (lambda* (#:key inputs #:allow-other-keys)
                       (let* (
                              (datafiles (string-append (assoc-ref inputs "genenetwork2-files-small") "/share/genenetwork2" ))
+                             (twittercmd (string-append (assoc-ref inputs "javascript-twitter-post-fetcher") "/share/genenetwork2/javascript/Twitter-Post-Fetcher"))
                              (pylmmcmd (string-append (assoc-ref inputs "pylmm-gn2") "/bin/pylmm_redis"))
                              (plink2cmd (string-append (assoc-ref inputs "plink-ng") "/bin/plink2"))
                              (gemmacmd (string-append (assoc-ref inputs "gemma") "/bin/gemma"))
@@ -244,6 +247,7 @@ location of a putative QTL.")
 
                (substitute* '("etc/default_settings.py")
                             (("^GENENETWORK_FILES =.*") (string-append "GENENETWORK_FILES = \"" datafiles "\"\n" ))
+                            (("^TWITTER_POST_FETCHER_JS_PATH =.*") (string-append "TWITTER_POST_FETCHER_JS_PATH = \"" twittercmd "\"\n" ))
                             (("^PYLMM_COMMAND =.*") (string-append "PYLMM_COMMAND = \"" pylmmcmd "\"\n" ))
                             (("^PLINK_COMMAND =.*") (string-append "PLINK_COMMAND = \"" plink2cmd "\"\n" ))
                             (("^GEMMA_COMMAND =.*") (string-append "GEMMA_COMMAND = \"" gemmacmd "\"\n" ))
-- 
cgit v1.2.3