TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

85
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) (base32
(uri (texlive-ref "latex" "pdfx")) "1z4j4d92k2fjmf8jfap4zn7ij97d9rz2jcs9aslcac07ag4x5bdp"))))
(file-name (string-append name "-" version "-checkout")) (package
(sha256 (inherit template)
(base32 (arguments
"18294h0cr05fs424m3x6aq24z5hf5zmiflalkj4kvpmsyyqqsj74")))) (substitute-keyword-arguments (package-arguments template)
(build-system texlive-build-system) ((#:tex-directory _ #t)
(arguments "latex/pdfx")
'(#:tex-directory "latex/pdfx" ((#:phases phases)
#:phases `(modify-phases ,phases
(modify-phases %standard-phases (add-after 'unpack 'delete-generated-file
(add-after 'unpack 'fix-encoding (lambda _
(lambda _ ;; Generate this file from sources
(substitute* "pdfx.dtx" (delete-file "tex/latex/pdfx/pdfx.sty")
((" .+umaczy") "umaczy")) #t))
#t)) (add-after 'delete-generated-file 'chdir
(add-before 'install 'install-tex-files (lambda _ (chdir "source/latex/pdfx") #t))
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'chdir 'fix-encoding
(let ((target (string-append (assoc-ref outputs "out") (lambda _
"/share/texmf-dist/tex/latex/pdfx"))) (substitute* "pdfx.dtx"
(mkdir-p target) ((" .+umaczy") "umaczy"))
(copy-recursively (assoc-ref inputs "texlive-tex-pdfx") target) #t))))))
;; Install the generated version in the "install" phase. (propagated-inputs
(delete-file (string-append target "/pdfx.sty")) `(("texlive-pdftex" ,texlive-pdftex)))
#t)))))) (home-page "https://www.ctan.org/pkg/pdfx")
(propagated-inputs (synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
`(("texlive-generic-pdftex" ,texlive-generic-pdftex))) (description
(native-inputs "This package helps LaTeX users to create PDF/X, PDF/A and other
`(("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")
(synopsis "PDF/X and PDF/A support for pdfTeX, LuaTeX and XeTeX")
(description
"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