From 64086a4fa449a9f6d2f835fcdf5498222b309e3a Mon Sep 17 00:00:00 2001 From: Timotej Lazar Date: Sun, 30 Apr 2023 20:53:54 +0200 Subject: gnu: mupdf: Simplify snippet. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/pdf.scm (mupdf)[source]: Simplify code to remove unused thirdparty libs. Signed-off-by: Ludovic Courtès --- gnu/packages/pdf.scm | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) (limited to 'gnu/packages/pdf.scm') diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm index f47c082770..ec4e4620f8 100644 --- a/gnu/packages/pdf.scm +++ b/gnu/packages/pdf.scm @@ -832,20 +832,17 @@ and based on PDF specification 1.7.") "mupdf-" version "-source.tar.lz")) (sha256 (base32 "0ghwam1c1izks1n2zq2pr8z67nvrx4njk5rla86b75l4pw58mmxy")) - (modules '((guix build utils))) + (modules '((guix build utils) + (ice-9 ftw) + (srfi srfi-1))) (snippet - #~(begin - ;; Remove bundled software. Keep patched variants. - (let* ((keep (list "extract" "freeglut" "lcms2")) - (from "thirdparty") - (kept (string-append from "~temp"))) - (mkdir-p kept) - (for-each (lambda (file) - (rename-file (string-append from "/" file) - (string-append kept "/" file))) - keep) - (delete-file-recursively from) - (rename-file kept from)))))) + ;; Remove bundled software. Keep patched variants. + #~(with-directory-excursion "thirdparty" + (let ((keep '("README" "extract" "freeglut" "lcms2"))) + (for-each delete-file-recursively + (lset-difference string=? + (scandir ".") + (cons* "." ".." keep)))))))) (build-system gnu-build-system) (inputs (list curl -- cgit v1.2.3