me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-xcolor: Fix build failure.

Browse source 
This is a reland of 5e796bfc22 which was
partially reverted in 8c3e9da13a.

* gnu/packages/tex.scm (texlive-xcolor)[arguments]: Make sure package provides
all the expected files.
This commit is contained in:
Marius Bakke 2022-08-09 10:52:25 +02:00
parent 126648f578
commit 121f6e0b0c
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/tex.scm
View file

@ -3390,15 +3390,22 @@ used by @code{hyperref} and @code{bookmark}.")
((#:phases phases) ((#:phases phases)
#~(modify-phases #$phases #~(modify-phases #$phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "source/latex/xcolor") #t)) (lambda _ (chdir "source/latex/xcolor")))
(add-after 'install 'move-files (replace 'copy-files
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((share (string-append (assoc-ref outputs "out") (let ((origin (assoc-ref inputs "source"))
(source (string-append #$output
"/share/texmf-dist/source"))
(doc (string-append #$output:doc
"/share/texmf-dist/doc")))
(copy-recursively (string-append origin "/source") source)
(copy-recursively (string-append origin "/doc") doc)
(let ((share (string-append #$output
"/share/texmf-dist"))) "/share/texmf-dist")))
(mkdir-p (string-append share "/dvips/xcolor")) (mkdir-p (string-append share "/dvips/xcolor"))
(rename-file (string-append share "/tex/latex/xcolor/xcolor.pro") (rename-file
(string-append share "/dvips/xcolor/xcolor.pro")) (string-append share "/tex/latex/xcolor/xcolor.pro")
#t))))))) (string-append share "/dvips/xcolor/xcolor.pro"))))))))))
;; TODO: Propagate texlive-hyperref and many others in the next rebuild ;; TODO: Propagate texlive-hyperref and many others in the next rebuild
;; cycle. Grep for '\usepackage' to see what packages it requires. ;; cycle. Grep for '\usepackage' to see what packages it requires.
;; (propagated-inputs (list texlive-hyperref ...)) ;; (propagated-inputs (list texlive-hyperref ...))