From 2c9d481c9098e18accd179f11edc1164e75f228e Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Tue, 2 Feb 2021 15:47:21 +0100
Subject: gnu: xbindkeys: Refer to xbindkeys in xbindkeys_show.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/xdisorg.scm (xbindkeys)[arguments]: Add a
‘patch-references’  phase.
---
 gnu/packages/xdisorg.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'gnu')

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 4d1dc8391c..6b4d3f4a8a 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -965,7 +965,14 @@ transparent text on your screen.")
              (substitute* "xbindkeys_show"
                (("^#!.*|^exec wish.*") "")
                (("^# \\\\") (string-append "#!" (which "wish"))))
-             #t)))))
+             #t))
+         (add-after 'unpack 'patch-references
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* "xbindkeys_show"
+                 (("\"(xbindkeys)\"" _ command)
+                  (format #f "\"~a/bin/~a\"" out command)))
+               #t))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs
-- 
cgit 1.4.1