diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-06-04 12:34:02 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-06-15 17:03:15 +0200 |
| commit | 8ada0f0b3a16390486d83502f35d46d603fe393a (patch) | |
| tree | 7c9886d7d8f8406932c40deb1ce888d92abcbe89 | |
| parent | 9b134da86a67487ded9495d4aac84fc95b1d9bd4 (diff) | |
| download | guix-patches-8ada0f0b3a16390486d83502f35d46d603fe393a.tar guix-patches-8ada0f0b3a16390486d83502f35d46d603fe393a.tar.gz | |
gnu: Add texlive-metafont-base.
* gnu/packages/tex.scm (texlive-metafont-base): New variable.
| -rw-r--r-- | gnu/packages/tex.scm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 20b5a35baf..5a92b3ed14 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -381,6 +381,57 @@ converters, will completely supplant the older patterns.") license:public-domain license:wtfpl2)))) +(define-public texlive-metafont-base + (package + (name "texlive-metafont-base") + (version (number->string %texlive-revision)) + (source (origin + (method svn-fetch) + (uri (svn-reference + (url (string-append "svn://www.tug.org/texlive/tags/" + %texlive-tag "/Master/texmf-dist/" + "/metafont")) + (revision %texlive-revision))) + (sha256 + (base32 + "1yl4n8cn5xqk2nc22zgzq6ymd7bhm6xx1mz3azip7i3ki4bhb5q5")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no test target + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'build + (lambda* (#:key inputs #:allow-other-keys) + (let ((cwd (getcwd))) + (setenv "MFINPUTS" + (string-append cwd "/base:" + cwd "/misc:" + cwd "/roex:" + cwd "/feynmf:" + cwd "/mfpic:" + cwd "/config"))) + (mkdir "build") + (with-directory-excursion "build" + (zero? (system* "inimf" "mf.mf"))))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (base (string-append out "/share/texmf-dist/web2c")) + (mf (string-append out "/share/texmf-dist/metafont/base"))) + (mkdir-p base) + (mkdir-p mf) + (install-file "build/mf.base" base) + (copy-recursively "base" mf) + #t)))))) + (native-inputs + `(("texlive-bin" ,texlive-bin))) + (home-page "http://www.ctan.org/pkg/metafont") + (synopsis "Metafont base files") + (description "This package provides the Metafont base files needed to +build fonts using the Metafont system.") + (license license:knuth))) + (define texlive-texmf (package (name "texlive-texmf") |