me
/
guix
Archived
1
0
Fork 0
Code

gnu: arriba: Use SEARCH-INPUT-FILE and -DIRECTORY. 

* gnu/packages/bioinformatics.scm (arriba)[arguments]:
Use SEARCH-INPUT-DIRECTORY and SEARCH-INPUT-FILE; use G-expression; drop
trailing #T from build phases.
master
Ricardo Wurmus 2023-05-12 22:40:18 +02:00
parent 001d9b1c64
commit 662e2e82b1
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
gnu/packages/bioinformatics.scm
View File

@ -16525,35 +16525,36 @@ includes a command line tool and an analysis pipeline.")
"0jx9656ry766vb8z08m1c3im87b0c82qpnjby9wz4kcz8vn87dx2")))) "0jx9656ry766vb8z08m1c3im87b0c82qpnjby9wz4kcz8vn87dx2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; there are none (list
#:phases #:tests? #f ;there are none
(modify-phases %standard-phases #:phases
(replace 'configure #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (replace 'configure
(let ((htslib (assoc-ref inputs "htslib"))) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "Makefile" (substitute* "Makefile"
(("-I\\$\\(HTSLIB\\)/htslib") (("-I\\$\\(HTSLIB\\)/htslib")
(string-append "-I" htslib "/include/htslib")) (string-append "-I"
((" \\$\\(HTSLIB\\)/libhts.a") (search-input-directory inputs "/include/htslib")))
(string-append " " htslib "/lib/libhts.so")))) ((" \\$\\(HTSLIB\\)/libhts.a")
(substitute* "run_arriba.sh" (string-append " " (search-input-file inputs "/lib/libhts.so"))))
(("^STAR ") (string-append (which "STAR") " ")) (let ((samtools (search-input-file inputs "/bin/samtools")))
(("samtools --version-only") (substitute* "run_arriba.sh"
(string-append (which "samtools") " --version-only")) (("^STAR ")
(("samtools index") (string-append (search-input-file inputs "/bin/STAR") " "))
(string-append (which "samtools") " index")) (("samtools --version-only")
(("samtools sort") (string-append samtools " --version-only"))
(string-append (which "samtools") " sort"))) (("samtools index")
#t)) (string-append samtools " index"))
(replace 'install (("samtools sort")
(lambda* (#:key outputs #:allow-other-keys) (string-append samtools " sort"))))))
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))) (replace 'install
(install-file "arriba" bin) (lambda _
(install-file "run_arriba.sh" bin) (let ((bin (string-append #$output "/bin")))
(install-file "draw_fusions.R" bin) (install-file "arriba" bin)
(wrap-program (string-append bin "/draw_fusions.R") (install-file "run_arriba.sh" bin)
`("R_LIBS_SITE" ":" prefix (,(getenv "R_LIBS_SITE"))))) (install-file "draw_fusions.R" bin)
#t))))) (wrap-program (string-append bin "/draw_fusions.R")
`("R_LIBS_SITE" ":" prefix (,(getenv "R_LIBS_SITE"))))))))))
(inputs (inputs
(list htslib (list htslib
r-minimal r-minimal