41/42: gnu: emacs-yeetube: Use executables from inputs.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 761cc5ae232120e944f6afb9b91ee26e2205a969
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue Oct 3 22:00:02 2023 +0200

    gnu: emacs-yeetube: Use executables from inputs.
    
    * gnu/packages/emacs-xyz.scm (emacs-yeetube)[arguments]: Set locations for
    "mpv" and "yt-dlp" executables from the store instead of relying on 
`executable-find'.
---
 gnu/packages/emacs-xyz.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 418c14751f..0676b4c01f 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27932,6 +27932,18 @@ and comments.")
        "175yz46gql27y2v02apa1zyzgparzpgrsmw1mbb1nlx0cnf7an79"))
      (file-name (git-file-name name version))))
    (build-system emacs-build-system)
+   (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'locate-binaries
+            (lambda* (#:key inputs #:allow-other-keys)
+              (emacs-substitute-variables "yeetube.el"
+                ("yeetube-yt-dlp"
+                 (search-input-file inputs "/bin/yt-dlp")))
+              (substitute* "yeetube-mpv.el"
+                (("\\(executable-find \"mpv\"\\)")
+                 (search-input-file inputs "/bin/mpv"))))))))
    (inputs
     (list mpv yt-dlp))
    (home-page "https://thanosapollo.com/blog/yeetube/";)