me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/tex.scm (texlive-fonts-cm): Include type1 fonts.
master
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/tex.scm
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