04/13: gnu: blueprint-compiler: Wrap GUIX_PYTHONPATH and GI_TYPELIB_PATH.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit a70372b4aa3108d08841c713d150c5a8029f7c62
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Sat Sep 17 18:32:41 2022 +0200

    gnu: blueprint-compiler: Wrap GUIX_PYTHONPATH and GI_TYPELIB_PATH.
    
    * gnu/packages/gnome.scm (blueprint-compiler)[arguments]: Add
    python-build-system's wrap phase, as well as a phase for GI_TYPELIB_PATH.
---
 gnu/packages/gnome.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 992f148ccb..d8b3692b80 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -3276,6 +3276,25 @@ the GNOME desktop environment.")
                (base32
                 "0hj7f4xhwjc4x32r3lswwclbw37fw3spy806g4plkmym25hz4ydy"))))
     (build-system meson-build-system)
+    (arguments
+     (list
+      #:imported-modules
+      `(,@%meson-build-system-modules
+        (guix build python-build-system))
+      #:modules
+      `((guix build meson-build-system)
+        ((guix build python-build-system) #:prefix python:)
+        (guix build utils))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'wrap 'wrap-python
+            (assoc-ref python:%standard-phases 'wrap))
+          (add-after 'wrap-python 'wrap-gi
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((out               (assoc-ref outputs "out"))
+                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
+                (wrap-program (string-append out "/bin/blueprint-compiler")
+                  `("GI_TYPELIB_PATH" ":" suffix (,gi-typelib-path)))))))))
     (native-inputs (list gtk python-pygobject python))
     (inputs (list python))
     (synopsis "Template markup language")