me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-dvips: Implement with simple-texlive-package.

Browse source 
* gnu/packages/tex.scm (texlive-dvips): Use simple-texlive-package.
This commit is contained in:
Ricardo Wurmus 2019-07-08 22:43:43 +02:00
parent e68c709179
commit 659fda6cc7
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 10 additions and 56 deletions

64
gnu/packages/tex.scm
View file

@ -462,64 +462,18 @@ the autogenerated files @file{language.dat} and @file{language.def} (and
default versions of those), etc.")
(license license:knuth)))
;; TODO: This package should not exist. There should not be a single package
;; containing all of /dvips. These really belong to different packages.
(define-public texlive-dvips
(package
(name "texlive-dvips")
(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/"
"/dvips"))
(revision %texlive-revision)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(inherit (simple-texlive-package
"texlive-dvips"
(list "/fonts/map/dvips/"
"/fonts/enc/dvips/base/"
"/dvips/")
(base32
"1ky6wc173jhf0b33lhyb4r3bx1d4bmiqkn6y1hxn92kwjdzl42p7"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((root (string-append (assoc-ref %outputs "out")
"/share/texmf-dist"))
(dvips (string-append root "/dvips"))
(maps (string-append root "/fonts/map/dvips"))
(encs (string-append root "/fonts/enc/dvips/base")))
(mkdir-p dvips)
(copy-recursively (assoc-ref %build-inputs "source") dvips)
(mkdir-p maps)
(copy-recursively (assoc-ref %build-inputs "dvips-font-maps") maps)
(mkdir-p encs)
(copy-recursively (assoc-ref %build-inputs "dvips-base-enc") encs)
#t))))
(native-inputs
`(("dvips-font-maps"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/fonts/map/dvips"))
(revision %texlive-revision)))
(file-name (string-append "dvips-font-maps-" version "-checkout"))
(sha256
(base32
"0nxvfbb5vsvakiw0iviicghdc2sxk05cj056ilqnpa62fffc36a6"))))
("dvips-base-enc"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/fonts/enc/dvips/base"))
(revision %texlive-revision)))
(file-name (string-append "dvips-base-enc-" version "-checkout"))
(sha256
(base32
"1xnf6ms0h87r55kxik4vicwr1907scj789lhqflqns8svvsli5iy"))))))
"1di07wx8wjczddmagq5z082l2has3inzk5jwkqh4i6wv1qdfqpp6")
#:trivial? #t))
(home-page "https://www.ctan.org/pkg/dvips")
(synopsis "DVI to PostScript drivers")
(description "This package provides files needed for converting DVI files