[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/08: gnu: mupdf: Simplify snippet.
From: |
guix-commits |
Subject: |
08/08: gnu: mupdf: Simplify snippet. |
Date: |
Fri, 5 May 2023 18:06:10 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 64086a4fa449a9f6d2f835fcdf5498222b309e3a
Author: Timotej Lazar <timotej.lazar@araneo.si>
AuthorDate: Sun Apr 30 20:53:54 2023 +0200
gnu: mupdf: Simplify snippet.
* gnu/packages/pdf.scm (mupdf)[source]: Simplify code to remove unused
thirdparty libs.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
gnu/packages/pdf.scm | 23 ++++++++++-------------
1 file changed, 10 insertions(+), 13 deletions(-)
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
- branch master updated (94d0efffb3 -> 64086a4fa4), guix-commits, 2023/05/05
- 02/08: read-print: Recognize 'wrap-program' and 'wrap-script' as special forms., guix-commits, 2023/05/05
- 01/08: read-print: Correctly read "(. x)"., guix-commits, 2023/05/05
- 03/08: gnu: guile2.0-shepherd: Remove., guix-commits, 2023/05/05
- 04/08: gnu: bear: Build against 'abseil-cpp-cxxstd11'., guix-commits, 2023/05/05
- 05/08: gnu: lttng-tools: Fix build failure., guix-commits, 2023/05/05
- 06/08: gnu: git-crypt: Fix build issues on OpenSSL 3., guix-commits, 2023/05/05
- 07/08: gnu: mupdf: Update to 1.22.0., guix-commits, 2023/05/05
- 08/08: gnu: mupdf: Simplify snippet.,
guix-commits <=