diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-05-27 10:42:34 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 10:45:19 +0200 |
| commit | c2030c19072f02c6e44c22b923c0366b6f2028e2 (patch) | |
| tree | ce2c35456cd2cd57448d661fc4aabe02a191998b | |
| parent | efbc64bd1479ae909f581e4c22c0df1ccf23b6b8 (diff) | |
| download | guix-c2030c19072f02c6e44c22b923c0366b6f2028e2.tar.gz guix-c2030c19072f02c6e44c22b923c0366b6f2028e2.zip | |
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
| -rw-r--r-- | gnu/packages/tex.scm | 38 |
1 files changed, 14 insertions, 24 deletions
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index ceb6f548d2..b5f0cc65b8 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 |