From b13e6e627cbe7631f7965833ae5f9bc5616c6145 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Mon, 24 Nov 2025 14:24:35 +0000
Subject: [PATCH] gnu: autokey: Fix wrapping.

Python dependencies don't have to be wrapped as they are search via
GUIX_PYTHONPATH.

* gnu/packages/python-xyz.scm (autokey)[arguments] <phases>: Rename
'wrap-autokey to 'wrap-executable and set it after 'wrap phase; switch
to THIS-PACKAGE-INPUT, and keep just zenity with wmctrl; add
"autokey-qt" and "autokey-run" to proram list.

Change-Id: Ie89d525fce1ba1feced78173a5b9c498535ba539
---
 gnu/packages/python-xyz.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index dd83d7a12f6273266b950f3ae6c438e1d7736989..06d863438782867f3f8279a3b5743df5206e0a4a 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -8658,15 +8658,14 @@ structure for Python.")
           ;; Use 'prefix' instead of '=' to allow the user to use additional
           ;; GI paths from their autokey scripts.  GUIX_PYTHONPATH is already
           ;; wrapped with prefix in python-build-system's wrap.
-          (add-before 'wrap 'wrap-autokey
+          (add-after 'wrap 'wrap-executable
             (lambda* (#:key inputs #:allow-other-keys)
               (let ((gi-typelib-path (getenv "GI_TYPELIB_PATH"))
-                    (path (map dirname
-                               ;; see lib/autokey/UI_common_functions.py
-                               (list (search-input-file inputs "/bin/wmctrl")
-                                     (search-input-file inputs "/bin/zenity")
-                                     (search-input-file inputs "/bin/ipython3")
-                                     (search-input-file inputs "/bin/python3")))))
+                    ;; see lib/autokey/UI_common_functions.py
+                    (path (list (string-append #$(this-package-input "wmctrl")
+                                               "/bin")
+                                (string-append #$(this-package-input "zenity")
+                                               "/bin"))))
                 (for-each
                  (lambda (program)
                    (wrap-program program
@@ -8675,6 +8674,8 @@ structure for Python.")
                  (map (lambda (name)
                         (string-append #$output "/bin/" name))
                       '("autokey-gtk"
+                        "autokey-qt"
+                        "autokey-run"
                         "autokey-shell"))))))
           (add-before 'check 'setup-env-vars
             (lambda _