guix_mirror_bot pushed a commit to branch emacs-team
in repository guix.
commit 6ccd0fe15c4629eceb16c7fb75b5caecd8cc3ecb
Author: Nicolas Graves <ngra...@ngraves.fr>
AuthorDate: Sun May 18 10:16:18 2025 +0200
gnu: emacs-everywhere: Improve style.
* gnu/packages/emacs-xyz.scm (emacs-everywhere):
[arguments]<phases>: Factorize 'patch-exec-paths substitution.
Signed-off-by: Ian Eure <i...@retrospec.tv>
---
gnu/packages/emacs-xyz.scm | 18 +++---------------
1 file changed, 3 insertions(+), 15 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 7e675ee138..e0d7a8d427 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -37413,21 +37413,9 @@ Emacs windows and tmux panes.")
(add-after 'unpack 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "emacs-everywhere.el"
- (("\"xclip\"")
- (string-append "\""
- (search-input-file inputs "/bin/xclip")
- "\""))
- (("\"xdotool\"")
- (string-append "\""
- (search-input-file inputs "/bin/xdotool")
- "\""))
- (("\"xprop\"")
- (string-append "\""
- (search-input-file inputs "/bin/xprop")
- "\""))
- (("\"xwininfo\"")
- (string-append "\""
- (search-input-file inputs "/bin/xwininfo")
+ (("\"(xclip|xdotool|xprop|xwininfo)\"" all binary)
+ (string-append "\"" (search-input-file
+ inputs (string-append "bin/" binary))
"\""))))))))
(inputs (list xclip xdotool xprop xwininfo))
(build-system emacs-build-system)
