From 89bf6defc5cbe6c049b9901950859fcda4f63f7c Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 09:47:40 -0500
Subject: Refactor: getting track-specific title when available

---
 downloader.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'downloader.lisp')

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
-- 
cgit v1.2.3