me
/
guix
Archived
1
0
Fork 0
Code

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>
master
Timotej Lazar 2023-04-30 20:53:54 +02:00 committed by Ludovic Courtès
parent c106baed62
commit 64086a4fa4
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/pdf.scm
View File

@ -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