gnu: fastcap: Fix build and use INVOKE.

* gnu/packages/engineering.scm (fastcap)[native-inputs]: Replace texlive-tiny
with a texlive-union including texlive-fonts-amsfonts.
[arguments]: Use INVOKE in build phases.
This commit is contained in:
Ricardo Wurmus 2019-01-28 20:30:20 +01:00
parent ad34338d1e
commit 5a23696a47
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 9 additions and 10 deletions

View File

@ -420,7 +420,7 @@ featuring various improvements and bug fixes.")))
;; FIXME: with texlive-tiny citation references are rendered as question ;; FIXME: with texlive-tiny citation references are rendered as question
;; marks. During the build warnings like these are printed: ;; marks. During the build warnings like these are printed:
;; LaTeX Warning: Citation `nabors91' on page 2 undefined on input line 3. ;; LaTeX Warning: Citation `nabors91' on page 2 undefined on input line 3.
`(("texlive" ,texlive-tiny) `(("texlive" ,(texlive-union (list texlive-fonts-amsfonts)))
("ghostscript" ,ghostscript))) ("ghostscript" ,ghostscript)))
(arguments (arguments
`(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all") `(#:make-flags '("CC=gcc" "RM=rm" "SHELL=sh" "all")
@ -432,8 +432,7 @@ featuring various improvements and bug fixes.")))
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'build 'make-doc (add-after 'build 'make-doc
(lambda _ (lambda _
(zero? (system* "make" "CC=gcc" "RM=rm" "SHELL=sh" (invoke "make" "CC=gcc" "RM=rm" "SHELL=sh" "manual")))
"manual"))))
(add-before 'make-doc 'fix-doc (add-before 'make-doc 'fix-doc
(lambda _ (lambda _
(substitute* "doc/Makefile" (("/bin/rm") (which "rm"))) (substitute* "doc/Makefile" (("/bin/rm") (which "rm")))
@ -474,13 +473,13 @@ featuring various improvements and bug fixes.")))
(setenv "HOME" "/tmp") ; FIXME: for texlive font cache (setenv "HOME" "/tmp") ; FIXME: for texlive font cache
(with-directory-excursion "doc" (with-directory-excursion "doc"
(and (and
(every (lambda (file) (for-each (lambda (file)
(zero? (system* "dvips" file "-o"))) (invoke "dvips" file "-o"))
(find-files "." "\\.dvi")) (find-files "." "\\.dvi"))
(every (lambda (file) (for-each (lambda (file)
(zero? (system* "ps2pdf" file))) (invoke "ps2pdf" file))
'("mtt.ps" "ug.ps" "tcad.ps")) '("mtt.ps" "ug.ps" "tcad.ps"))
(zero? (system* "make" "clean")))))) (invoke "make" "clean")))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))