guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: Add leptonica-1.80.

Browse source 
* gnu/packages/image.scm (leptonica-1.80): New variable.
This commit is contained in:
Maxim Cournoyer 2023-03-17 10:05:41 -04:00
parent 2714c9ef2d
commit 13539334ec
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/image.scm
View file

@ -25,7 +25,7 @@
;;; Copyright © 2018 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2020, 2021, 2022 Vinicius Monego <monego@posteo.net>
@ -655,6 +655,39 @@ scale and pixel depth, and pixelwise masking, blending, enhancement, and
arithmetic ops.")
(license license:bsd-2)))
(define-public leptonica-1.80
(package
(inherit leptonica)
(name "leptonica")
(version "1.80.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/DanBloomberg/leptonica")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"12ddln72z5l3icz0i9rpsfkg5xik8fcwcn8lb0cp3jigjxi8gvkg"))))
(arguments
(substitute-keyword-arguments (package-arguments leptonica)
((#:tests? _ #t)
;; The pngio_reg test fails, probably because the libpng used is
;; newer.
#f)
((#:phases phases '%standard-phases)
#~(modify-phases #$phases
(replace 'provide-absolute-giflib-reference
(lambda _
(let ((giflib #$(this-package-input "giflib")))
;; Add an absolute reference to giflib to avoid propagation.
;; This is the same as for the parent package, but at that
;; time the file name was 'liblept.la, not libleptonica.la.
(with-directory-excursion (string-append #$output "/lib")
(substitute* '("liblept.la" "pkgconfig/lept.pc")
(("-lgif")
(string-append "-L" giflib "/lib -lgif")))))))))))))
(define-public jbig2dec
(package
(name "jbig2dec")