yeetube-download-video: Add optional arg for url

1 files changed, 6 insertions, 3 deletions

diff --git a/yeetube.el b/yeetube.el
index b6828d0..6780b8b 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -563,10 +563,13 @@ Optional values:
     (call-process-shell-command command nil 0)))
 
 ;;;###autoload
-(defun yeetube-download-video ()
-  "Download entry at point in *yeetube* buffer with yt-dlp."
+(defun yeetube-download-video (&optional url)
+  "Download entry at point in *yeetube* buffer with yt-dlp.
+
+Content will be downloaded at `yeetube-download-directory'.
+Optionally, provide custom own URL."
   (interactive)
-  (let ((url (yeetube-get-url)))
+  (let ((url (or url (yeetube-get-url))))
     (when (string-prefix-p "http" url)
       (let ((default-directory yeetube-download-directory))
         (yeetube-download--ytdlp url nil yeetube-download-audio-format)