ngz pushed a commit to branch tex-team in repository guix. commit 30a9ba965efd7ecc2b21cb72ba9a6fc5579f5701 Author: Nicolas Goaziou <m...@nicolasgoaziou.fr> AuthorDate: Mon May 27 10:42:34 2024 +0200
gnu: texlive-libkpathsea: Use TEXLIVE-SOURCE. * gnu/packages/tex.scm (texlive-libkpathsea)[version]: Refer to %TEXLIVE-REVISION. [source]: Inherit from TEXLIVE-SOURCE. Refactor snippet. Change-Id: Ia370203f5fd7a0f2090d8d0b67c24ce5118b2a26 --- gnu/packages/tex.scm | 38 ++++++++++++++------------------------ 1 file changed, 14 insertions(+), 24 deletions(-) diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 05415caba6..c0c5237b2c 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -177,35 +177,25 @@ (define-public texlive-libkpathsea (package (name "texlive-libkpathsea") - (version "20230313") + (version (number->string %texlive-revision)) (source (origin - (method url-fetch) - (uri (string-append "ftp://tug.org/historic/systems/texlive/" - (string-take version 4) - "/texlive-" version "-source.tar.xz")) - (sha256 - (base32 - "1fbrkv7g9j6ipmwjx27l8l9l974rmply8bhf7c2iqc6h3q7aly1q")) + (inherit texlive-source) (modules '((guix build utils) (ice-9 ftw))) (snippet - #~(begin - (with-directory-excursion "libs" - (for-each - delete-file-recursively - (scandir "." - (lambda (file) - (and (not (member file '("." ".."))) - (eq? 'directory (stat:type (stat file)))))))) - (with-directory-excursion "texk" - (let ((preserved-directories '("." ".." "kpathsea"))) - (for-each - delete-file-recursively - (scandir "." - (lambda (file) - (and (not (member file preserved-directories)) - (eq? 'directory (stat:type (stat file))))))))))))) + #~(let ((delete-other-directories + (lambda (root dirs) + (with-directory-excursion root + (for-each + delete-file-recursively + (scandir "." + (lambda (file) + (and (not (member file (append '("." "..") dirs))) + (eq? 'directory (stat:type (stat file))))))))))) + (delete-other-directories "libs" '()) + (delete-other-directories "utils" '()) + (delete-other-directories "texk" '("kpathsea")))))) (build-system gnu-build-system) (arguments (list