14/16: gnu: chez-web: Replace texlive input with minimal texlive-union.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit bc9319f42ba2f9048c7790a0bab9cd447a18e95e
Author: Pierre Neidhardt <address@hidden>
Date:   Fri Dec 14 20:04:53 2018 +0100

    gnu: chez-web: Replace texlive input with minimal texlive-union.
    
    * gnu/packages/chez.scm (chez-web)[native-inputs]: Replace texlive with 
minimal texlive-union.
---
 gnu/packages/chez.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/chez.scm b/gnu/packages/chez.scm
index c785814..7cae5f2 100644
--- a/gnu/packages/chez.scm
+++ b/gnu/packages/chez.scm
@@ -279,7 +279,15 @@ and 32-bit PowerPC architectures.")
       (build-system gnu-build-system)
       (native-inputs
        `(("chez-scheme" ,chez-scheme)
-         ("texlive" ,texlive)))
+         ("ghostscript" ,ghostscript)
+         ("texlive" ,(texlive-union (list texlive-latex-oberdiek
+                                          texlive-generic-epsf
+                                          texlive-metapost
+                                          texlive-fonts-charter
+                                          texlive-generic-pdftex
+                                          texlive-context-base
+                                          texlive-fonts-cm
+                                          texlive-tex-plain)))))
       (arguments
        `(#:make-flags (list (string-append "PREFIX=" %output)
                             (string-append "DOCDIR=" %output "/share/doc/"
@@ -289,6 +297,12 @@ and 32-bit PowerPC architectures.")
                       #:tests? #f        ; no tests
                       #:phases
                       (modify-phases %standard-phases
+                        (add-before 'build 'set-HOME
+                          (lambda _
+                            ;; FIXME: texlive-union does not find the built
+                            ;; metafonts, so it tries to generate them in HOME.
+                            (setenv "HOME" "/tmp")
+                            #t))
                         ;; This package has a custom "bootstrap" script that
                         ;; is meant to be run from the Makefile.
                         (delete 'bootstrap)