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

gnu: texlive-bin: Patch shell commands in scripts.

Browse source 
* gnu/packages/tex.scm (texlive-bin)[phases]{patch-scripts}: New phase.
This commit is contained in:
Maxim Cournoyer 2021-01-05 22:15:09 -05:00
parent 9e78ea79f8
commit 92fd8975a1
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/tex.scm
View file

@ -406,6 +406,30 @@ (define-public texlive-bin
(with-directory-excursion "texlive-scripts"
(apply (assoc-ref %standard-phases 'unpack)
(list #:source (assoc-ref inputs "texlive-scripts"))))))
(add-after 'unpack-texlive-scripts 'patch-scripts
(lambda _
(let* ((scripts (append (find-files "texk/kpathsea" "^mktex")
(find-files "texlive-scripts" "\\.sh$")))
(commands '("awk" "basename" "cat" "grep" "mkdir" "rm"
"sed" "sort" "uname"))
(command-regexp (format #f "\\b(~a)\\b"
(string-join commands "|")))
(iso-8859-1-encoded-scripts
'("texlive-scripts/source/rubibtex.sh"
"texlive-scripts/source/rumakeindex.sh")))
(define (substitute-commands scripts)
(substitute* scripts
((command-regexp dummy command)
(which command))))
(substitute-commands (lset-difference string= scripts
iso-8859-1-encoded-scripts))
(with-fluids ((%default-port-encoding "ISO-8859-1"))
(substitute-commands iso-8859-1-encoded-scripts))
#t)))
(add-after 'install 'postint
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
(let* ((out (assoc-ref outputs "out"))