aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-02 11:06:15 -0500
committerColin Okay <colin@cicadas.surf>2022-11-02 11:06:15 -0500
commite0d377e0810e8899f79040f1db9455127df5f16b (patch)
tree28b216d63fefb0fb0bcd7ea6f1d45e79ac868183
parent148057c4e13c3d4608db8e45193f8d7dd44836e2 (diff)
Modify: downloder will only download the first track of playlists
-rw-r--r--downloader.lisp2
1 files changed, 1 insertions, 1 deletions
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))