From 59ef52ccb296da012e23a2715b7ac40d31665061 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Thu, 22 Feb 2024 15:38:47 +0100
Subject: [PATCH] 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 9613e8982cab256dfd33b1aba92d65ff4d8093ce..cee7247e48df71b94c1bef62ef92d46102c56f0d 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")