From ab6100a59db311a79df4e113e5096b6ab8ae9bff Mon Sep 17 00:00:00 2001
From: Nicolas Graves <ngraves@ngraves.fr>
Date: Tue, 12 Aug 2025 14:41:38 +0200
Subject: [PATCH] gnu: emacs-ytdl: Replace youtube-dl input by yt-dlp.

* gnu/packages/emacs-xyz.scm (emacs-ytdl)
[arguments]: Rewrite using gexps.
<#:phases>: Replace youtube-dl by yt-dlp in phase 'configure.
[decription, inputs]: Replace youtube-dl by yt-dlp.

Change-Id: I36c6d9758187781a44b79cd736a8345114a5a166
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 gnu/packages/emacs-xyz.scm | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 5d3a5c9b261..9ccacb7e56f 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -32826,27 +32826,28 @@ can be queued at any time.")
           (base32 "0y62lkgsg19j05dpd6sp6zify8vq8xvpc8caqiy4rwi7p4ahacsf"))))
       (build-system emacs-build-system)
       (arguments
-       `(#:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'configure
-             (lambda* (#:key inputs #:allow-other-keys)
-               ;; .el is read-only in git.
-               (make-file-writable "ytdl.el")
-               ;; Specify the absolute file names of the various programs so
-               ;; that everything works out-of-the-box.
-               (emacs-substitute-variables "ytdl.el"
-                 ("ytdl-command"
-                  (search-input-file inputs "/bin/youtube-dl"))))))))
+       (list
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'configure
+              (lambda* (#:key inputs #:allow-other-keys)
+                ;; .el is read-only in git.
+                (make-file-writable "ytdl.el")
+                ;; Specify the absolute file names of the various programs so
+                ;; that everything works out-of-the-box.
+                (emacs-substitute-variables "ytdl.el"
+                  ("ytdl-command"
+                   (search-input-file inputs "/bin/yt-dlp"))))))))
       (inputs
-       (list youtube-dl))
+       (list yt-dlp))
       (propagated-inputs
        (list emacs-async emacs-dash))
       (home-page "https://gitlab.com/tuedachu/ytdl")
       (synopsis "Emacs interface for youtube-dl")
       (description
-       "This package manages a video download queue for @command{youtube-dl},
+       "This package manages a video download queue for @command{yt-dlp},
 which serves as the back end.  New videos can be queued at any time.  All
-youtube-dl backends are supported.  It is possible to create download profiles
+yt-dlp backends are supported.  It is possible to create download profiles
 depending on the downloaded URL.")
       (license license:gpl3+))))