07/10: gnu: texlive-lh: Install more files.

[guix-commits]

rekado pushed a commit to branch core-updates-frozen
in repository guix.

commit 3d03f4c4ca6ffa510651559ac9c88b0e82cf0d7c
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Thu Oct 21 18:02:04 2021 +0000

    gnu: texlive-lh: Install more files.
    
    * gnu/packages/tex.scm (texlive-lh)[outputs]: Add a "doc" output.
    [arguments]: Override the 'copy-files phase to install many more files in 
the
    correct locations.
---
 gnu/packages/tex.scm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index d553192..60f199a8 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -6419,6 +6419,7 @@ now contains a package @code{fix-cm},f which performs the 
task of
                     "0vw75i52asi5sssp8k9r8dy4ihvqbvmbsl3dini3ls8cky15lz37"))))
     (package
       (inherit template)
+      (outputs '("out" "doc"))
       (arguments
        (substitute-keyword-arguments (package-arguments template)
          ((#:tex-directory _ #t)
@@ -6428,7 +6429,22 @@ now contains a package @code{fix-cm},f which performs 
the task of
          ((#:phases phases)
           `(modify-phases ,phases
              (add-after 'unpack 'chdir
-               (lambda _ (chdir "source/latex/lh") #t))))))
+               (lambda _ (chdir "source/latex/lh")))
+             (replace 'copy-files
+               (lambda* (#:key inputs outputs #:allow-other-keys)
+                 (let* ((source (assoc-ref inputs "source"))
+                        (doc (string-append (assoc-ref outputs "doc")
+                                           "/share/texmf-dist/doc"))
+                        (target (string-append (assoc-ref outputs "out")
+                                               "/share/texmf-dist"))
+                        (tex (string-append target "/tex/latex/lh/")))
+                   (copy-recursively "build/" tex)
+                   (copy-recursively (string-append source "/fonts/source/lh")
+                                     (string-append target "/fonts/source/lh"))
+                   (copy-recursively (string-append source "/tex/plain/lh")
+                                     (string-append target "/tex/plain/lh"))
+                   (copy-recursively (string-append source "/doc")
+                                     doc))))))))
       (home-page "https://www.ctan.org/pkg/lh";)
       (synopsis "Cyrillic fonts that support LaTeX standard encodings")
       (description