gnu: Add capypdf.

* gnu/packages/pdf.scm (capypdf): New variable.
(a4pdf): Deprecate in favor of capypdf.
This commit is contained in:
Liliana Marie Prikler 2023-06-11 18:34:02 +02:00
parent 09b310172e
commit 3d3f03cda8
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87

View file

@ -68,6 +68,7 @@ (define-module (gnu packages pdf)
#:use-module (gnu packages fonts) #:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages game-development) #:use-module (gnu packages game-development)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript) #:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
@ -113,21 +114,23 @@ (define-module (gnu packages pdf)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (srfi srfi-1)) #:use-module (srfi srfi-1))
(define-public a4pdf (define-public capypdf
(package (package
(name "a4pdf") (name "capypdf")
(version "0.1.0") (version "0.3.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/jpakkane/a4pdf") (url "https://github.com/jpakkane/capypdf")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "18062cm1qsbaymmjar0whbd7kaggy4x7wzp7xw94kcd1pwx2jp1p")))) (base32 "193izn2jw55w2dxy6l0vz5zrlar9lm7a6z443nw0vs4mlj4jnasi"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list #:phases (list #:meson meson/newer
#:test-options '(list "plainc")
#:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'add-missing-header (add-after 'unpack 'add-missing-header
(lambda _ (lambda _
@ -139,14 +142,7 @@ (define-public a4pdf
;; XXX: remove when bumping glib ;; XXX: remove when bumping glib
(substitute* "src/pdfviewer.cpp" (substitute* "src/pdfviewer.cpp"
(("G_APPLICATION_DEFAULT_FLAGS") (("G_APPLICATION_DEFAULT_FLAGS")
"G_APPLICATION_FLAGS_NONE")))) "G_APPLICATION_FLAGS_NONE")))))))
(add-after 'unpack 'fix-broken-tests
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(substitute* "test/a4pdftests.py"
(("'Ghostscript not found, test suite can not be run.'")
;; Sucks, but there's no point in repairing a certain test
;; at the moment.
"0")))))))
(inputs (list fmt (inputs (list fmt
freetype freetype
gtk gtk
@ -155,7 +151,8 @@ (define-public a4pdf
libpng libpng
zlib)) zlib))
(native-inputs (list font-google-noto (native-inputs (list font-google-noto
;; ghostscript gcc-12
ghostscript
pkg-config pkg-config
python python
python-pillow)) python-pillow))
@ -167,6 +164,9 @@ (define-public a4pdf
convert data in any way.") convert data in any way.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public a4pdf
(deprecated-package "a4pdf" capypdf))
(define-public diffpdf (define-public diffpdf
(let ((commit "ba68231d3d05e0cb3a2d4a4fca8b70d4044f4303") (let ((commit "ba68231d3d05e0cb3a2d4a4fca8b70d4044f4303")
(revision "1")) (revision "1"))