ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 12:39:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add texlive-mflogo-font.

Browse source 
* 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 @@ (define-public texlive-latex-mflogo
logos in LaTeX documents.") logos in LaTeX documents.")
(license license:lppl))) (license license:lppl)))
(define-public texlive-fonts-mflogo-font (define-public texlive-mflogo-font
(package (package
(name "texlive-fonts-mflogo-font") (inherit (simple-texlive-package
(version (number->string %texlive-revision)) "texlive-mflogo-font"
(source (origin (list "/doc/fonts/mflogo-font/README"
(method svn-fetch) "/fonts/afm/hoekwater/mflogo-font/"
(uri (svn-reference "/fonts/map/dvips/mflogo-font/"
(url (string-append "svn://www.tug.org/texlive/tags/" "/fonts/type1/hoekwater/mflogo-font/")
%texlive-tag "/Master/texmf-dist/" (base32
"/fonts/type1/hoekwater/mflogo-font")) "094mknjv8ki2pvj1zin0f1z4f1w12g0cfqjiqcsawjsry4yfrmbg")
(revision %texlive-revision))) #:trivial? #t))
(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"))))))
(home-page "https://www.ctan.org/pkg/mflogo-font") (home-page "https://www.ctan.org/pkg/mflogo-font")
(synopsis "Metafont logo font") (synopsis "Metafont logo font")
(description (description
@ -1168,6 +1118,9 @@ (define-public texlive-fonts-mflogo-font
Taco Hoekwater.") Taco Hoekwater.")
(license license:knuth))) (license license:knuth)))
(define-public texlive-fonts-mflogo-font
(deprecated-package "texlive-fonts-mflogo-font" texlive-mflogo-font))
(define-public texlive-fonts-amsfonts (define-public texlive-fonts-amsfonts
(package (package
(name "texlive-fonts-amsfonts") (name "texlive-fonts-amsfonts")