me/guix
Archived
1
0
Fork 0
Code Activity

gnu: texlive: Use modify-phases syntax.

Browse source 
* gnu/packages/texlive.scm (texlive-bin, texlive-texmf): Use modify-phases
  syntax.
This commit is contained in:
Andreas Enge 2016-01-10 11:35:52 +01:00
parent a916c82649
commit 4a6635f353
1 changed files with 58 additions and 61 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/texlive.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;;
@ -129,8 +129,8 @@
#:tests? ,(not (string-prefix? "mips64" (or (%current-target-system)
(%current-system))))
#:phases
(alist-cons-after
'install 'postinst
(modify-phases %standard-phases
(add-after 'install 'postint
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
@ -151,8 +151,7 @@
(with-directory-excursion "texlive-extra"
(apply unpack (list #:source texlive-extra))
(apply patch-source-shebangs (list #:source texlive-extra))
(system* "mv" "tlpkg" share))))
%standard-phases)))
(system* "mv" "tlpkg" share))))))))
(synopsis "TeX Live, a package of the TeX typesetting system")
(description
"TeX Live provides a comprehensive TeX document production system.
@ -182,14 +181,14 @@ This package contains the binaries.")
(guix build utils)
(srfi srfi-26))
#:phases
(alist-cons-before
'texmf-config 'install
(modify-phases (map (cut assq <> %standard-phases)
'(set-paths unpack patch-source-shebangs))
(add-after 'patch-source-shebangs 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((share (string-append (assoc-ref outputs "out") "/share")))
(mkdir-p share)
(system* "mv" "texmf-dist" share)))
(alist-cons-after
'patch-source-shebangs 'texmf-config
(system* "mv" "texmf-dist" share))))
(add-after 'install 'texmf-config
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
@ -215,9 +214,7 @@ This package contains the binaries.")
(setenv "TEXMFCNF" texmfroot)
(system* "updmap-sys" "--nohash" "--syncwithtrees")
(system* "mktexlsr")
(system* "fmtutil-sys" "--all")))
(map (cut assq <> %standard-phases)
'(set-paths unpack patch-source-shebangs))))))
(system* "fmtutil-sys" "--all")))))))
(synopsis "TeX Live, a package of the TeX typesetting system")
(description
"TeX Live provides a comprehensive TeX document production system.