From ddec076b963a80056fc5af3f0c74dd8870ae491e Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 3 Oct 2021 16:30:53 +0200
Subject: gnu: sx: Don't propagate xauth.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/xdisorg.scm (sx)[arguments]: Patch sx to refer to xauth.
[propagated-inputs]: Move xauth from here…
[inputs]: …to here.
---
 gnu/packages/xdisorg.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 9646f55b99..68f856f81f 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -2869,8 +2869,13 @@ and execute @file{.desktop} files of the Application type.")
          (list (string-append "PREFIX=" out)))
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'refer-to-xauth
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "sx"
+               (("\\bxauth\\b" command)
+                (string-append (assoc-ref inputs "xauth") "/bin/" command)))))
          (delete 'configure))))         ; no configure script
-    (propagated-inputs
+    (inputs
      `(("xauth" ,xauth)))
     (home-page "https://github.com/Earnestly/sx")
     (synopsis "Start an xorg server")
-- 
cgit v1.2.3