02/02: gnu: gnome-font-viewer: Fix thumbnail generation.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 540893a8ccef41436a1c00ae268f74219f9ab220
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Jan 16 10:50:18 2021 +0000

    gnu: gnome-font-viewer: Fix thumbnail generation.
    
    Previously, thumbnail generation failed, as the gnome-thumbnail-font command
    couldn't be found. Using an absolute filename in the .thumbnailer file fixes
    this.
    
    Cached failures within .cache/thumbnails/fail/ or similar may need removing
    before the effect of this change can be seen.
    
    * gnu/packages/gnome.scm (gnome-font-viewer)[arguments]: Add 
patch-thumbnailer
    phase.
---
 gnu/packages/gnome.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index f4a98ab..e00f65a 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -2252,6 +2252,16 @@ and keep up to date translations of documentation.")
            (lambda _
              (substitute* "meson-postinstall.sh"
                (("update-desktop-database") (which "true")))
+             #t))
+         (add-after 'install 'patch-thumbnailer
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (substitute*
+                   (string-append
+                    out
+                    "/share/thumbnailers/gnome-font-viewer.thumbnailer")
+                 (("gnome-thumbnail-font")
+                  (string-append out "/bin/gnome-thumbnail-font"))))
              #t)))))
     (native-inputs
      `(("gettext" ,gettext-minimal)