ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 05:39:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: texlive-latex-pdfx: Use simple-texlive-package.

Browse source 
* gnu/packages/tex.scm (texlive-latex-pdfx): Implement with
simple-texlive-package.
[native-inputs]: Remove.
[propagated-inputs]: Replace texlive-generic-pdftex with texlive-pdftex.
This commit is contained in:
Ricardo Wurmus 2020-10-29 11:45:54 +01:00
parent c9ef13bb19
commit 4c8e7ca01d
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 35 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
gnu/packages/tex.scm
View file

@ -7140,57 +7140,42 @@ (define-public texlive-latex-xmpincl
(license license:gpl3+))) (license license:gpl3+)))
(define-public texlive-latex-pdfx (define-public texlive-latex-pdfx
(package (let ((template (simple-texlive-package
(name "texlive-latex-pdfx") "texlive-latex-pdfx"
(version (number->string %texlive-revision)) (list "/doc/latex/pdfx/"
(source "/source/latex/pdfx/"
(origin "/tex/latex/pdfx/")
(method svn-fetch)
(uri (texlive-ref "latex" "pdfx"))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32 (base32
"18294h0cr05fs424m3x6aq24z5hf5zmiflalkj4kvpmsyyqqsj74")))) "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
(build-system texlive-build-system) (package
(inherit template)
(arguments (arguments
'(#:tex-directory "latex/pdfx" (substitute-keyword-arguments (package-arguments template)
#:phases ((#:tex-directory _ #t)
(modify-phases %standard-phases "latex/pdfx")
(add-after 'unpack 'fix-encoding ((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'delete-generated-file
(lambda _
;; Generate this file from sources
(delete-file "tex/latex/pdfx/pdfx.sty")
#t))
(add-after 'delete-generated-file 'chdir
(lambda _ (chdir "source/latex/pdfx") #t))
(add-after 'chdir 'fix-encoding
(lambda _ (lambda _
(substitute* "pdfx.dtx" (substitute* "pdfx.dtx"
((" .+umaczy") "umaczy")) ((" .+umaczy") "umaczy"))
#t))
(add-before 'install 'install-tex-files
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((target (string-append (assoc-ref outputs "out")
"/share/texmf-dist/tex/latex/pdfx")))
(mkdir-p target)
(copy-recursively (assoc-ref inputs "texlive-tex-pdfx") target)
;; Install the generated version in the "install" phase.
(delete-file (string-append target "/pdfx.sty"))
#t)))))) #t))))))
(propagated-inputs (propagated-inputs
`(("texlive-generic-pdftex" ,texlive-generic-pdftex))) `(("texlive-pdftex" ,texlive-pdftex)))
(native-inputs
`(("texlive-tex-pdfx"
,(origin
(method svn-fetch)
(uri (svn-reference
(url (string-append "svn://www.tug.org/texlive/tags/"
%texlive-tag "/Master/texmf-dist/"
"/tex/latex/pdfx"))
(revision %texlive-revision)))
(file-name (string-append "texlive-tex-latex-pdfx-" version "-checkout"))
(sha256
(base32
"171ffvpkj2fab4ljcxv3l6l5c8ga8zavdhmhfq07id8zyyr619ip"))))))
(home-page "https://www.ctan.org/pkg/pdfx") (home-page "https://www.ctan.org/pkg/pdfx")
(synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX") (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
(description (description
"This package helps LaTeX users to create PDF/X, PDF/A and other "This package helps LaTeX users to create PDF/X, PDF/A and other
standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.") standards-compliant PDF documents with pdfTeX, LuaTeX and XeTeX.")
(license license:lppl1.2+))) (license license:lppl1.2+))))
(define-public texlive-ydoc (define-public texlive-ydoc
(let ((template (simple-texlive-package (let ((template (simple-texlive-package