aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/tex.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-01-24 08:24:08 +0100
committerRicardo Wurmus <rekado@elephly.net>2019-01-24 13:46:39 +0100
commit26a0506104fe96a2a7ee5066a0108eaa975339ec (patch)
tree15732f085fa94dba26edd4ae6496a2f0724e82bc /gnu/packages/tex.scm
parent6858ade2e56b9c4573bc8ba191cd63af997abd5d (diff)
downloadguix-26a0506104fe96a2a7ee5066a0108eaa975339ec.tar
guix-26a0506104fe96a2a7ee5066a0108eaa975339ec.tar.gz
gnu: texlive-fonts-cm: Build bitmap fonts at 600dpi.
* gnu/packages/tex.scm (texlive-fonts-cm)[arguments]: Build pk files and install them.
Diffstat (limited to 'gnu/packages/tex.scm')
-rw-r--r--gnu/packages/tex.scm24
1 files changed, 15 insertions, 9 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 2ece9b8c54..7efd52d37d 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -612,31 +612,37 @@ documents.")
(string-append (getcwd) ":"
mf "/share/texmf-dist/metafont/base")))
(mkdir "build")
+ (mkdir-p "pk/ljfour/public/cm/dpi600")
(for-each (lambda (font)
(format #t "building font ~a\n" font)
(invoke "mf" "-progname=mf"
"-output-directory=build"
(string-append "\\"
"mode:=ljfour; "
- "mag:=1; "
+ "mag:=1+0/600; "
"batchmode; "
"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$"))
#t))
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (tfm (string-append
- out "/share/texmf-dist/fonts/tfm/public/cm"))
- (mf (string-append
- out "/share/texmf-dist/fonts/source/public/cm"))
- (type1 (string-append
- out "/share/texmf-dist/fonts/type1/public/amsfonts/cm")))
+ (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"))
+ (mf (string-append fonts "source/public/cm"))
+ (type1 (string-append fonts "type1/public/amsfonts/cm")))
(for-each (cut install-file <> tfm)
(find-files "build" "\\.*"))
(for-each (cut install-file <> mf)
(find-files "." "\\.mf"))
+ (copy-recursively "pk" pk)
(mkdir-p type1)
(copy-recursively (assoc-ref inputs "cm-type1") type1)
#t))))))