guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 5b7f0a952c8f156cafb73dee176485f989069773
Author: Sergey Trofimov <[email protected]>
AuthorDate: Thu Dec 18 18:31:57 2025 +0100
gnu: emacs-yeetube: Simplify locate-binaries phase.
* gnu/packages/emacs-xyz.scm (emacs-yeetube)
[arguments]<#:phases>{locate-binaries}: Reduce code duplication.
Change-Id: Ibe5ae19ec7877a81b80f28052680feab7fb154ab
Signed-off-by: Cayetano Santos <[email protected]>
---
gnu/packages/emacs-xyz.scm | 12 +++---------
1 file changed, 3 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 14ad5a6146..1c1f2b9e27 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -34167,15 +34167,9 @@ and comments.")
(add-after 'unpack 'locate-binaries
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "." "\\.el$")
- (("\\(executable-find \"mpv\"\\)")
- (format #f "~s"
- (search-input-file inputs "/bin/mpv")))
- (("\\(executable-find \"torsocks\"\\)")
- (format #f "~s"
- (search-input-file inputs "/bin/torsocks")))
- (("\\(executable-find \"yt-dlp\"\\)")
- (format #f "~s"
- (search-input-file inputs "/bin/yt-dlp")))))))))
+ (("\\(executable-find \"(mpv|torsocks|yt-dlp)\"\\)" all
program)
+ (format #f "~s" (search-input-file inputs
+ (string-append "/bin/"
program))))))))))
(inputs (list mpv torsocks yt-dlp))
(propagated-inputs (list emacs-compat))
(home-page "https://thanosapollo.org/projects/yeetube/";)
