gnu: atril: Update to 1.28.1.

* gnu/packages/mate.scm (atril): Update to 1.28.1.
[arguments]: Use G-Expressions.

Closes: guix/guix#3037
Change-Id: I3114cd2c126e0d69cc5a5338a28b5ec510f58fa7
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
FuncProgLinux 2025-09-26 21:10:24 -06:00 committed by 宋文武
parent a5ffdf0093
commit 34374c9d52
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -793,7 +793,7 @@ infamous 'Wanda the Fish'.")
(define-public atril (define-public atril
(package (package
(name "atril") (name "atril")
(version "1.28.0") (version "1.28.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -801,42 +801,41 @@ infamous 'Wanda the Fish'.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0qji6nsf0r3rp5x7mah8pafx42dyqcygqsv7cgmc8wcvdrgp5m6f")))) "0ghrx1nhjjs016swj0qy88azgmvas1478xi3xwnxbspkg4lz9i3l"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:configure-flags (list (string-append "--with-openjpeg=" (list
(assoc-ref %build-inputs "openjpeg")) #:configure-flags
"--enable-introspection" #~(list "--enable-introspection" "--disable-schemas-compile"
"--disable-schemas-compile" ;; FIXME: Enable build of Caja extensions.
;; FIXME: Enable build of Caja extensions. "--disable-caja"
"--disable-caja") (string-append "--with-openjpeg="
#:tests? #f #$(this-package-input "openjpeg")))
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
(add-after 'unpack 'fix-mathjax-path #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'fix-mathjax-path
(let* ((mathjax (assoc-ref %build-inputs "js-mathjax")) (lambda _
(mathjax-path (string-append mathjax (let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
"/share/javascript/mathjax"))) (mathjax-path (string-append mathjax
(substitute* "backend/epub/epub-document.c" "/share/javascript/mathjax")))
(("/usr/share/javascript/mathjax") (substitute* "backend/epub/epub-document.c"
mathjax-path))) (("/usr/share/javascript/mathjax")
#t)) mathjax-path))) #t))
(add-after 'unpack 'fix-introspection-install-dir (add-after 'unpack 'fix-introspection-install-dir
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (substitute* '("configure")
(substitute* '("configure") (("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)")
(("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)") (string-append "\""
(string-append "\"" out "/share/gir-1.0/\"")) #$output "/share/gir-1.0/\""))
(("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)") (("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
(string-append out "/lib/girepository-1.0/"))) (string-append #$output "/lib/girepository-1.0/")))))
#t))) (add-before 'install 'skip-gtk-update-icon-cache
(add-before 'install 'skip-gtk-update-icon-cache ;; Don't create 'icon-theme.cache'.
;; Don't create 'icon-theme.cache'. (lambda _
(lambda _ (substitute* "data/Makefile"
(substitute* "data/Makefile" (("gtk-update-icon-cache")
(("gtk-update-icon-cache") "true")) "true")) #t)))))
#t)))))
(native-inputs (native-inputs
(list pkg-config (list pkg-config
intltool intltool