me
/
guix
Archived
1
0
Fork 0
Code

gnu: texlive-fonts-cm: Use simple-texlive-package. 

* gnu/packages/tex.scm (texlive-fonts-cm): Implement with
simple-texlive-package.
[arguments]: Adjust.
master
Ricardo Wurmus 2019-07-08 23:46:48 +02:00
parent 0512ae30b3
commit 2b63e54bf1
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 47 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
gnu/packages/tex.scm
View File

@ -642,19 +642,15 @@ documents.")
(define-public texlive-fonts-cm (define-public texlive-fonts-cm
(package (package
(name "texlive-fonts-cm") (inherit (simple-texlive-package
(version (number->string %texlive-revision)) "texlive-fonts-cm"
(source (origin (list "/fonts/source/public/cm/"
(method svn-fetch) "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map"
(uri (svn-reference "/doc/fonts/cm/README"
(url (string-append "svn://www.tug.org/texlive/tags/" "/doc/fonts/cm/README-cmps.txt")
%texlive-tag "/Master/texmf-dist/" (base32
"/fonts/source/public/cm")) "1h0q71paqmg1xjg6k35ni2i6m93kmlq9rdwm913xg9n4qngywl18")))
(revision %texlive-revision))) (outputs '("out" "doc"))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0vfjhidr9pha613h8mfhnpcpvld6ahdfb449918fpsfs93cppkyj"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
@ -672,40 +668,53 @@ documents.")
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
(setenv "MFINPUTS" (setenv "MFINPUTS"
(string-append (getcwd) ":" (string-append (getcwd) "/fonts/source/public/cm/:"
mf "/share/texmf-dist/metafont/base"))) mf "/share/texmf-dist/metafont/base")))
(mkdir "build") (for-each make-file-writable
(mkdir-p "pk/ljfour/public/cm/dpi600") (cons "fonts/source/public/cm/"
(for-each (lambda (font) (find-files "fonts/source/public/cm/" ".*")))
(format #t "building font ~a\n" font) (let ((build (string-append (getcwd) "/build"))
(invoke "mf" "-progname=mf" (pkdir (string-append (getcwd) "/pk/ljfour/public/cm/dpi600")))
"-output-directory=build" (mkdir-p pkdir)
(string-append "\\" (mkdir-p build)
"mode:=ljfour; " (with-directory-excursion "fonts/source/public/cm/"
"mag:=1+0/600; " (for-each (lambda (font)
"batchmode; " (format #t "building font ~a\n" font)
"input " (invoke "mf" "-progname=mf"
(basename font ".mf"))) (string-append "-output-directory=" build)
(invoke "gftopk" (string-append "\\"
(string-append "build/" "mode:=ljfour; "
(basename font ".mf") ".600gf") "mag:=1+0/600; "
(string-append "pk/ljfour/public/cm/dpi600/" "scrollmode; "
(basename font ".mf") ".pk"))) "input "
(find-files "." "cm(.*[0-9]+.*|inch)\\.mf$")) (basename font ".mf")))
(invoke "gftopk"
(string-append build "/"
(basename font ".mf") ".600gf")
(string-append pkdir "/"
(basename font ".mf") ".pk")))
(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"))
(fonts (string-append out "/share/texmf-dist/fonts/")) (doc (assoc-ref outputs "doc"))
(pk (string-append fonts "pk")) (source (assoc-ref inputs "source"))
(tfm (string-append fonts "tfm/public/cm")) (fonts (string-append out "/share/texmf-dist/fonts/"))
(mf (string-append fonts "source/public/cm")) (pk (string-append fonts "pk"))
(type1 (string-append fonts "type1/public/amsfonts/cm"))) (tfm (string-append fonts "tfm/public/cm"))
(mf (string-append fonts "source/public/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) (copy-recursively "pk" pk)
(copy-recursively
(string-append source "/doc")
(string-append doc "/doc"))
(install-file
(string-append source "/fonts/map/dvips/cm/cmtext-bsr-interpolated.map")
(string-append fonts "/map/dvips/cm/cmtext-bsr-interpolated.map"))
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)