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