139/458: gnu: texlive-metafont: Refresh package definition.

[guix-commits]

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

commit c587aacee2003a7ca90f7479375dca0f50c3a9aa
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun May 14 23:20:42 2023 +0200

    gnu: texlive-metafont: Refresh package definition.
    
    * gnu/packages/tex.scm (texlive-metafont)[source]: Use TEXLIVE-ORIGIN 
instead
    of SVN-MULTI-FETCH and SVN-MULTI-REFERENCE.
    [build-system]: Use TEXLIVE-BUILD-SYSTEM.
    [native-inputs]: Add texlive-modes.
---
 gnu/packages/tex.scm | 92 +++++++++++++++++++++++++---------------------------
 1 file changed, 45 insertions(+), 47 deletions(-)

diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 6e06eca080..ae7ed35cab 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -873,55 +873,53 @@ to adapt the plain e-TeX source file to work with XeTeX 
and LuaTeX.")
   (package
     (name "texlive-metafont")
     (version (number->string %texlive-revision))
-    (source (origin
-              (method svn-multi-fetch)
-              (uri (svn-multi-reference
-                    (url (string-append "svn://www.tug.org/texlive/tags/"
-                                        %texlive-tag "/Master/texmf-dist"))
-                    (locations '("/metafont/"
-                                 "/fonts/source/public/modes/"))
-                    (revision %texlive-revision)))
-              (file-name (string-append name "-" version "-checkout"))
-              (sha256
-               (base32
-                "17y72xmz5a36vdsq7pfrwj0j4c7llrm9j5kcq349cpaas7r32lmb"))))
-    (build-system gnu-build-system)
+    (source (texlive-origin
+             name version
+             (list "doc/man/man1/inimf.1"
+                   "doc/man/man1/inimf.man1.pdf"
+                   "doc/man/man1/mf-nowin.1"
+                   "doc/man/man1/mf-nowin.man1.pdf"
+                   "doc/man/man1/mf.1"
+                   "doc/man/man1/mf.man1.pdf"
+                   "metafont/base/"
+                   "metafont/config/"
+                   "metafont/misc/")
+             (base32
+              "1zzab3b8h2xsp88jqjr64i7f0yiqzd9rmzyvpgbfpyhd4sdl4fk4")))
+    (outputs '("out" "doc"))
+    (build-system texlive-build-system)
     (arguments
-     `(#:tests? #f ; no test target
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (replace 'build
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((cwd (getcwd))
-                    (mf (string-append cwd "/metafont"))
-                    (modes (string-append cwd "/fonts/source/public/modes")))
-               (setenv "MFINPUTS"
-                       (string-append modes ":"
-                                      mf "/base:"
-                                      mf "/misc:"
-                                      mf "/roex:"
-                                      mf "/feynmf:"
-                                      mf "/mfpic:"
-                                      mf "/config")))
-             (mkdir "build")
-             (with-directory-excursion "build"
-               (invoke "inimf" "mf.mf"))))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out  (assoc-ref outputs "out"))
-                    (base (string-append out "/share/texmf-dist/web2c"))
-                    (mf   (string-append out "/share/texmf-dist/metafont/")))
-               (mkdir-p base)
-               (mkdir-p mf)
-               (install-file "build/mf.base" base)
-               (with-directory-excursion "metafont"
-                 (for-each (lambda (where)
-                             (copy-recursively where (string-append mf where)))
-                           (list "base" "misc" "config")))))))))
+     (list
+      #:texlive-latex-base #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'build 'generate-mf.base
+            ;; Even though the file "mf.base" does not appear in tlpdb, it
+            ;; must be generated and provided in metafont package.
+            (lambda _
+              (let* ((cwd (getcwd))
+                     (mf (string-append cwd "/metafont"))
+                     (modes #$(this-package-native-input "texlive-modes")))
+                (setenv "MFINPUTS"
+                        (string-append
+                         modes "/share/texmf-dist/fonts/source/public/modes:"
+                         mf "/base:"
+                         mf "/misc:"
+                         mf "/roex:"
+                         mf "/feynmf:"
+                         mf "/mfpic:"
+                         mf "/config")))
+              ;; "build" directory was not created during `build' phases since
+              ;; there is no ".ins" nor ".dtx" file to process.
+              (mkdir-p "build")
+              (with-directory-excursion "build"
+                (invoke "inimf" "mf.mf")
+                (install-file "mf.base"
+                              (string-append #$output
+                                             "/share/texmf-dist/web2c"))))))))
     (native-inputs
-     (list texlive-bin))
-    (home-page "https://www.ctan.org/pkg/metafont";)
+     (list texlive-bin texlive-modes))
+    (home-page "https://ctan.org/pkg/metafont";)
     (synopsis "Metafont base files")
     (description "This package provides the Metafont base files needed to
 build fonts using the Metafont system.")