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 <csantosb@inventati.org>

1 files changed, 3 insertions, 9 deletions

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 14ad5a6146d..1c1f2b9e276 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/")