From 45c122f4df54d926e8c62ff94dfb1a6779f8370b Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 26 Oct 2022 14:30:38 -0500 Subject: Fix: dom manip in fetch track callback --- playlist.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'playlist.lisp') diff --git a/playlist.lisp b/playlist.lisp index 503c69a..a91da0d 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -250,11 +250,12 @@ (set-on-ended audio 'advance-now-playing) (set-on-click container (alambda (play-this-audio audio))))) -(defun create-track-listing (parent pl ctl) - (let ((ol (create-ordered-list parent))) - (setf (pl-tracks ctl) ol) - (dolist (track (playlist-tracks pl)) - (create-track-list-item ol track ctl)))) +(defun create-track-listing (parent pl) + (when-let (ctl (get-playlist-ctl parent)) + (let ((ol (create-ordered-list parent))) + (setf (pl-tracks ctl) ol) + (dolist (track (playlist-tracks pl)) + (create-track-list-item ol track ctl))))) (defun append-track-list-item (obj track) (when-let (ctl (get-playlist-ctl obj)) @@ -305,7 +306,6 @@ (div () (section (:h2 :content (playlist-title-content pl) :bind title-elem)) (now-playing-display (ctl)) - (track-listing (pl ctl :bind tracks-elem)) + (track-listing (pl)) (new-track-form (pl))) - (setf (pl-title ctl) title-elem - (pl-tracks ctl) tracks-elem))))) + (setf (pl-title ctl) title-elem))))) -- cgit v1.2.3