From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:47300) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7Pxa-0007hL-5Y for guix-patches@gnu.org; Sun, 07 May 2017 13:27:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7PxX-000861-1O for guix-patches@gnu.org; Sun, 07 May 2017 13:27:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:34159) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d7PxW-00085x-Ty for guix-patches@gnu.org; Sun, 07 May 2017 13:27:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d7PxV-0002uN-Qn for guix-patches@gnu.org; Sun, 07 May 2017 13:27:01 -0400 Subject: bug#26817: [PATCH] gnu: Add pngcrunch. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47216) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d7Pwd-0007Va-MT for guix-patches@gnu.org; Sun, 07 May 2017 13:26:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d7PwZ-0007sY-W0 for guix-patches@gnu.org; Sun, 07 May 2017 13:26:07 -0400 Received: from mail-out.m-online.net ([212.18.0.10]:50509) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d7PwZ-0007s8-Ig for guix-patches@gnu.org; Sun, 07 May 2017 13:26:03 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 3wLXZP4xYXz1qr4C for ; Sun, 7 May 2017 19:25:01 +0200 (CEST) Received: from localhost (dynscan01.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 3wLXZP3pclz3jgYP for ; Sun, 7 May 2017 19:25:01 +0200 (CEST) Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan01.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id s4HME8YCUfsc for ; Sun, 7 May 2017 19:25:00 +0200 (CEST) Received: from hermia.goebel-consult.de (ppp-46-244-140-221.dynamic.mnet-online.de [46.244.140.221]) (using TLSv1 with cipher DHE-RSA-CAMELLIA256-SHA (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPS for ; Sun, 7 May 2017 19:25:00 +0200 (CEST) Received: from lenashee.goebel-consult.de (lenashee.goebel-consult.de [192.168.110.2]) by hermia.goebel-consult.de (Postfix) with ESMTP id A187A602E0 for ; Sun, 7 May 2017 21:20:48 +0200 (CEST) From: Hartmut Goebel Date: Sun, 7 May 2017 19:24:59 +0200 Message-Id: <1494177899-20012-1-git-send-email-h.goebel@crazy-compilers.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26817@debbugs.gnu.org * gnu/packages/image.scm (pngcrunch): New variable. --- gnu/packages/image.scm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 1a11085..3368e23 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -155,6 +155,40 @@ APNG patch provides APNG support to libpng.") (sha256 (base32 "1n2lrzjkm5jhfg2bs10q398lkwbbx742fi27zgdgx0x23zhj0ihg")))))) +(define-public pngcrunch + (package + (name "pngcrunch") + (version "1.8.11") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/pmt/pngcrush/" + version "/pngcrush-" version ".tar.xz")) + (sha256 (base32 + "1c7m316i91jp3h1dj1ppppdv6zilm2njk1wrpqy2zj0fcll06lwd")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags '("-f" "Makefile-nolib") + #:tests? #f ; no check target + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* "Makefile-nolib" + (("^(PNG(INC|LIB) = )/usr/local/" line vardef) + (string-append vardef (assoc-ref inputs "libpng") "/")) + (("^(Z(INC|LIB) = )/usr/local/" line vardef) + (string-append vardef (assoc-ref inputs "zlib") "/")) + (("\\$\\(DESTDIR\\)/usr/") + (string-append (assoc-ref outputs "out") "/")))))))) + (inputs + `(("libpng" ,libpng) + ("zlib" , zlib))) + (home-page "https://pmt.sourceforge.net/pngcrush") + (synopsis "Utility to compress PNG files") + (description "pngcrusqh is an optimizer for PNG (Portable Network Graphics) +files. It can compress them as much as 40% losslessly.") + (license license:zlib))) + (define-public libjpeg (package (name "libjpeg") -- 2.7.4