[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: optipng: Use system libraries.
From: |
Efraim Flashner |
Subject: |
01/01: gnu: optipng: Use system libraries. |
Date: |
Tue, 31 Jul 2018 16:13:02 -0400 (EDT) |
efraim pushed a commit to branch master
in repository guix.
commit 64ed4b6a271637bfbda464033590c1d2a5c33c3e
Author: Efraim Flashner <address@hidden>
Date: Tue Jul 31 21:53:47 2018 +0300
gnu: optipng: Use system libraries.
* gnu/packages/image.scm (optipng)[source]: Add snippet to delete
bundled libraries.
[inputs]: Add libpng.
[arguments]: Add configure-flag to use system libraries.
---
gnu/packages/image.scm | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index b381c3f..b604712 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -1199,10 +1199,17 @@ installed as @code{stb_image}.")
version ".tar.gz"))
(sha256
(base32
- "0lj4clb851fzpaq446wgj0sfy922zs5l5misbpwv6w7qrqrz4cjg"))))
+ "0lj4clb851fzpaq446wgj0sfy922zs5l5misbpwv6w7qrqrz4cjg"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ (delete-file-recursively "src/libpng")
+ (delete-file-recursively "src/zlib")
+ #t))))
(build-system gnu-build-system)
(inputs
- `(("zlib" ,zlib)))
+ `(("libpng" ,libpng)
+ ("zlib" ,zlib)))
(arguments
'(#:phases
(modify-phases %standard-phases
@@ -1210,7 +1217,8 @@ installed as @code{stb_image}.")
(lambda* (#:key outputs #:allow-other-keys)
;; configure script doesn't accept arguments CONFIG_SHELL and
SHELL
(invoke "sh" "configure"
- (string-append "--prefix=" (assoc-ref outputs "out")))
+ (string-append "--prefix=" (assoc-ref outputs "out"))
+ "-with-system-libs")
#t)))))
(synopsis "Optimizer that recompresses PNG image files to a smaller size")
(description "OptiPNG is a PNG optimizer that recompresses image