blob: 46814c371f683770afb461a03cbf0fbc1a6fd5c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
;; Make sure you have the
;; https://git.genenetwork.org/guix-bioinformatics/guix-bioinformatics
;; channel set up.
;;
;; To drop into a development environment, run
;;
;; guix shell -Df guix.scm
;;
;; To get a development environment in a container, run
;;
;; guix shell -C -Df guix.scm
(define-module (genenetwork2))
(use-modules (gn packages genenetwork)
(guix gexp)
(guix utils)
(guix git-download)
(guix packages)
(ice-9 popen)
(ice-9 rdelim))
(define %source-dir
(string-append (current-source-directory)
"/../.."))
;; This isn't kept up-to-date.
(define %version
(call-with-input-file (string-append %source-dir "/VERSION")
(lambda (port)
(read-line port))))
(define (%version package)
(or (version-major+minor+point (package-version package))
(version-major+minor (package-version package))))
(define-public genenetwork2-head
(package
(inherit genenetwork2)
(version (string-append (%version genenetwork2) "-HEAD"))
(source (local-file %source-dir "genenetwork2-checkout"
#:recursive? #t
#:select? (or (git-predicate %source-dir)
(const #t))))))
genenetwork2-head
|
