02/02: gnu: sugar: Add metacity to inputs.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit ae2ecd04fc16577b7a7a7f1fa7ca15631a8a092f
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Feb 14 09:36:50 2023 +0100

    gnu: sugar: Add metacity to inputs.
    
    * gnu/packages/sugar.scm (sugar)[inputs]: Add metacity.
    [arguments]: Patch references to metacity executables.
---
 gnu/packages/sugar.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/packages/sugar.scm b/gnu/packages/sugar.scm
index c9b8433f01..d2df6be012 100644
--- a/gnu/packages/sugar.scm
+++ b/gnu/packages/sugar.scm
@@ -80,6 +80,11 @@
               (substitute* "bin/sugar.in"
                 (("exec python3")
                  (string-append "exec " (which "python3"))))
+              (substitute* "src/jarabe/main.py"
+                (("'metacity'")
+                 (string-append "'" (search-input-file inputs "/bin/metacity") 
"'"))
+                (("'metacity-message")
+                 (string-append "'" (search-input-file inputs 
"/bin/metacity-message"))))
               (substitute* "extensions/cpsection/datetime/model.py"
                 (("/usr/share/zoneinfo/zone.tab")
                  (search-input-file inputs "/share/zoneinfo/zone.tab")))
@@ -111,6 +116,7 @@
                (find-files (string-append #$output "/bin") "^sugar.*")))))))
     (inputs
      (list gtk+
+           metacity
            mobile-broadband-provider-info
            python
            sugar-artwork