gnu: texlive-fonts-cm: Include type1 fonts.

* gnu/packages/tex.scm (texlive-fonts-cm): Include type1 fonts.
This commit is contained in:
Pierre Neidhardt 2018-12-14 19:44:36 +01:00
parent bbd30e9785
commit 6534e8853d
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 20 additions and 4 deletions

View File

@ -609,20 +609,36 @@ documents.")
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")) (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))
#t)) #t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(tfm (string-append (tfm (string-append
out "/share/texmf-dist/fonts/tfm/public/cm")) out "/share/texmf-dist/fonts/tfm/public/cm"))
(mf (string-append (mf (string-append
out "/share/texmf-dist/fonts/source/public/cm"))) out "/share/texmf-dist/fonts/source/public/cm"))
(type1 (string-append
out "/share/texmf-dist/fonts/type1/public/amsfonts/cm")))
(for-each (cut install-file <> tfm) (for-each (cut install-file <> tfm)
(find-files "build" "\\.*")) (find-files "build" "\\.*"))
(for-each (cut install-file <> mf) (for-each (cut install-file <> mf)
(find-files "." "\\.mf")) (find-files "." "\\.mf"))
(mkdir-p type1)
(copy-recursively (assoc-ref inputs "cm-type1") type1)
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base))) ("texlive-metafont-base" ,texlive-metafont-base)
("cm-type1"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/fonts/type1/public/amsfonts/cm"))
(revision %texlive-revision)))
(file-name (string-append name "-type1-" version "-checkout"))
(sha256
(base32
"12jyl9jp3hidifa4l5pmi47p71d5mb5kj5rknxkygilix8yz2iy6"))))))
(home-page "https://www.ctan.org/pkg/cm") (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