From 8b526da8cd8c92ca0d68e62915bd8cf14df4f4cd Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 29 Oct 2022 13:04:47 -0500 Subject: Add: Basic style --- playlist.lisp | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) (limited to 'playlist.lisp') diff --git a/playlist.lisp b/playlist.lisp index 08c2bbb..10ba039 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -399,16 +399,20 @@ (with-clog-create body (div () (navigation-header ()) - (section (:h2) - (:span (:bind title-elem :content (playlist-title pl))) - (form-element (:text :bind input)) - (:span (:content " -- ")) - (:span (:bind dur-elem :content (secs-to-hms (playlist-duration pl))))) - - (now-playing-display (ctl)) - (track-listing (pl)) - (new-track-form (pl)) - (editor-managment (pl))) + (div (:class "row") + (div () + (now-playing-display (ctl))) + (div () + (section (:h2) + (:span (:bind title-elem :content (playlist-title pl))) + (form-element (:text :bind input)) + (:span (:content " -- ")) + (:span (:bind dur-elem :content (secs-to-hms (playlist-duration pl))))) + (track-listing (pl)))) + (div (:class "row") + (div () + (new-track-form (pl)) + (editor-managment (pl))))) (setf (pl-title ctl) title-elem (pl-dur ctl) dur-elem (display input) "none" -- cgit v1.2.3