me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-fonts-rsfs -> texlive-rsfs.

Browse source 
* 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.
This commit is contained in:
Nicolas Goaziou 2023-05-14 21:39:48 +02:00
parent fc8cd00953
commit 16b71431dd
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
3 changed files with 64 additions and 63 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/packages/docbook.scm
View file

@ -556,7 +556,7 @@ the in DocBook SGML DTDs.")
texlive-titlesec texlive-titlesec
texlive-wasysym texlive-wasysym
texlive-fonts-rsfs texlive-rsfs
texlive-stmaryrd texlive-stmaryrd
texlive-iftex))) texlive-iftex)))

2
gnu/packages/python-xyz.scm
View file

@ -15203,12 +15203,12 @@ time.")
(texlive-updmap.cfg (list texlive-amsfonts (texlive-updmap.cfg (list texlive-amsfonts
texlive-amsmath texlive-amsmath
texlive-eurosym texlive-eurosym
texlive-fonts-rsfs
texlive-jknappen texlive-jknappen
texlive-lm texlive-lm
texlive-lm-math texlive-lm-math
texlive-mathpazo texlive-mathpazo
texlive-oberdiek texlive-oberdiek
texlive-rsfs
texlive-ucs texlive-ucs
texlive-zapfding)))) texlive-zapfding))))
(home-page "https://jupyter.org") (home-page "https://jupyter.org")

123
gnu/packages/tex.scm
View file

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