guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

391/416: gnu: texlive-cm: Fix build.


From: guix-commits
Subject: 391/416: gnu: texlive-cm: Fix build.
Date: Sun, 28 May 2023 02:33:40 -0400 (EDT)

ngz pushed a commit to branch tex-team-next
in repository guix.

commit 3adfff210f7e473ba07de2480416c92027a2b76e
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri May 19 16:32:19 2023 +0200

    gnu: texlive-cm: Fix build.
    
    * gnu/packages/tex.scm (texlive-cm)[arguments]<#:modules>: Remove keyword.
    <#:phases>: Remove unnecessary phases.  Add a phase to build ".pk" files.
---
 gnu/packages/tex.scm | 58 ++++++++++++++++------------------------------------
 1 file changed, 18 insertions(+), 40 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index a5114ea4aa..393cf86fb1 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -1164,52 +1164,30 @@ part of the cite bundle of the author's 
citation-related packages.")
     (arguments
      (list
       #:texlive-latex-base #f
-      #:modules
-      '((guix build texlive-build-system)
-        (guix build utils)
-        (srfi srfi-26))
       #:phases
       #~(modify-phases %standard-phases
-          (replace 'build
-            (lambda* (#:key inputs #:allow-other-keys)
-              (let ((mf (assoc-ref inputs "texlive-metafont")))
-                ;; Tell mf where to find mf.base
-                (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
-                ;; Tell mf where to look for source files
-                (setenv "MFINPUTS"
-                        (string-append (getcwd) "/fonts/source/public/cm/:"
-                                       mf "/share/texmf-dist/metafont/base")))
-              (for-each make-file-writable
-                        (cons "fonts/source/public/cm/"
-                              (find-files "fonts/source/public/cm/" ".*")))
-              (let ((build (string-append (getcwd) "/build"))
-                    (pkdir (string-append (getcwd) 
"/pk/ljfour/public/cm/dpi600")))
-                (mkdir-p pkdir)
-                (mkdir-p build)
+          (add-after 'generate-font-metrics 'generate-pk
+            (lambda _
+              (let* ((cwd (getcwd))
+                     (pkdir
+                      (string-append cwd "/fonts/pk/ljfour/public/cm/dpi600"))
+                     (build-dir (string-append cwd "/build")))
                 (with-directory-excursion "fonts/source/public/cm/"
-                  (for-each (lambda (font)
-                              (format #t "building font ~a\n" font)
-                              (invoke "mf" "-progname=mf"
-                                      (string-append "-output-directory=" 
build)
-                                      (string-append "\\"
-                                                     "mode:=ljfour; "
-                                                     "mag:=1+0/600; "
-                                                     "scrollmode; "
-                                                     "input "
-                                                     (basename font ".mf")))
-                              (invoke "gftopk"
-                                      (string-append build "/"
-                                                     (basename font ".mf") 
".600gf")
-                                      (string-append pkdir "/"
-                                                     (basename font ".mf") 
".pk")))
-                            (find-files "." 
"cm(.*[0-9]+.*|inch)\\.mf$")))))))))
+                  (mkdir-p pkdir)
+                  (for-each
+                   (lambda (font)
+                     (let ((font-name (basename font ".mf")))
+                       (invoke "gftopk"
+                               (string-append build-dir "/" font-name ".600gf")
+                               (string-append pkdir "/" font-name ".pk"))))
+                   (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")))))))))
     (native-inputs (list texlive-metafont))
     (home-page "https://ctan.org/pkg/cm";)
     (synopsis "Computer Modern fonts for TeX")
-    (description "This package provides the Computer Modern fonts by Donald
-Knuth.  The Computer Modern font family is a large collection of text,
-display, and mathematical fonts in a range of styles, based on Monotype Modern
-8A.")
+    (description
+     "This package provides the Computer Modern fonts by Donald Knuth.  The
+Computer Modern font family is a large collection of text, display, and
+mathematical fonts in a range of styles, based on Monotype Modern 8A.")
     (license license:knuth)))
 
 (define-deprecated-package texlive-fonts-cm texlive-cm)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]