70/78: gnu: emacs-yeetube: Update to 2.1.2.

[guix-commits]

sharlatan pushed a commit to branch go-team
in repository guix.

commit 09cdbb76e5c4a095f4cce6a4172fedf9a543c8c2
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Thu Feb 22 15:38:47 2024 +0100

    gnu: emacs-yeetube: Update to 2.1.2.
    
    * gnu/packages/emacs-xyz.scm (emacs-yeetube): Update to 2.1.2.
    [inputs]: Add TORSOCKS.
    [arguments]<#:phases>: Set location for "torsocks" executable.  Split
    LOCATE-BINARIES phase for clarity.
    
    Change-Id: Idb209a73848938b577d0bfbc56d13d153f9cafb3
---
 gnu/packages/emacs-xyz.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 9613e8982c..cee7247e48 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -267,6 +267,7 @@
   #:use-module (gnu packages haskell-xyz)
   #:use-module (gnu packages wordnet)
   #:use-module (gnu packages photo)
+  #:use-module (gnu packages tor)
   #:use-module (gnu packages uml)
   #:use-module (gnu packages finance)
   #:use-module (gnu packages ocaml)
@@ -28588,7 +28589,7 @@ and comments.")
 (define-public emacs-yeetube
   (package
     (name "emacs-yeetube")
-    (version "2.0.9")
+    (version "2.1.2")
     (source
      (origin
        (method git-fetch)
@@ -28597,7 +28598,7 @@ and comments.")
              (commit version)))
        (sha256
         (base32
-         "17475zkvhj7yc3sxv0snmvxf84mkl30l78s28gzzm3j15p806cbd"))
+         "0c2iq6rb179zh9qbw7prxsjbiz77j060pj75s82wbbz5xjavzgp5"))
        (file-name (git-file-name name version))))
     (build-system emacs-build-system)
     (arguments
@@ -28611,10 +28612,14 @@ and comments.")
                  (search-input-file inputs "/bin/yt-dlp")))
               (emacs-substitute-variables "yeetube-mpv.el"
                 ("yeetube-mpv-path"
-                 (search-input-file inputs "/bin/mpv")))
+                 (search-input-file inputs "/bin/mpv"))
+                ("yeetube-mpv-torsocks"
+                 (search-input-file inputs "/bin/torsocks")))))
+          (add-after 'unpack 'relax-check
+            (lambda _
               (substitute* "yeetube-mpv.el"
                 (("\\(yeetube-mpv-check\\)") "")))))))
-    (inputs (list mpv yt-dlp))
+    (inputs (list mpv torsocks yt-dlp))
     (propagated-inputs (list emacs-compat))
     (home-page "https://thanosapollo.com/blog/yeetube/";)
     (synopsis "Youtube and Invidious front-end for Emacs")