120/452: gnu: texlive-fonts-rsfs -> texlive-rsfs.

[guix-commits]

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

commit 20e46830930b44dd0ea48ef81a5366274793e2c6
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sun May 14 21:39:48 2023 +0200

    gnu: texlive-fonts-rsfs -> texlive-rsfs.
    
    * gnu/packages/tex.scm (texlive-rsfs): New variable.
    (texlive-fonts-rsfs): Deprecate variable.
    * gnu/packages/docbook.scm (dblatex)[inputs]:
    * gnu/packages/python-xyz.scm (python-nbconvert)[propagated-inputs]: Use new
    name.
---
 gnu/packages/docbook.scm    |   2 +-
 gnu/packages/python-xyz.scm |   2 +-
 gnu/packages/tex.scm        | 123 ++++++++++++++++++++++----------------------
 3 files changed, 64 insertions(+), 63 deletions(-)

diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm
index 674186a9fa..f16c8130e4 100644
--- a/gnu/packages/docbook.scm
+++ b/gnu/packages/docbook.scm
@@ -556,7 +556,7 @@ the in DocBook SGML DTDs.")
                                              texlive-titlesec
                                              texlive-wasysym
 
-                                             texlive-fonts-rsfs
+                                             texlive-rsfs
                                              texlive-stmaryrd
 
                                              texlive-iftex)))
diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index ccc8906457..ac6ef312e9 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -14941,12 +14941,12 @@ time.")
            (texlive-updmap.cfg (list texlive-amsfonts
                                      texlive-amsmath
                                      texlive-eurosym
-                                     texlive-fonts-rsfs
                                      texlive-jknappen
                                      texlive-lm
                                      texlive-lm-math
                                      texlive-mathpazo
                                      texlive-oberdiek
+                                     texlive-rsfs
                                      texlive-ucs
                                      texlive-zapfding))))
     (home-page "https://jupyter.org";)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 4d5d230f37..6ec71b221d 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -7303,79 +7303,80 @@ modules that use it.")
 
 (define-deprecated-package texlive-fonts-adobe-zapfding texlive-zapfding)
 
-(define-public texlive-fonts-rsfs
+(define-public texlive-rsfs
   (package
-    (name "texlive-fonts-rsfs")
+    (name "texlive-rsfs")
     (version (number->string %texlive-revision))
-    (source (origin
-              (method svn-fetch)
-              (uri (svn-reference
-                    (url (string-append "svn://www.tug.org/texlive/tags/"
-                                        %texlive-tag "/Master/texmf-dist/"
-                                        "/fonts/source/public/rsfs/"))
-                    (revision %texlive-revision)))
-              (file-name (string-append name "-" version "-checkout"))
-              (sha256
-               (base32
-                "0r12pn02r4a955prcvq0048nifh86ihlcgvw3pppqqvfngv34l5h"))))
-    (build-system gnu-build-system)
+    (source (texlive-origin
+             name version
+             (list "doc/fonts/rsfs/"
+                   "fonts/afm/public/rsfs/"
+                   "fonts/map/dvips/rsfs/"
+                   "fonts/source/public/rsfs/"
+                   "fonts/tfm/public/rsfs/"
+                   "fonts/type1/public/rsfs/"
+                   "tex/plain/rsfs/")
+             (base32
+              "1sa32wnsj84wbwqji1fb4k9ik99dy5ji7zz4v0xbd7306agyhns5")))
+    (outputs '("out" "doc"))
+    (build-system texlive-build-system)
     (arguments
-     `(#:modules ((guix build gnu-build-system)
-                  (guix build utils)
-                  (srfi srfi-1)
-                  (srfi srfi-26))
-       #:tests? #f                      ; no tests
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (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) ":"
-                                      mf "/share/texmf-dist/metafont/base:"
-                                      (assoc-ref inputs "texlive-cm")
-                                      
"/share/texmf-dist/fonts/source/public/cm")))
-             (mkdir "build")
-             (for-each (lambda (font)
-                         (format #t "building font ~a\n" font)
-                         (invoke "mf" "-progname=mf"
-                                 "-output-directory=build"
-                                 (string-append "\\"
-                                                "mode:=ljfour; "
-                                                "mag:=1; "
-                                                "batchmode; "
-                                                "input " (basename font 
".mf"))))
-                       (find-files "." "[0-9]+\\.mf$"))
-             #t))
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (tfm (string-append
-                          out "/share/texmf-dist/fonts/tfm/public/rsfs"))
-                    (mf  (string-append
-                          out "/share/texmf-dist/fonts/source/public/rsfs")))
-               (for-each (cut install-file <> tfm)
-                         (find-files "build" "\\.*"))
-               (for-each (cut install-file <> mf)
-                         (find-files "." "\\.mf"))
-               #t))))))
+     (list
+      #:modules
+      '((guix build texlive-build-system)
+        (guix build utils)
+        (srfi srfi-1)
+        (srfi srfi-26))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 're-generate-fonts-metrics
+            (lambda _
+              (let ((mf #$(this-package-native-input "texlive-metafont"))
+                    (cm #$(this-package-native-input "texlive-cm"))
+                    (root (getcwd)))
+                (mkdir-p "build")
+                (with-directory-excursion "fonts/source/public/rsfs"
+                  ;; 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) ":"
+                           mf "/share/texmf-dist/metafont/base:"
+                           cm "/share/texmf-dist/fonts/source/public/cm"))
+                  ;; Build font metrics (tfm).
+                  (for-each (lambda (font)
+                              (format #t "building font ~a\n" font)
+                              (invoke "mf" "-progname=mf"
+                                      (string-append "-output-directory="
+                                                     root "/build")
+                                      (string-append "\\"
+                                                     "mode:=ljfour; "
+                                                     "mag:=1; "
+                                                     "batchmode; "
+                                                     "input "
+                                                     (basename font ".mf"))))
+                            (find-files "." "[0-9]+\\.mf$")))
+                ;; Install font metrics at the appropriate location.
+                (for-each
+                 (cut install-file <> "fonts/tfm/public/rsfs/")
+                 (find-files "build/" "\\.tfm$"))))))))
     (native-inputs
      (list texlive-bin texlive-metafont texlive-cm))
-    (home-page "https://www.ctan.org/pkg/rsfs";)
+    (home-page "https://ctan.org/pkg/rsfs";)
     (synopsis "Ralph Smith's Formal Script font")
     (description
      "The fonts provide uppercase formal script letters for use as symbols in
 scientific and mathematical typesetting (in contrast to the informal script
 fonts such as that used for the calligraphic symbols in the TeX maths symbol
-font).  The fonts are provided as Metafont source, and as derived Adobe Type 1
-format.  LaTeX support, for using these fonts in mathematics, is available via
-one of the packages @code{calrsfs} and @code{mathrsfs}.")
+font).  The fonts are provided as Metafont source, and as derived Adobe Type
+1 format.  LaTeX support, for using these fonts in mathematics, is available
+via one of the packages @code{calrsfs} and @code{mathrsfs}.")
     (license (license:fsf-free "http://mirrors.ctan.org/fonts/rsfs/README";))))
 
+(define-deprecated-package texlive-fonts-rsfs texlive-rsfs)
+
 (define-public texlive-eso-pic
   (let ((template (simple-texlive-package
                    "texlive-eso-pic"