From cd12fa4e2051925eaa9833035fef019315c4b721 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Fri, 17 Jan 2025 14:05:11 +0800
Subject: [PATCH] gnu: solfege: Fix runtime error.

This fixes <https://issues.guix.gnu.org/75623>.

* gnu/packages/music.scm (solfege)[inputs]: Add python-pycairo.
[propagated-inputs]: Add timidity++.
[arguments]<wrap-program>: Wrap solfege with GI_TYPELIB_PATH.

Change-Id: I30b38cec5ded514b35aeccd3e2fb0f94b96308d9
---
 gnu/packages/music.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index eecee3990a..f3fbe76fff 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -2253,16 +2253,21 @@ (define-public solfege
           (add-after 'install 'wrap-program
             (lambda* (#:key outputs #:allow-other-keys)
               ;; Make sure 'solfege' runs with the correct PYTHONPATH.
-              (let ((path (getenv "GUIX_PYTHONPATH")))
+              (let ((python-path (getenv "GUIX_PYTHONPATH"))
+                    (typelib-path (getenv "GI_TYPELIB_PATH")))
                 (wrap-program (search-input-file outputs "bin/solfege")
-                  `("GUIX_PYTHONPATH" ":" prefix (,path)))))))))
+                  `("GUIX_PYTHONPATH" ":" prefix (,python-path))
+                  `("GI_TYPELIB_PATH" ":" prefix (,typelib-path)))))))))
     (inputs
      (list bash-minimal
            python-wrapper
+           python-pycairo
            python-pygobject
            gettext-minimal
            gtk+
            lilypond))
+    (propagated-inputs
+     (list timidity++))                 ; default player
     (native-inputs
      (list autoconf
            automake