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,18 +801,19 @@ 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="
#$(this-package-input "openjpeg")))
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-mathjax-path (add-after 'unpack 'fix-mathjax-path
(lambda _ (lambda _
(let* ((mathjax (assoc-ref %build-inputs "js-mathjax")) (let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
@ -820,23 +821,21 @@ infamous 'Wanda the Fish'.")
"/share/javascript/mathjax"))) "/share/javascript/mathjax")))
(substitute* "backend/epub/epub-document.c" (substitute* "backend/epub/epub-document.c"
(("/usr/share/javascript/mathjax") (("/usr/share/javascript/mathjax")
mathjax-path))) mathjax-path))) #t))
#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 "\"" out "/share/gir-1.0/\"")) (string-append "\""
#$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") "true")) (("gtk-update-icon-cache")
#t))))) "true")) #t)))))
(native-inputs (native-inputs
(list pkg-config (list pkg-config
intltool intltool