TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: texlive-latex-fonts: Fix build.

Browse source 
* gnu/packages/tex.scm (texlive-latex-fonts)[arguments]<#:modules>: Remove
them.
<#:phases>: Remove them.
[native-inputs]: Remove TEXLIVE-BIN.
This commit is contained in:
Nicolas Goaziou 2023-05-19 16:31:43 +02:00
parent f3d523af3d
commit b474017516
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 4 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
gnu/packages/tex.scm
View file

@ -1470,71 +1470,15 @@ (define-public texlive-latex-fonts
"1bzqzzhs15w7dqz90hfjnaffjqh24q14w2h1h8vnxzvrlsyv21vq")))
(outputs '("out" "doc"))
(build-system texlive-build-system)
(arguments
(list
#:texlive-latex-base #f
#:modules
'((guix build texlive-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26))
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'generate-fonts-metrics
(lambda _
(let ((cm #$(this-package-native-input "texlive-cm"))
(metafont #$(this-package-native-input "texlive-metafont"))
(fonts-directories
(delete-duplicates
(map (lambda (f)
(string-drop (dirname f) (string-length "./")))
(find-files "." "[0-9]+\\.mf$"))))
(root (getcwd)))
(mkdir-p "build")
;; Tell mf where to find mf.base.
(setenv "MFBASES"
(string-append metafont "/share/texmf-dist/web2c/"))
(for-each
(lambda (directory)
;; Tell mf where to look for source files.
(setenv "MFINPUTS"
(string-append
(getcwd) "/" directory ":"
metafont "/share/texmf-dist/metafont/base/:"
cm "/share/texmf-dist/fonts/source/public/cm/"))
;; Build font metrics (tfm).
(with-directory-excursion directory
(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.
(let ((destination
;; fonts/source/xxx/yyy/... -> fonts/tfm/xxx/yyy/...
(string-append "fonts/tfm"
(string-drop
directory
(string-length "fonts/source")))))
(format #t "moving font metrics in ~a\n" destination)
(for-each (cut install-file <> destination)
(find-files "build/" "\\.tfm$"))))
fonts-directories)))))))
(native-inputs
(list texlive-bin texlive-cm texlive-metafont))
(arguments (list #:texlive-latex-base #f))
(native-inputs (list texlive-cm texlive-metafont))
(home-page "https://ctan.org/pkg/latex-fonts")
(synopsis "Collection of fonts used in LaTeX distributions")
(description
"This is a collection of fonts for use with standard LaTeX packages and
classes. It includes invisible fonts (for use with the slides class), line and
circle fonts (for use in the picture environment) and LaTeX symbol fonts.")
circle fonts (for use in the @code{picture} environment) and LaTeX symbol
fonts.")
(license license:lppl1.2+)))
(define-deprecated-package texlive-fonts-latex texlive-latex-fonts)