From bf7a9f9ca0d20fb1431d234c6dae429a723f121e Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Thu, 18 Jul 2024 15:29:21 +0300
Subject: packages: emacs: Add emacs-yeetube.

* New variable: emacs-yeetube.
---
 hecate/packages/emacs.scm | 43 ++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 42 insertions(+), 1 deletion(-)

diff --git a/hecate/packages/emacs.scm b/hecate/packages/emacs.scm
index 89a5746..e522540 100644
--- a/hecate/packages/emacs.scm
+++ b/hecate/packages/emacs.scm
@@ -66,7 +66,6 @@
 tailscale command and it's subcommands.")
       (license license:gpl3+))))
 
-
 (define-public emacs-0x0
   (let ((commit "04f95142b25d8bb701f239539176df6617dcd982")
         (revision "0"))
@@ -116,3 +115,45 @@ at spaced intervals based on the success or failure in recalling the answer to
 each question.")
       (license license:gpl3+))))
 
+(define-public emacs-yeetube
+  (let ((commit "5c0a3efd2fb5cc25a6a90741ad198e31fdb15640"))
+    (package
+      (name "emacs-yeetube")
+      (version "2.1.7")
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.thanosapollo.org/yeetube")
+               (commit commit)))
+         (sha256
+          (base32
+           "0a3pm8cz6yl5s2xnbnjvdwm8mf5hyman419xl4fyyfgwy6vrxp70"))
+         (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)
+                (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")))))))))
+      (inputs (list mpv torsocks yt-dlp))
+      (propagated-inputs (list emacs-compat))
+      (home-page "https://thanosapollo.org/projects/yeetube/")
+      (synopsis "Youtube front-end for Emacs")
+      (description
+       "This package provides the ability to scrape YouTube, with the results
+displayed in a tabulated list format.  The videos can be opened with a user-defined
+video player (by default @command{mpv}) or downloaded using @command{yt-dlp}.
+This package also includes a minimal @code{yt-dlp} wrapper.")
+      (license license:gpl3+))))
-- 
cgit v1.2.3