aboutsummaryrefslogtreecommitdiff
path: root/guix.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix.scm')
-rw-r--r--guix.scm79
1 files changed, 29 insertions, 50 deletions
diff --git a/guix.scm b/guix.scm
index 9b8f399..a48b05a 100644
--- a/guix.scm
+++ b/guix.scm
@@ -28,61 +28,39 @@
;;
;; env GUIX_PACKAGE_PATH=~/guix-bioinformatics/ guix environment -C -l guix.scm
-(use-modules
- (srfi srfi-1)
- (srfi srfi-26)
- (ice-9 match)
- (ice-9 popen)
- (ice-9 rdelim)
- (gn packages gemma)
- (gn packages python)
- (gnu packages base)
- (gnu packages check)
- (gnu packages graph)
- (gnu packages cran)
- (gnu packages databases)
- (gnu packages statistics)
- (gnu packages bioconductor)
- (gnu packages golang)
- (gn packages genenetwork)
- (gnu packages python)
- (gnu packages python-check)
- (gnu packages python-crypto)
- (gnu packages python-web)
- (gnu packages python-xyz)
- (gnu packages python-science)
- ((guix build utils) #:select (with-directory-excursion))
- (guix build-system python)
- (guix gexp)
- (guix git-download)
- (guix licenses)
- (guix packages))
+(use-modules (gn packages gemma)
+ (gn packages python)
+ (gnu packages base)
+ (gnu packages check)
+ (gnu packages graph)
+ (gnu packages cran)
+ (gnu packages databases)
+ (gnu packages statistics)
+ (gnu packages bioconductor)
+ (gnu packages golang)
+ (gn packages genenetwork)
+ (gnu packages python)
+ (gnu packages python-check)
+ (gnu packages python-crypto)
+ (gnu packages python-web)
+ (gnu packages python-xyz)
+ (gnu packages python-science)
+ ((guix build utils) #:select (with-directory-excursion))
+ (guix build-system python)
+ (guix gexp)
+ (guix git-download)
+ (guix licenses)
+ (guix packages))
(define %source-dir (dirname (current-filename)))
-(define git-file?
- (let* ((pipe (with-directory-excursion %source-dir
- (open-pipe* OPEN_READ "git" "ls-files")))
- (files (let loop ((lines '()))
- (match (read-line pipe)
- ((? eof-object?)
- (reverse lines))
- (line
- (loop (cons line lines))))))
- (status (close-pipe pipe)))
- (lambda (file stat)
- (match (stat:type stat)
- ('directory #t)
- ((or 'regular 'symlink)
- (any (cut string-suffix? <> file) files))
- (_ #f)))))
(package
(name "genenetwork3.git")
- (version "0.0.1")
- (source (local-file %source-dir
+ (version "0.1.0")
+ (source (local-file %source-dir "genenetwork3-checkout"
#:recursive? #t
- #:select? git-file?))
+ #:select? (git-predicate %source-dir)))
(propagated-inputs `(("coreutils" ,coreutils)
("gemma-wrapper" ,gemma-wrapper)
("gunicorn" ,gunicorn)
@@ -100,6 +78,7 @@
("python-redis" ,python-redis)
("python-requests" ,python-requests)
("python-scipy" ,python-scipy)
+ ("python-flask-socketio" ,python-flask-socketio)
("python-sqlalchemy-stubs"
,python-sqlalchemy-stubs)
("r-optparse" ,r-optparse)
@@ -109,8 +88,8 @@
("r-rjson" ,r-rjson)
("python-plotly" ,python-plotly)
("python-pandas" ,python-pandas)
- ("rust-qtlreaper" ,rust-qtlreaper)
- ("python-flask-cors" ,python-flask-cors)))
+ ("python-pingouin" ,python-pingouin)
+ ("rust-qtlreaper" ,rust-qtlreaper)))
(build-system python-build-system)
(home-page "https://github.com/genenetwork/genenetwork3")
(synopsis "GeneNetwork3 API for data science and machine learning.")