diff options
Diffstat (limited to 'guix.scm')
| -rw-r--r-- | guix.scm | 77 |
1 files changed, 27 insertions, 50 deletions
@@ -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) @@ -111,8 +89,7 @@ ("python-plotly" ,python-plotly) ("python-pandas" ,python-pandas) ("python-pingouin" ,python-pingouin) - ("rust-qtlreaper" ,rust-qtlreaper) - ("python-flask-cors" ,python-flask-cors))) + ("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.") |