ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-29 07:42:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: simple-texlive-package: Turn it into a stub.

Browse source 
No texlive package makes use of #:TRIVIAL? keyword anymore. This function now
always use TEXLIVE-BUILD-SYSTEM until is can be completely removed.

* gnu/packages/tex.scm (simple-texlive-package): Always use TEXLIVE-BUILD-SYSTEM.
This commit is contained in:
Nicolas Goaziou 2023-05-18 11:30:19 +02:00
parent 8b2d1a9347
commit 12a22bfdb5
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 3 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/tex.scm
View file

@ -107,8 +107,7 @@ (define* (simple-texlive-package name locations hash
#:key trivial?)
"Return a template for a simple TeX Live package with the given NAME,
downloading from a list of LOCATIONS in the TeX Live repository, and expecting
the provided output HASH. If TRIVIAL? is provided, all files will simply be
copied to their outputs; otherwise the TEXLIVE-BUILD-SYSTEM is used."
the provided output HASH. The TRIVIAL? keyword is not used."
(set! locations
;; Some locations may be manually inserted, so be tolerant with
;; leading slashes. Ignore them consistently.
@ -124,47 +123,8 @@ (define with-documentation?
(name name)
(version (number->string %texlive-revision))
(source (texlive-origin name version locations hash))
(outputs (if with-documentation?
'("out" "doc")
'("out")))
(build-system (if trivial?
gnu-build-system
texlive-build-system))
(arguments
(let ((copy-files
`(lambda* (#:key outputs inputs tex-directory #:allow-other-keys)
(let (,@(if with-documentation?
`((doc (string-append (assoc-ref outputs "doc")
"/share/texmf-dist")))
'())
(source (assoc-ref inputs "source"))
(out (string-append (assoc-ref outputs "out")
"/share/texmf-dist")))
,@(if with-documentation?
'((mkdir-p doc)
(copy-recursively
(string-append source "/doc")
(string-append doc "/doc")))
'())
(mkdir-p out)
(copy-recursively "." out)
;; In any case, if documentation exists, it is already in the
;; "doc" output, so remove it from regular one.
(let ((doc (string-append out "/doc")))
(when (file-exists? doc)
(delete-file-recursively doc)))
;; Also remove all source files.
(let ((srcfiles (string-append out "/source")))
(when (file-exists? srcfiles)
(delete-file-recursively srcfiles)))))))
(if trivial?
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'build (const #t))
(replace 'install ,copy-files)))
`())))
(outputs (if with-documentation? '("out" "doc") '("out")))
(build-system texlive-build-system)
(home-page #f)
(synopsis #f)
(description #f)