02/05: gnu: Add texlive-babel/fixed.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 89f14b19936e0446927a5a5aec56f30ebba715fa
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Feb 12 23:25:31 2022 +0100

    gnu: Add texlive-babel/fixed.
    
    * gnu/packages/tex.scm (texlive-babel/fixed): New variable.
---
 gnu/packages/tex.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index c1ec591096..d0f634ad01 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -4157,6 +4157,29 @@ what has to be done for each language.  Users of XeTeX 
are advised to use the
 polyglossia package rather than Babel.")
       (license license:lppl1.3+))))
 
+(define-public texlive-babel/fixed
+  (package
+    (inherit texlive-babel)
+    (name "texlive-babel-fixed")
+    (arguments
+     (substitute-keyword-arguments (package-arguments texlive-babel)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-before 'copy-files 'unchdir
+             (lambda _
+               (chdir "../../..")))
+           (add-after 'copy-files 'delete-extra-files
+             (lambda* (#:key outputs #:allow-other-keys)
+               (delete-file-recursively
+                (string-append (assoc-ref outputs "out")
+                               "/share/texmf-dist/source/latex/babel/build"))
+               (delete-file
+                (string-append (assoc-ref outputs "out")
+                               
"/share/texmf-dist/tex/generic/babel/bbind.ist"))
+               (delete-file
+                (string-append (assoc-ref outputs "out")
+                               
"/share/texmf-dist/tex/generic/babel/bbglo.ist"))))))))))
+
 (define-deprecated-package texlive-latex-babel texlive-babel)
 
 (define-public texlive-generic-babel-english