me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-xcolor: Provide missing files.

Browse source 
* gnu/packages/tex.scm (texlive-xcolor): Make sure package provides all the
expected files.
This commit is contained in:
Nicolas Goaziou 2022-02-13 23:43:43 +01:00
parent 69f284a35f
commit 5e796bfc22
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 27 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/tex.scm
View file

@ -3260,28 +3260,40 @@ used by @code{hyperref} and @code{bookmark}.")
(define-public texlive-xcolor (define-public texlive-xcolor
(let ((template (simple-texlive-package (let ((template (simple-texlive-package
"texlive-xcolor" "texlive-xcolor"
(list "/doc/latex/xcolor/" (list "doc/latex/xcolor/"
"/source/latex/xcolor/") "dvips/xcolor/"
"source/latex/xcolor/"
"tex/latex/xcolor/")
(base32 (base32
"12q6spmpxg30alhvarjmxzigmz7lazapbrb0mc4vhbn6n1sdz7pp")))) "1d7108b67fcaf1sgyk43ph18l0z5m35iqg3aahqs1ymzwdfnd3f7"))))
(package (package
(inherit template) (inherit template)
(outputs '("out" "doc"))
(arguments (arguments
(substitute-keyword-arguments (package-arguments template) (substitute-keyword-arguments (package-arguments template)
((#:tex-directory _ #t) ((#:tex-directory _ '())
"latex/xcolor") "latex/xcolor")
((#:build-targets _ '())
#~(list "xcolor.ins"))
((#: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"))
"/share/texmf-dist"))) (source (string-append #$output
(mkdir-p (string-append share "/dvips/xcolor")) "/share/texmf-dist/source"))
(rename-file (string-append share "/tex/latex/xcolor/xcolor.pro") (doc (string-append #$output:doc
(string-append share "/dvips/xcolor/xcolor.pro")) "/share/texmf-dist/doc")))
#t))))))) (copy-recursively (string-append origin "/source") source)
(copy-recursively (string-append origin "/doc") doc)
(let ((share (string-append #$output
"/share/texmf-dist")))
(mkdir-p (string-append share "/dvips/xcolor"))
(rename-file
(string-append share "/tex/latex/xcolor/xcolor.pro")
(string-append share "/dvips/xcolor/xcolor.pro"))))))))))
(home-page "https://www.ctan.org/pkg/xcolor") (home-page "https://www.ctan.org/pkg/xcolor")
(synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX") (synopsis "Driver-independent color extensions for LaTeX and pdfLaTeX")
(description (description