me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive-bin: Remove trailing #T.

Browse source 
* gnu/packages/tex.scm (texlive-bin)[source]: Simplify snippet.
[arguments]: Remove trailing #T from build phases.
This commit is contained in:
Ricardo Wurmus 2022-01-04 14:59:35 +01:00
parent b8a771d5a5
commit f5ef9ffd48
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 17 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/packages/tex.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017, 2020, 2021 Marius Bakke <marius@gnu.org> ;;; Copyright © 2017, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
@ -254,8 +254,8 @@ files from LOCATIONS with expected checksum HASH. CODE is not currently in use.
(modules '((guix build utils) (modules '((guix build utils)
(ice-9 ftw))) (ice-9 ftw)))
(snippet (snippet
'(begin ;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
(with-directory-excursion "libs" '(with-directory-excursion "libs"
(let ((preserved-directories '("." ".." "lua53" "luajit" "pplib" "xpdf"))) (let ((preserved-directories '("." ".." "lua53" "luajit" "pplib" "xpdf")))
;; Delete bundled software, except Lua which cannot easily be ;; Delete bundled software, except Lua which cannot easily be
;; used as an external dependency, pplib and xpdf which aren't ;; used as an external dependency, pplib and xpdf which aren't
@ -264,9 +264,7 @@ files from LOCATIONS with expected checksum HASH. CODE is not currently in use.
(scandir "." (scandir "."
(lambda (file) (lambda (file)
(and (not (member file preserved-directories)) (and (not (member file preserved-directories))
(eq? 'directory (stat:type (stat file))))))))) (eq? 'directory (stat:type (stat file))))))))))))
;; TODO: Unbundle stuff in texk/dvisvgm/dvisvgm-src/libs too.
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("texlive-extra-src" ,texlive-extra-src) `(("texlive-extra-src" ,texlive-extra-src)
@ -368,24 +366,21 @@ files from LOCATIONS with expected checksum HASH. CODE is not currently in use.
(("gswin32c") "gs")) (("gswin32c") "gs"))
(substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl" (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
(("\"gs\"") (("\"gs\"")
(string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\""))) (string-append "\"" (assoc-ref inputs "ghostscript") "/bin/gs\"")))))
#t))
(add-after 'unpack 'patch-dvisvgm-build-files (add-after 'unpack 'patch-dvisvgm-build-files
(lambda _ (lambda _
;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so ;; XXX: Ghostscript is detected, but HAVE_LIBGS is never set, so
;; the appropriate linker flags are not added. ;; the appropriate linker flags are not added.
(substitute* "texk/dvisvgm/configure" (substitute* "texk/dvisvgm/configure"
(("^have_libgs=yes" all) (("^have_libgs=yes" all)
(string-append all "\nHAVE_LIBGS=1"))) (string-append all "\nHAVE_LIBGS=1")))))
#t))
(add-after 'unpack 'disable-failing-test (add-after 'unpack 'disable-failing-test
(lambda _ (lambda _
;; FIXME: This test fails on 32-bit architectures since Glibc 2.28: ;; FIXME: This test fails on 32-bit architectures since Glibc 2.28:
;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>. ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
(substitute* "texk/web2c/omegafonts/check.test" (substitute* "texk/web2c/omegafonts/check.test"
(("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1") (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck \\|\\| exit 1")
"./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77")) "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 77"))))
#t))
,@(if (target-ppc32?) ,@(if (target-ppc32?)
;; Some mendex tests fail on some architectures. ;; Some mendex tests fail on some architectures.
`((add-after 'unpack 'skip-mendex-tests `((add-after 'unpack 'skip-mendex-tests
@ -430,9 +425,7 @@ files from LOCATIONS with expected checksum HASH. CODE is not currently in use.
iso-8859-1-encoded-scripts)) iso-8859-1-encoded-scripts))
(with-fluids ((%default-port-encoding "ISO-8859-1")) (with-fluids ((%default-port-encoding "ISO-8859-1"))
(substitute-commands iso-8859-1-encoded-scripts)) (substitute-commands iso-8859-1-encoded-scripts)))))
#t)))
(add-after 'check 'customize-texmf.cnf (add-after 'check 'customize-texmf.cnf
;; The default texmf.cnf is provided by this package, texlive-bin. ;; The default texmf.cnf is provided by this package, texlive-bin.
;; Every variable of interest is set relatively to the GUIX_TEXMF ;; Every variable of interest is set relatively to the GUIX_TEXMF
@ -457,8 +450,7 @@ files from LOCATIONS with expected checksum HASH. CODE is not currently in use.
;; Don't truncate lines. ;; Don't truncate lines.
(("^error_line = .*$") "error_line = 254\n") (("^error_line = .*$") "error_line = 254\n")
(("^half_error_line = .*$") "half_error_line = 238\n") (("^half_error_line = .*$") "half_error_line = 238\n")
(("^max_print_line = .*$") "max_print_line = 1000\n"))) (("^max_print_line = .*$") "max_print_line = 1000\n")))))
#t))
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args) (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))