aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-25 09:47:40 -0500
committerColin Okay <colin@cicadas.surf>2022-10-25 09:47:40 -0500
commit89bf6defc5cbe6c049b9901950859fcda4f63f7c (patch)
tree2d91ed2d53dd5dfa1417d9a6a8963007fc7ee2d5
parent8f7a582c90eb6a879deeb39658dd9f7de3b31149 (diff)
Refactor: getting track-specific title when available
-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