nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: Add texlive-mflogo-font. 

* gnu/packages/tex.scm (texlive-mflogo-font): New variable.
(texlive-fonts-mflogo-font): Deprecate package.
This commit is contained in:
Ricardo Wurmus 2019-07-14 22:11:18 +02:00
parent e9816fcbb4
commit cd957f4fc6
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 13 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
gnu/packages/tex.scm
View File

@ -1097,67 +1097,17 @@ Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
logos in LaTeX documents.")
(license license:lppl)))
(define-public texlive-fonts-mflogo-font
(define-public texlive-mflogo-font
(package
(name "texlive-fonts-mflogo-font")
(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/"
"/fonts/type1/hoekwater/mflogo-font"))
(revision %texlive-revision)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"09fsxfpiyxjljkrb52b197728bjnkcnv3bdwm4hl6hf23mbmqadf"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils)
(ice-9 match))
#:builder
(begin
(use-modules (guix build utils)
(ice-9 match))
(let ((root (string-append (assoc-ref %outputs "out")
"/share/texmf-dist/"))
(pkgs '(("source" . "fonts/type1/hoekwater/mflogo-font")
("afm" . "fonts/afm/hoekwater/mflogo-font")
("fonts-map" . "fonts/map/dvips/mflogo-font"))))
(for-each (match-lambda
((pkg . dir)
(let ((target (string-append root dir)))
(mkdir-p target)
(copy-recursively (assoc-ref %build-inputs pkg)
target))))
pkgs)
#t))))
(native-inputs
`(("afm"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/fonts/afm/hoekwater/mflogo-font"))
(revision %texlive-revision)))
(file-name (string-append name "-afm-" version "-checkout"))
(sha256
(base32
"0bx1mfhhzsk9gj1pha36q2rk0jd0y285qm62zgvdvzzzlfnk8sdb"))))
("fonts-map"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/fonts/map/dvips/mflogo-font/"))
(revision %texlive-revision)))
(file-name (string-append name "-fonts-map-" version "-checkout"))
(sha256
(base32
"044xrrpl8hnvj55cx2ql1ib1bcyr33nzanx5nkwxpai7fb7pg4y6"))))))
(inherit (simple-texlive-package
"texlive-mflogo-font"
(list "/doc/fonts/mflogo-font/README"
"/fonts/afm/hoekwater/mflogo-font/"
"/fonts/map/dvips/mflogo-font/"
"/fonts/type1/hoekwater/mflogo-font/")
(base32
"094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
#:trivial? #t))
(home-page "https://www.ctan.org/pkg/mflogo-font")
(synopsis "Metafont logo font")
(description
@ -1168,6 +1118,9 @@ source; they have since been autotraced and reissued in Adobe Type 1 format by
Taco Hoekwater.")
(license license:knuth)))
(define-public texlive-fonts-mflogo-font
(deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
(define-public texlive-fonts-amsfonts
(package
(name "texlive-fonts-amsfonts")