gnu: graphicsmagick: Update to 1.3.26.

* gnu/packages/imagemagick.scm (graphicsmagick): Update to 1.3.26.
[source]: Use url-fetch and add SourceForge URL. Remove snippet.
master
Leo Famulari 2017-07-19 12:02:42 -04:00
parent 8016393eab
commit 6d5deda16d
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 49 additions and 66 deletions

View File

@ -25,7 +25,6 @@
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix hg-download)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages) #:use-module (gnu packages)
@ -162,37 +161,21 @@ script.")
(license (package-license imagemagick)))) (license (package-license imagemagick))))
(define-public graphicsmagick (define-public graphicsmagick
(let ((changeset "6156b4c2992d855ece6079653b3b93c3229fc4b8") ; fix CVE-2017-6335
(revision "3"))
(package (package
(name "graphicsmagick") (name "graphicsmagick")
(version (string-append "1.3.25-" revision "." (version "1.3.26")
(string-take changeset 7)))
(source (origin (source (origin
(method hg-fetch) (method url-fetch)
(uri (hg-reference (uri
(url "http://hg.code.sf.net/p/graphicsmagick/code") (list
(changeset changeset))) (string-append "mirror://sourceforge/" name "/" name
(file-name (string-append name "-" version "-checkout")) "/" version "/GraphicsMagick-" version ".tar.xz")
;;(method url-fetch) (string-append "ftp://ftp.graphicsmagick.org/pub/"
;;(uri (string-append "ftp://ftp.graphicsmagick.org/pub/" "GraphicsMagick/" (version-major+minor version)
;; "GraphicsMagick/" (version-major+minor version) "/GraphicsMagick-" version ".tar.xz")))
;; "/GraphicsMagick-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"08yfsn8mrqkwpax43vv1crfr55rcf004wwpzsinr5c6m0asqr08b")) "122zgs96dqrys62mnh8x5yvfff6km4d3yrnvaxzg3mg5sprib87v"))))
(modules '((guix build utils)))
(snippet
;; Remove bundled software. This reduces the size of the built
;; source checkout from 177 MiB to 49 MiB. This should not be
;; necessary when using the GraphicsMagick release tarball,
;; because these files are not distributed there.
'(for-each delete-file-recursively '("bzlib" "dcraw" "hp2xx"
"jbig" "jp2" "jpeg"
"lcms" "libxml" "png"
"ralcgm" "tiff" "ttf"
"webp" "wmf" "xlib"
"zlib")))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
@ -228,4 +211,4 @@ script.")
"GraphicsMagick provides a comprehensive collection of utilities, "GraphicsMagick provides a comprehensive collection of utilities,
programming interfaces, and GUIs, to support file format conversion, image programming interfaces, and GUIs, to support file format conversion, image
processing, and 2D vector rendering.") processing, and 2D vector rendering.")
(license license:expat)))) (license license:expat)))