diff options
| -rw-r--r-- | explore.lisp | 1 | ||||
| -rw-r--r-- | home.lisp | 29 | ||||
| -rw-r--r-- | playlist.lisp | 5 |
3 files changed, 18 insertions, 17 deletions
diff --git a/explore.lisp b/explore.lisp index ca9cb8e..e2bc55c 100644 --- a/explore.lisp +++ b/explore.lisp @@ -11,6 +11,7 @@ (div (:bind card) (a (:link (url-to-playlist pl) ) (img (:bind thumb)) + (br ()) (span (:content (playlist-title pl))) (span (:content " -- ")) (span (:content (secs-to-hms (playlist-duration pl)))))) @@ -7,7 +7,7 @@ (defun create-new-playlist-form (parent) (with-clog-create parent (form () - (section (:h2 :content "Create New Playlist")) + (section (:h3 :content "Create New Playlist")) (label (:content "Playlist Title:")) (form-element (:text :bind pl-title)) (button (:content "Create" :bind btn))) @@ -23,18 +23,16 @@ (defun create-playlist-listing (parent) (dolist (pl (user-playlists (session-user parent))) - (let ((url - (url-to-playlist pl))) - (with-clog-create parent - (div (:bind pl-item) - (p () - (a (:link url :content (playlist-title pl))) - (button (:content "X" :bind btn)))) - (set-on-click - btn - (thunk* - (destroy-playlist pl) - (destroy pl-item))))))) + (with-clog-create parent + (div (:bind pl-item) + (div () + (playlist-explore-card (pl)) + (button (:content "delete" :bind btn)))) + (set-on-click + btn + (thunk* + (destroy-playlist pl) + (destroy pl-item)))))) (defun create-invite-list-item (invite-list invite) (with-clog-create invite-list @@ -84,9 +82,10 @@ (navigation-header ()) (div (:class "row") (div () - (p (:content (format nil "Welcome ~a" (user-name (session-user body))))) + (section (:pre :content (format nil "Welcome ~a" (user-name (session-user body))))) + (section (:h3 :content "Your Playlists")) + (div (:class "row") (playlist-listing ())) (new-playlist-form ()) - (playlist-listing ()) (invite-control ())))))) diff --git a/playlist.lisp b/playlist.lisp index c222395..4eaba3d 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -269,12 +269,13 @@ (defun create-track-list-item (list track ctl) (with-clog-create list (list-item (:bind container) + + (div (:bind item :class "track-list-item") + (section (:pre :content (track-listing-line track)))) (div (:bind edit-controls) (button (:content "delete " :bind delbtn)) (button (:content "↓" :bind downbtn)) (button (:content "↑" :bind upbtn))) - (div (:bind item :class "track-list-item") - (section (:pre :content (track-listing-line track)))) (audio (:source (media-url-path track) :controls nil :bind audio))) (let ((track-ctl (make-instance 'track-ctl |