guix_mirror_bot pushed a commit to branch misc-world-rebuild in repository guix.
commit 9db6a3e39b326658df0341a4d1f4e6d4c356adbf Author: Nicolas Graves <[email protected]> AuthorDate: Tue Apr 14 01:48:21 2026 +0200 gnu: xterm: Improve style. * gnu/packages/xorg.scm (xterm)[arguments]: Run guix style. <#:phases>: Rewrite phase 'patch-file-names. [inputs]: Drop input labels. Change-Id: I86d1d94c42c16302fd3f5783218988ff8a2b82e3 Signed-off-by: Nguyễn Gia Phong <[email protected]> --- gnu/packages/xorg.scm | 64 +++++++++++++++++++++++++++------------------------ 1 file changed, 34 insertions(+), 30 deletions(-) diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 0056098d81..eb09caa3fa 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -6341,39 +6341,43 @@ to answer a question. Xmessage can also exit after a specified time.") (search-patches "xterm-370-explicit-xcursor.patch")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts" - "--enable-i18n" "--enable-doublechars" - "--enable-luit" "--enable-mini-luit" - "X_EXTRA_LIBS=-lXcursor") - #: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"))))))))) + (list + #:tests? #f ; no test suite + #:configure-flags + #~(list "--enable-wide-chars" + "--enable-load-vt-fonts" + "--enable-i18n" + "--enable-doublechars" + "--enable-luit" + "--enable-mini-luit" + "X_EXTRA_LIBS=-lXcursor") + #:phases + #~(modify-phases %standard-phases + (add-after 'build 'patch-file-names + (lambda _ + (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 "=" #$output "/bin/xterm")))))))) (native-inputs (list pkg-config)) (inputs - `(("luit" ,luit) - ("libXft" ,libxft) - ("fontconfig" ,fontconfig) - ("freetype" ,freetype) - ("ncurses" ,ncurses) - ("libICE" ,libice) - ("libSM" ,libsm) - ("libX11" ,libx11) - ("libXcursor" ,libxcursor) - ("libXext" ,libxext) - ("libXt" ,libxt) - ("xorgproto" ,xorgproto) - ("libXaw" ,libxaw))) + (list luit + libxft + fontconfig + freetype + ncurses + libice + libsm + libx11 + libxcursor + libxext + libxt + xorgproto + libxaw)) (home-page "https://invisible-island.net/xterm/";) (synopsis "Terminal emulator for the X Window System") (description
