281/401: gnu: gnome-font-viewer: Update package definition.

[guix-commits]

dannym pushed a commit to branch wip-desktop
in repository guix.

commit de22f4071932955711c8120a263512bbca7d7258
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Wed Aug 5 14:13:37 2020 -0400

    gnu: gnome-font-viewer: Update package definition.
    
    * gnu/packages/gnome.scm (gnome-font-viewer) [version]: Update to
    3.34.0.
    [arguments]<#:glib-or-gtk?>: New argument.
    <#:phases>['patch-post-install-script]: Remove phase.
    [native-inputs]: Add desktop-file-utils.
    [inputs]: Add fontconfig, freetype and harfbuzz.
    [synopsis]: Modify.
    [description]: Modify.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/gnome.scm | 48 ++++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index f7883d5..5e683df 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -2585,37 +2585,37 @@ dealing with storage devices.")
 (define-public gnome-font-viewer
   (package
     (name "gnome-font-viewer")
-    (version "3.30.0")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
-                                  (version-major+minor version)
-                                  "/gnome-font-viewer-" version ".tar.xz"))
-              (sha256
-               (base32
-                "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
+    (version "3.34.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri
+        (string-append "mirror://gnome/sources/gnome-font-viewer/"
+                       (version-major+minor version)
+                       "/gnome-font-viewer-" version ".tar.xz"))
+       (sha256
+        (base32 "12xrsqwmvid7hksiw4zhj4jd1qwxn8w0czskbq4yqfprwn1havxa"))))
     (build-system meson-build-system)
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-post-install-script
-           (lambda _
-             (substitute* "meson-postinstall.sh"
-               (("update-desktop-database") (which "true")))
-             #t)))))
+     `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
     (native-inputs
-     `(("gettext" ,gettext-minimal)
+     `(("desktop-file-utils" ,desktop-file-utils)
+       ("gettext" ,gettext-minimal)
        ("glib:bin" ,glib "bin")
-       ("pkg-config" ,pkg-config)))
+       ("pkg-config" ,pkg-config)
+       ("xmllint" ,libxml2)))
     (inputs
-     `(("glib" ,glib)
+     `(("fontconfig" ,fontconfig)
+       ("freetype" ,freetype)
+       ("glib" ,glib)
        ("gnome-desktop" ,gnome-desktop)
-       ("gtk+" ,gtk+)))
+       ("gtk+" ,gtk+)
+       ("harfbuzz" ,harfbuzz)))
+    (synopsis "View fonts on your system")
+    (description "GNOME-Font-Viewer is an application to show you the fonts
+installed on your computer for your use as thumbnails.  Selecting any 
thumbnails
+shows the full view of how the font would look under various sizes.")
     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer";)
-    (synopsis "GNOME Fonts")
-    (description "Application to show you the fonts installed on your computer
-for your use as thumbnails.  Selecting any thumbnails shows the full view of 
how
-the font would look under various sizes.")
     (license license:gpl2+)))
 
 (define-public gcr