(address . guix-patches@gnu.org)(name . Arne Babenhauserheide)(address . arne_bab@web.de)
* gnu/packages/image.scm (pngquant): Package 2.12.3
* gnu/packages/image.scm (libimagequant): Package 2.12.3
---
gnu/packages/image.scm | 65 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 65 insertions(+)
Toggle diff (76 lines)
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index fabc2fb2d1..511f5302b7 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -258,6 +258,71 @@ files. It can compress them as much as 40% losslessly.")
;; This package used to be wrongfully name "pngcrunch".
(deprecated-package "pngcrunch" pngcrush))
+(define-public pngquant
+ (package
+ (name "pngquant")
+ (version "2.12.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "http://pngquant.org/pngquant-"
+ version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1mr0c7cd6m5hwz2fgbgmphirpf5mm4q546cpc31nwsrj4390qz2h"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f ; no check target
+ #:phases (modify-phases %standard-phases
+ (replace 'build
+ (lambda _
+ (invoke "make"
+ (string-append
+ "LIQSRCDIR="
+ (assoc-ref %build-inputs "libimagequant")
+ "/lib")
+ "pngquant"))))))
+ (inputs
+ `(("libpng" ,libpng)
+ ("zlib" ,zlib)
+ ("libimagequant" ,libimagequant)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (home-page "https://pngquant.org")
+ (synopsis "Lossy png compression")
+ (description "pngquant is a command-line utility for lossy compression of
+PNG images.")
+ (license license:gpl3+)))
+
+
+(define-public libimagequant
+ (package
+ (name "libimagequant")
+ (version "2.12.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/ImageOptim/libimagequant/archive/"
+ version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0ggiizj6vz2i1r5ff1hgjl1v0hx8227wdgwxrlb29rd7ax38bmrb"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (arguments
+ '(#:tests? #f ; no check target
+ #:phases (modify-phases %standard-phases
+ (replace 'build
+ (lambda _ (invoke "make" "libimagequant.so"))))))
+ (home-page "https://pngquant.org/lib/")
+ (synopsis "Utility to compress PNG files")
+ (description "libimagequant is a library for lossy compression of PNG images.")
+ (license license:gpl3+)))
+
+
(define-public pnglite
(let ((commit "11695c56f7d7db806920bd9229b69f230e6ffb38")
(revision "1"))
--
2.22.0