Tweak: styles

1 files changed, 4 insertions, 4 deletions

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)))))