diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-25 09:47:40 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-25 09:47:40 -0500 |
| commit | 89bf6defc5cbe6c049b9901950859fcda4f63f7c (patch) | |
| tree | 2d91ed2d53dd5dfa1417d9a6a8963007fc7ee2d5 | |
| parent | 8f7a582c90eb6a879deeb39658dd9f7de3b31149 (diff) | |
Refactor: getting track-specific title when available
| -rw-r--r-- | downloader.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/downloader.lisp b/downloader.lisp index 3142277..9f9a3a5 100644 --- a/downloader.lisp +++ b/downloader.lisp @@ -39,6 +39,7 @@ a file and whose CDR is a PLIST of attributes to pass to (make-instance 'track ...)" (with-plist ((title :|title|) + (track-title :|track|) (album :|album|) (codec :|acodec|) (artist :|artist|) @@ -49,7 +50,7 @@ (with-plist ((url :|url|)) (first thumbs) (list :source source - :title title + :title (or track-title title) :album album :codec codec :artist artist |