16/23: gnu: sx: Don't propagate xauth.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ddec076b963a80056fc5af3f0c74dd8870ae491e
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Oct 3 16:30:53 2021 +0200

    gnu: sx: Don't propagate xauth.
    
    * 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 9646f55..68f856f 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")