~ruther/guix-local: gnu: lilypond: Use texlive-union.

9cc823f5675ef3f91f39964f55a92da0b06dd38e — Ricardo Wurmus 8 years ago e5942cb

gnu: lilypond: Use texlive-union.

* gnu/packages/music.scm (lilypond)[arguments]: Add phase "use-texlive-union".
[native-inputs]: Replace "texlive" with a texlive-union.

patch browse .tar.gz

1 files changed, 13 insertions(+), 1 deletions(-)

M gnu/packages/music.scm

M gnu/packages/music.scm => gnu/packages/music.scm +13 -1

@@ 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)