From 5b7f0a952c8f156cafb73dee176485f989069773 Mon Sep 17 00:00:00 2001 From: Sergey Trofimov Date: Thu, 18 Dec 2025 18:31:57 +0100 Subject: [PATCH] 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 --- 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 14ad5a6146d04e00ec83cdb757766da971713e75..1c1f2b9e276f572a2d01b043186b6244448a1823 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/")