From e0d377e0810e8899f79040f1db9455127df5f16b Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 2 Nov 2022 11:06:15 -0500
Subject: Modify: downloder will only download the first track of playlists

---
 downloader.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'downloader.lisp')

diff --git a/downloader.lisp b/downloader.lisp
index 9f9a3a5..e9b8ffb 100644
--- a/downloader.lisp
+++ b/downloader.lisp
@@ -66,7 +66,7 @@
            (trackinfo-file
              (trackinfo-file tmpdir tmpname)))
       (uiop:run-program 
-       (format nil "youtube-dl --write-info-json -x -o \"~a/~a.%(ext)s\" ~a"
+       (format nil "youtube-dl --playlist-end 1 --write-info-json -x -o \"~a/~a.%(ext)s\" '~a'"
                tmpdir tmpname url))
       (let* ((info
                (trackinfo trackinfo-file))
-- 
cgit v1.2.3