me/guix
Archived
1
0
Fork 0
Code Activity

gnu: gnome-font-viewer: Update to 42.0.

Browse source 
* gnu/packages/gnome.scm (gnome-font-viewer): Update to 42.0.
[phases]: Delete trailing #t.  Use gexps.
{patch-thumbnailer}: Use search-input-file.
[native-inputs]: Delete labels.
[inputs]: Replace gtk+ with gtk.  Add libadwaita.
This commit is contained in:
Maxim Cournoyer 2022-09-05 17:42:52 -04:00
parent 314444917b
commit b74f837118
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 25 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
gnu/packages/gnome.scm
View file

@ -2287,7 +2287,7 @@ The gnome-about program helps find which version of GNOME is installed.")
(define-public gnome-font-viewer (define-public gnome-font-viewer
(package (package
(name "gnome-font-viewer") (name "gnome-font-viewer")
(version "40.0") (version "42.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/gnome-font-viewer/" (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
@ -2295,33 +2295,34 @@ The gnome-about program helps find which version of GNOME is installed.")
"/gnome-font-viewer-" version ".tar.xz")) "/gnome-font-viewer-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0hpyi0sz3gcqqs9lkwyk8b6hr39m3n27432x98kxr436jj37dk6j")))) "1k4dhk5dmkpxb5xpr9vrl7k2fdpi2fidzni1l2hhb891zzgvi8ng"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:meson ,meson-0.60 (list
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-post-install-script (add-after 'unpack 'patch-post-install-script
(lambda _ (lambda _
(substitute* "meson-postinstall.sh" (substitute* "meson-postinstall.sh"
(("update-desktop-database") (which "true"))) (("update-desktop-database") (which "true")))))
#t)) (add-after 'install 'patch-thumbnailer
(add-after 'install 'patch-thumbnailer (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (substitute*
(let ((out (assoc-ref outputs "out"))) (search-input-file
(substitute* outputs "share/thumbnailers/gnome-font-viewer.thumbnailer")
(string-append (("gnome-thumbnail-font")
out (search-input-file outputs "bin/gnome-thumbnail-font"))))))))
"/share/thumbnailers/gnome-font-viewer.thumbnailer")
(("gnome-thumbnail-font")
(string-append out "/bin/gnome-thumbnail-font"))))
#t)))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) (list gettext-minimal
("glib:bin" ,glib "bin") `(,glib "bin")
("pkg-config" ,pkg-config))) pkg-config))
(inputs (inputs
(list glib gnome-desktop gtk+ libhandy libxml2)) (list glib
gnome-desktop
gtk
libadwaita
libhandy
libxml2))
(home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer") (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
(synopsis "GNOME Fonts") (synopsis "GNOME Fonts")
(description "Application to show you the fonts installed on your computer (description "Application to show you the fonts installed on your computer