me
/
guix
Archived
1
0
Fork 0
Code

gnu: image: Rename pngcrunch to pngcrush and update it. 

* gnu/packages/image.scm (pngcrush): Renamed from pngcrunch.
[version]: update to 1.8.13.
[arguments]: Use the nolib Makefile.
[origin]: Use the no-lib tar.
[home-page]: update to the new website.
(pngcrunch): New deprecation variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
nee 2017-11-25 20:51:11 +01:00 committed by Ludovic Courtès
parent 9b07130129
commit 1ee13e01c8
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/image.scm
View File

@ -207,25 +207,24 @@ in-memory raw vectors.")
;; Any of these GPL versions. ;; Any of these GPL versions.
(license (list license:gpl2 license:gpl3)))) (license (list license:gpl2 license:gpl3))))
(define-public pngcrunch (define-public pngcrush
(package (package
(name "pngcrunch") (name "pngcrush")
(version "1.8.11") (version "1.8.13")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/pmt/pngcrush/" (uri (string-append "mirror://sourceforge/pmt/pngcrush/"
version "/pngcrush-" version ".tar.xz")) version "/pngcrush-" version "-nolib.tar.xz"))
(sha256 (base32 (sha256 (base32
"1c7m316i91jp3h1dj1ppppdv6zilm2njk1wrpqy2zj0fcll06lwd")))) "0l43c59d6v9l0g07z3q3ywhb8xb3vz74llv3mna0izk9bj6aqkiv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags '("-f" "Makefile-nolib") '(#:tests? #f ; no check target
#:tests? #f ; no check target
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "Makefile-nolib" (substitute* "Makefile"
(("^(PNG(INC|LIB) = )/usr/local/" line vardef) (("^(PNG(INC|LIB) = )/usr/local/" line vardef)
(string-append vardef (assoc-ref inputs "libpng") "/")) (string-append vardef (assoc-ref inputs "libpng") "/"))
(("^(Z(INC|LIB) = )/usr/local/" line vardef) (("^(Z(INC|LIB) = )/usr/local/" line vardef)
@ -236,12 +235,16 @@ in-memory raw vectors.")
(inputs (inputs
`(("libpng" ,libpng) `(("libpng" ,libpng)
("zlib" , zlib))) ("zlib" , zlib)))
(home-page "https://pmt.sourceforge.net/pngcrush") (home-page "https://pmt.sourceforge.io/pngcrush")
(synopsis "Utility to compress PNG files") (synopsis "Utility to compress PNG files")
(description "pngcrusqh is an optimizer for PNG (Portable Network Graphics) (description "pngcrusqh is an optimizer for PNG (Portable Network Graphics)
files. It can compress them as much as 40% losslessly.") files. It can compress them as much as 40% losslessly.")
(license license:zlib))) (license license:zlib)))
(define-public pngcrunch
;; This package used to be wrongfully name "pngcrunch".
(deprecated-package "pngcrunch" pngcrush))
(define-public libjpeg (define-public libjpeg
(package (package
(name "libjpeg") (name "libjpeg")