~ruther/guix-local: gnu: emacs-yeetube: Simplify locate-binaries phase.

5b7f0a952c8f156cafb73dee176485f989069773 — Sergey Trofimov 4 months ago 724d0cc

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>

patch browse .tar.gz

1 files changed, 3 insertions(+), 9 deletions(-)

M gnu/packages/emacs-xyz.scm

M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +3 -9

@@ 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/")