02/02: gnu: xterm: Fix uxterm in pure environments.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit fcb122b4ed3f8e7fde815a843338921e5d8302b0
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Mar 14 12:42:44 2021 +0100

    gnu: xterm: Fix uxterm in pure environments.
    
    * gnu/packages/xorg.scm (xterm)[arguments]: Add a 'patch-file-names
    phase.
---
 gnu/packages/xorg.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 28ee64b..0aa4411 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -6087,7 +6087,19 @@ to answer a question.  Xmessage can also exit after a 
specified time.")
      '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
                            "--enable-i18n" "--enable-doublechars"
                            "--enable-luit" "--enable-mini-luit")
-       #:tests? #f))
+       #:tests? #f                      ; no test suite
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'build 'patch-file-names
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (substitute* "uxterm"
+                 (("([ `\\|])(sh|sed|awk|xmessage) " _ prefix command)
+                  (string-append prefix (which command) " "))
+                 (("(`|\"|LANG=C )(locale) " _ prefix command)
+                  (string-append prefix (which command) " "))
+                 (("=xterm")
+                  (string-append "=" out "/bin/xterm")))))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs