gnu: texlive-dvips: Implement with simple-texlive-package.
* gnu/packages/tex.scm (texlive-dvips): Use simple-texlive-package.
This commit is contained in:
parent
e68c709179
commit
659fda6cc7
|
@ -462,64 +462,18 @@ the autogenerated files @file{language.dat} and @file{language.def} (and
|
||||||
default versions of those), etc.")
|
default versions of those), etc.")
|
||||||
(license license:knuth)))
|
(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
|
(define-public texlive-dvips
|
||||||
(package
|
(package
|
||||||
(name "texlive-dvips")
|
(inherit (simple-texlive-package
|
||||||
(version (number->string %texlive-revision))
|
"texlive-dvips"
|
||||||
(source (origin
|
(list "/fonts/map/dvips/"
|
||||||
(method svn-fetch)
|
"/fonts/enc/dvips/base/"
|
||||||
(uri (svn-reference
|
"/dvips/")
|
||||||
(url (string-append "svn://www.tug.org/texlive/tags/"
|
(base32
|
||||||
%texlive-tag "/Master/texmf-dist/"
|
"1di07wx8wjczddmagq5z082l2has3inzk5jwkqh4i6wv1qdfqpp6")
|
||||||
"/dvips"))
|
#:trivial? #t))
|
||||||
(revision %texlive-revision)))
|
|
||||||
(file-name (string-append name "-" version "-checkout"))
|
|
||||||
(sha256
|
|
||||||
(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"))))))
|
|
||||||
(home-page "https://www.ctan.org/pkg/dvips")
|
(home-page "https://www.ctan.org/pkg/dvips")
|
||||||
(synopsis "DVI to PostScript drivers")
|
(synopsis "DVI to PostScript drivers")
|
||||||
(description "This package provides files needed for converting DVI files
|
(description "This package provides files needed for converting DVI files
|
||||||
|
|
Loading…
Reference in New Issue