diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-11-02 11:06:15 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-11-02 11:06:15 -0500 |
| commit | e0d377e0810e8899f79040f1db9455127df5f16b (patch) | |
| tree | 28b216d63fefb0fb0bcd7ea6f1d45e79ac868183 | |
| parent | 148057c4e13c3d4608db8e45193f8d7dd44836e2 (diff) | |
Modify: downloder will only download the first track of playlists
| -rw-r--r-- | downloader.lisp | 2 |
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)) |