me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-eurosym: Refresh package definition.

Browse source 
* gnu/packages/tex.scm (texlive-eurosym): Remove SIMPLE-TEXLIVE-PACKAGE
call.
[arguments]<#:phases>: Build font metrics.
This commit is contained in:
Nicolas Goaziou 2023-05-15 13:28:55 +02:00
parent 467f367920
commit 0918ae8668
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 68 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

85
gnu/packages/tex.scm
View file

@ -11696,27 +11696,74 @@ OpenType fonts.")
(license license:lppl1.3+))) (license license:lppl1.3+)))
(define-public texlive-eurosym (define-public texlive-eurosym
(let ((template (simple-texlive-package
"texlive-eurosym"
(list "/doc/fonts/eurosym/"
"/fonts/map/dvips/eurosym/"
"/fonts/source/public/eurosym/"
"/fonts/tfm/public/eurosym/"
"/fonts/type1/public/eurosym/"
"/tex/latex/eurosym/eurosym.sty")
(base32
"0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")
#:trivial? #true)))
(package (package
(inherit template) (name "texlive-eurosym")
(home-page "https://www.ctan.org/pkg/eurosym") (version (number->string %texlive-revision))
(source (texlive-origin
name version
(list "doc/fonts/eurosym/"
"fonts/map/dvips/eurosym/"
"fonts/source/public/eurosym/"
"fonts/tfm/public/eurosym/"
"fonts/type1/public/eurosym/"
"tex/latex/eurosym/")
(base32
"0ml24rxbl1yir4s3fjjxm0z7axklc3p33syg41b76zc7hck9mk8s")))
(outputs '("out" "doc"))
(build-system texlive-build-system)
(arguments
(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/eurosym"
;; 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/eurosym")
(find-files "build/" "\\.tfm$"))))))))
(native-inputs
(list texlive-bin texlive-cm texlive-metafont))
(home-page "https://ctan.org/pkg/eurosym")
(synopsis "METAFONT and macros for Euro sign") (synopsis "METAFONT and macros for Euro sign")
(description "This package provides the European currency symbol for the (description
Euro implemented in METAFONT, using the official European Commission "The European currency symbol for the Euro implemented in METAFONT, using
dimensions, and providing several shapes (normal, slanted, bold, outline). the official European Commission dimensions, and providing several
The package also includes a LaTeX package which defines the macro, shapes (normal, slanted, bold, outline). The package also includes a LaTeX
pre-compiled font files, and documentation.") package which defines the macro, pre-compiled @file{tfm} files, and
(license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING"))))) documentation.")
(license (license:non-copyleft "file:///doc/fonts/eurosym/COPYING"))))
(define-public texlive-kastrup (define-public texlive-kastrup
(package (package