nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: discrover: Replace "texlive" with a texlive-union. 

* gnu/packages/bioinformatics.scm (discrover)[arguments]: Add build phase
"fix-latex-errors"; add build phase "setenv-HOME".
[inputs]: Add rmath-standalone.
[native-inputs]: Replace "texlive" with a texlive-union consisting of
texlive-fonts-cm, texlive-fonts-amsfonts, texlive-generic-ifxetex,
texlive-latex-doi, texlive-latex-examplep, texlive-latex-hyperref,
texlive-latex-ms, texlive-latex-natbib, texlive-bibtex,
texlive-latex-oberdiek, texlive-latex-pgf, texlive-latex-url,
texlive-latex-verbatimbox, and texlive-latex-xcolor.
This commit is contained in:
Ricardo Wurmus 2019-02-25 14:56:45 +01:00
parent 5c06a18503
commit 3ca1d917b6
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 41 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/bioinformatics.scm
View File

@ -2308,6 +2308,23 @@ data and settings.")
`(#:tests? #f ; there are no tests `(#:tests? #f ; there are no tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'fix-latex-errors
(lambda _
(with-fluids ((%default-port-encoding #f))
(substitute* "doc/references.bib"
(("\\{S\\}illanp[^,]+,")
"{S}illanp{\\\"a}{\\\"a},")))
;; XXX: I just can't get pdflatex to not complain about these
;; characters. They end up in the manual via the generated
;; discrover-cli-help.txt.
(substitute* "src/hmm/cli.cpp"
(("µ") "mu")
(("η") "eta")
(("≤") "<="))
;; This seems to be a syntax error.
(substitute* "doc/discrover-manual.tex"
(("theverbbox\\[t\\]") "theverbbox"))
#t))
(add-after 'unpack 'add-missing-includes (add-after 'unpack 'add-missing-includes
(lambda _ (lambda _
(substitute* "src/executioninformation.hpp" (substitute* "src/executioninformation.hpp"
@ -2316,28 +2333,33 @@ data and settings.")
(substitute* "src/plasma/fasta.hpp" (substitute* "src/plasma/fasta.hpp"
(("#define FASTA_HPP" line) (("#define FASTA_HPP" line)
(string-append line "\n#include <random>"))) (string-append line "\n#include <random>")))
#t))))) #t))
;; FIXME: this is needed because we're using texlive-union, which
;; doesn't handle fonts correctly. It expects to be able to generate
;; fonts in the home directory.
(add-before 'build 'setenv-HOME
(lambda _ (setenv "HOME" "/tmp") #t)))))
(inputs (inputs
`(("boost" ,boost) `(("boost" ,boost)
("cairo" ,cairo))) ("cairo" ,cairo)
("rmath-standalone" ,rmath-standalone)))
(native-inputs (native-inputs
`(("texlive" ,texlive) `(("texlive" ,(texlive-union (list texlive-fonts-cm
;; TODO: Replace texlive with minimal texlive-union. texlive-fonts-amsfonts
;; ("texlive" ,(texlive-union (list texlive-latex-doi texlive-generic-ifxetex
;; texlive-latex-hyperref
;; texlive-latex-oberdiek texlive-latex-doi
;; texlive-generic-ifxetex texlive-latex-examplep
;; texlive-latex-url texlive-latex-hyperref
;; texlive-latex-pgf texlive-latex-ms
;; texlive-latex-examplep texlive-latex-natbib
;; texlive-latex-natbib texlive-bibtex ; style files used by natbib
;; texlive-latex-verbatimbox
;; texlive-latex-ms texlive-latex-oberdiek ; ltxcmds
;; texlive-latex-xcolor texlive-latex-pgf ; tikz
;; texlive-fonts-amsfonts texlive-latex-url
;; texlive-latex-amsfonts texlive-latex-verbatimbox
;; ;; ... texlive-latex-xcolor)))
;; )))
("imagemagick" ,imagemagick))) ("imagemagick" ,imagemagick)))
(home-page "http://dorina.mdc-berlin.de/public/rajewsky/discrover/") (home-page "http://dorina.mdc-berlin.de/public/rajewsky/discrover/")
(synopsis "Discover discriminative nucleotide sequence motifs") (synopsis "Discover discriminative nucleotide sequence motifs")