mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 17:56:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

89
gnu/packages/tex.scm
View file

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