From e7dfe39add9ba4987a08d10aa29da44cdeaea8b7 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 29 Oct 2022 13:21:28 -0500 Subject: Tweak: styles --- playlist.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'playlist.lisp') diff --git a/playlist.lisp b/playlist.lisp index 10ba039..c8c3bc7 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -228,7 +228,7 @@ (defun create-now-playing-display (parent ctl) (with-clog-create parent - (div () + (div (:class "now-playing") (section (:h3 :content "Now Playing")) (img (:bind thumb)) (section (:h4) @@ -268,12 +268,12 @@ (defun create-track-list-item (list track ctl) (with-clog-create list - (list-item (:bind container ) + (list-item (:bind container) (div (:bind edit-controls) (button (:content "delete " :bind delbtn)) (button (:content "↓" :bind downbtn)) (button (:content "↑" :bind upbtn))) - (div (:bind item ) + (div (:bind item :class "track-list-item") (span (:content (track-listing-line track))) (span (:content " -- ")) (span (:content (secs-to-hms (or (track-duration track) 0))))) @@ -300,7 +300,7 @@ (defun create-track-listing (parent pl) (when-let (ctl (cur-playlist-ctl parent)) (create-section parent :h3 :content "TRACKS") - (let ((ol (create-ordered-list parent ))) + (let ((ol (create-ordered-list parent :class "playlist-tracks"))) (setf (pl-tracks ctl) ol) (dolist (track (playlist-tracks pl)) (create-track-list-item ol track ctl))))) -- cgit v1.2.3