04/06: gnu: gnome-characters: Wrap program to provide the necessary Typelib files.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5757c641f2c547a45cb65f00a57af971381e6a42
Author: address@hidden <address@hidden>
AuthorDate: Wed Jan 1 13:59:49 2020 +0300

    gnu: gnome-characters: Wrap program to provide the necessary Typelib files.
    
    * gnu/packages/gnome.scm (gnome-characters)[arguments]: Add #:phases
    with a 'wrap' phase.
    [inputs]: Add GNOME-DESKTOP.
    
    Co-authored-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/gnome.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index ec06e6d..e71cc2f 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -548,7 +548,18 @@ to other formats.")
         (base32
          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
     (build-system meson-build-system)
-    (arguments '(#:glib-or-gtk? #t))
+    (arguments
+     `(#:glib-or-gtk? #t
+       #:phases (modify-phases %standard-phases
+                  (add-after 'install 'wrap
+                    (lambda* (#:key outputs #:allow-other-keys)
+                      ;; GNOME Characters needs Typelib files from GTK and
+                      ;; gnome-desktop.
+                      (wrap-program (string-append (assoc-ref outputs "out")
+                                                   "/bin/gnome-characters")
+                        `("GI_TYPELIB_PATH" ":" prefix
+                          (,(getenv "GI_TYPELIB_PATH"))))
+                      #t)))))
     (native-inputs
      `(("gettext" ,gettext-minimal)
        ("glib:bin" ,glib "bin")
@@ -558,7 +569,8 @@ to other formats.")
     (inputs
      `(("gjs" ,gjs)
        ("gtk+" ,gtk+)
-       ("libunistring" ,libunistring)))
+       ("libunistring" ,libunistring)
+       ("gnome-desktop" ,gnome-desktop)))
     (home-page "https://wiki.gnome.org/Apps/CharacterMap";)
     (synopsis "Find and insert unusual characters")
     (description "Characters is a simple utility application to find