nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: texlive-latex-base: Ensure that extra sources are installed. 

* gnu/packages/tex.scm (texlive-latex-base): Use simple-texlive-package to
install additional files.
This commit is contained in:
Ricardo Wurmus 2019-09-05 14:57:16 +02:00
parent 66d2133500
commit 09e2f25842
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 201 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/tex.scm
View File

@ -2508,11 +2508,8 @@ formats.")
(license license:lppl))) (license license:lppl)))
(define-public texlive-latex-base (define-public texlive-latex-base
(package (let ((template (simple-texlive-package
(name "texlive-latex-base") "texlive-latex-base"
(version (number->string %texlive-revision))
(source (texlive-origin
name version
(list "/doc/latex/base/" (list "/doc/latex/base/"
"/source/latex/base/" "/source/latex/base/"
;; Almost all files in /tex/latex/base are generated, but ;; Almost all files in /tex/latex/base are generated, but
@ -2530,17 +2527,19 @@ formats.")
"/tex/latex/base/testpage.tex" "/tex/latex/base/testpage.tex"
"/tex/latex/base/texsys.cfg") "/tex/latex/base/texsys.cfg")
(base32 (base32
"0f8d41wk1gb7i6xq1a10drwhhayc50pg9nwzjkrqnxrv0pcc08w5"))) "0f8d41wk1gb7i6xq1a10drwhhayc50pg9nwzjkrqnxrv0pcc08w5")
(build-system gnu-build-system) #:trivial? #t)))
(package
(inherit template)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (substitute-keyword-arguments (package-arguments template)
((#:modules modules '())
'((guix build gnu-build-system)
(guix build utils) (guix build utils)
(ice-9 match) (ice-9 match)
(srfi srfi-26)) (srfi srfi-26)))
#:tests? #f ; no tests ((#:phases phases)
#:phases `(modify-phases ,phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Find required fonts ;; Find required fonts
@ -2604,7 +2603,7 @@ formats.")
;; We don't actually want to install it. ;; We don't actually want to install it.
(delete-file "web2c/fmtutil.cnf") (delete-file "web2c/fmtutil.cnf")
#t)) #t))
(replace 'install (add-after 'install 'install-more
(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"))
(root (string-append out "/share/texmf-dist")) (root (string-append out "/share/texmf-dist"))
@ -2625,7 +2624,7 @@ formats.")
(find-files "build" ".*")) (find-files "build" ".*"))
(for-each (cut install-file <> web2c) (for-each (cut install-file <> web2c)
(find-files "web2c" ".*")) (find-files "web2c" ".*"))
#t)))))) #t)))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-tex-ini-files" ,texlive-tex-ini-files) ("texlive-tex-ini-files" ,texlive-tex-ini-files)
@ -2715,7 +2714,7 @@ formats.")
packages which are considered \"part of the kernel\". This bundle, together packages which are considered \"part of the kernel\". This bundle, together
with the required packages, constitutes what every LaTeX distribution should with the required packages, constitutes what every LaTeX distribution should
contain.") contain.")
(license license:lppl1.3c+))) (license license:lppl1.3c+))))
(define-public texlive-latex-filecontents (define-public texlive-latex-filecontents
(package (package