Merge branch 'main' of github.com:genenetwork/genenetwork3 into partial-correlations

1 files changed, 27 insertions, 50 deletions

diff --git a/guix.scm b/guix.scm
index 81e8389..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)
@@ -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.")