me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-fonts-cm: Build bitmap fonts at 600dpi.

Browse source 
* gnu/packages/tex.scm (texlive-fonts-cm)[arguments]: Build pk files and
install them.
This commit is contained in:
Ricardo Wurmus 2019-01-24 08:24:08 +01:00
parent 6858ade2e5
commit 26a0506104
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/tex.scm
View file

@ -612,31 +612,37 @@ documents.")
(string-append (getcwd) ":" (string-append (getcwd) ":"
mf "/share/texmf-dist/metafont/base"))) mf "/share/texmf-dist/metafont/base")))
(mkdir "build") (mkdir "build")
(mkdir-p "pk/ljfour/public/cm/dpi600")
(for-each (lambda (font) (for-each (lambda (font)
(format #t "building font ~a\n" font) (format #t "building font ~a\n" font)
(invoke "mf" "-progname=mf" (invoke "mf" "-progname=mf"
"-output-directory=build" "-output-directory=build"
(string-append "\\" (string-append "\\"
"mode:=ljfour; " "mode:=ljfour; "
"mag:=1; " "mag:=1+0/600; "
"batchmode; " "batchmode; "
"input " "input "
(basename font ".mf")))) (basename font ".mf")))
(invoke "gftopk"
(string-append "build/"
(basename font ".mf") ".600gf")
(string-append "pk/ljfour/public/cm/dpi600/"
(basename font ".mf") ".pk")))
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")) (find-files "." "cm(.*[0-9]+.*|inch)\\.mf$"))
#t)) #t))
(replace 'install (replace 'install
(lambda* (#:key inputs 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 (fonts (string-append out "/share/texmf-dist/fonts/"))
out "/share/texmf-dist/fonts/tfm/public/cm")) (pk (string-append fonts "pk"))
(mf (string-append (tfm (string-append fonts "tfm/public/cm"))
out "/share/texmf-dist/fonts/source/public/cm")) (mf (string-append fonts "source/public/cm"))
(type1 (string-append (type1 (string-append fonts "type1/public/amsfonts/cm")))
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"))
(copy-recursively "pk" pk)
(mkdir-p type1) (mkdir-p type1)
(copy-recursively (assoc-ref inputs "cm-type1") type1) (copy-recursively (assoc-ref inputs "cm-type1") type1)
#t)))))) #t))))))