aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--downloader.lisp3
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