ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: texlive-libkpathsea: Use TEXLIVE-SOURCE.

Browse source 
* gnu/packages/tex.scm (texlive-libkpathsea)[version]: Refer to
%TEXLIVE-REVISION.
[source]: Inherit from TEXLIVE-SOURCE.  Refactor snippet.

Change-Id: Ia370203f5fd7a0f2090d8d0b67c24ce5118b2a26
This commit is contained in:
Nicolas Goaziou 2024-05-27 10:42:34 +02:00 committed by Ludovic Courtès
parent efbc64bd14
commit c2030c1907
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/tex.scm
View file

@ -177,35 +177,25 @@ (define texlive-source
(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