me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-cm: Refresh package definition.

Browse source 
* gnu/packages/tex.scm (texlive-cm): Remove SIMPLE-TEXLIVE-PACKAGE
call.
[native-inputs]: Remove TEXLIVE-BIN.
This commit is contained in:
Nicolas Goaziou 2023-05-17 00:24:37 +02:00
parent a04232538c
commit 6dc6577330
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 60 additions and 68 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
gnu/packages/tex.scm
View file

@ -1176,24 +1176,28 @@ cite bundle of the author's citation-related packages.")
"/share/texmf-dist/doc/latex/cite/README")))) "/share/texmf-dist/doc/latex/cite/README"))))
(define-public texlive-cm (define-public texlive-cm
(let ((template (simple-texlive-package
"texlive-cm"
(list "/fonts/source/public/cm/"
"/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
"/doc/fonts/cm/")
(base32
"0mfslqs9saqkb3z3xdhsqnklxk858nmipgj1y93by2791jzkma1d")
#:trivial? #t)))
(package (package
(inherit template) (name "texlive-cm")
(version (number->string %texlive-revision))
(source (texlive-origin
name version
(list "doc/fonts/cm/" "fonts/map/dvips/cm/"
"fonts/pk/ljfour/public/cm/dpi600/"
"fonts/source/public/cm/"
"fonts/tfm/public/cm/")
(base32
"10adgjc3lkj2z50jp1f9n83bdrx8bqxd76rl605d0d5pb435k97m")))
(outputs '("out" "doc"))
(build-system texlive-build-system)
(arguments (arguments
(substitute-keyword-arguments (package-arguments template) (list
((#:modules modules '()) #:texlive-latex-base #f
'((guix build gnu-build-system) #:modules
'((guix build texlive-build-system)
(guix build utils) (guix build utils)
(srfi srfi-26))) (srfi srfi-26))
((#:phases phases) #:phases
`(modify-phases ,phases #~(modify-phases %standard-phases
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
@ -1226,27 +1230,15 @@ cite bundle of the author's citation-related packages.")
(basename font ".mf") ".600gf") (basename font ".mf") ".600gf")
(string-append pkdir "/" (string-append pkdir "/"
(basename font ".mf") ".pk"))) (basename font ".mf") ".pk")))
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")))) (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")))))))))
#t)) (native-inputs (list texlive-metafont))
(add-after 'install 'install-generated-fonts (home-page "https://ctan.org/pkg/cm")
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(fonts (string-append out "/share/texmf-dist/fonts/"))
(pk (string-append fonts "pk"))
(tfm (string-append fonts "tfm/public/cm")))
(for-each (cut install-file <> tfm)
(find-files "build" "\\.*"))
(copy-recursively "pk" pk)
#t)))))))
(native-inputs
(list texlive-bin texlive-metafont))
(home-page "https://www.ctan.org/pkg/cm")
(synopsis "Computer Modern fonts for TeX") (synopsis "Computer Modern fonts for TeX")
(description "This package provides the Computer Modern fonts by Donald (description "This package provides the Computer Modern fonts by Donald
Knuth. The Computer Modern font family is a large collection of text, Knuth. The Computer Modern font family is a large collection of text,
display, and mathematical fonts in a range of styles, based on Monotype Modern display, and mathematical fonts in a range of styles, based on Monotype Modern
8A.") 8A.")
(license license:knuth)))) (license license:knuth)))
(define-deprecated-package texlive-fonts-cm texlive-cm) (define-deprecated-package texlive-fonts-cm texlive-cm)