41/44: gnu: lilypond: Use texlive-union.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 9cc823f5675ef3f91f39964f55a92da0b06dd38e
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Jul 9 12:05:05 2017 +0200

    gnu: lilypond: Use texlive-union.
    
    * gnu/packages/music.scm (lilypond)[arguments]: Add phase 
"use-texlive-union".
    [native-inputs]: Replace "texlive" with a texlive-union.
---
 gnu/packages/music.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 904f781..d0631de 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -652,6 +652,15 @@ Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC 
Micro
                             "/share/fonts/opentype/"))
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'use-texlive-union
+           (lambda _
+             ;; FIXME: fonts are not found and have to be generated in HOME.
+             (setenv "HOME" "/tmp")
+             ;; The test for the "lh" package fails, even though it is among
+             ;; the inputs.
+             (substitute* "configure"
+               (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
+             #t))
          (add-after 'unpack 'fix-path-references
           (lambda _
             (substitute* "scm/backend-library.scm"
@@ -693,7 +702,10 @@ Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC 
Micro
        ("gettext" ,gettext-minimal)
        ("imagemagick" ,imagemagick)
        ("netpbm" ,netpbm) ;for pngtopnm
-       ("texlive" ,texlive) ;metafont and metapost
+       ("texlive" ,(texlive-union (list texlive-metapost
+                                        texlive-generic-epsf
+                                        texlive-latex-lh
+                                        texlive-latex-cyrillic)))
        ("texinfo" ,texinfo)
        ("texi2html" ,texi2html)
        ("rsync" ,rsync)