01/03: gnu: sugar-typing-turtle-activity: Add setxkbmap to inputs.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 5e22f8962a737c52268034a70f2353f293bf20ee
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Feb 28 12:17:14 2023 +0100

    gnu: sugar-typing-turtle-activity: Add setxkbmap to inputs.
    
    * gnu/packages/sugar.scm (sugar-typing-turtle-activity)[inputs]: Add
    setxkbmap.
    [arguments]: Patch invocation of setxkbmap.
---
 gnu/packages/sugar.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/sugar.scm b/gnu/packages/sugar.scm
index 4e0ef24960..3c5b7e0a55 100644
--- a/gnu/packages/sugar.scm
+++ b/gnu/packages/sugar.scm
@@ -407,6 +407,11 @@ to provide users with easy access to documentation and 
manuals.")
       #:test-target "check"
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-reference-to-executables
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "keyboard.py"
+                (("setxkbmap")
+                 (search-input-file inputs "/bin/setxkbmap")))))
           (add-after 'unpack 'patch-launcher
             (lambda* (#:key inputs #:allow-other-keys)
               (substitute* "activity/activity.info"
@@ -419,6 +424,8 @@ to provide users with easy access to documentation and 
manuals.")
                       (string-append "--prefix=" #$output)))))))
     (native-inputs
      (list gettext-minimal sugar-toolkit-gtk3))
+    (inputs
+     (list setxkbmap))
     (home-page "https://help.sugarlabs.org/en/typing_turtle.html";)
     (synopsis "Learn typing")
     (description "Need some help typing?  In this activity for the Sugar