diff options
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 41 |
1 files changed, 21 insertions, 20 deletions
diff --git a/playlist.lisp b/playlist.lisp index ad111bf..7c5a9b6 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -245,16 +245,17 @@ (span (:bind time)) (span (:content " / ")) (span (:bind dur))) - (button (:content "⏮" :bind back )) - (button (:content "⏵" :bind play )) - (button (:content "⏭" :bind forward ))) + (div (:class "controls") + (button (:content "⏮" :bind back )) + (button (:content "⏵" :bind play )) + (button (:content "⏭" :bind forward )))) (setf (np-title ctl) title (np-artist ctl) artist (np-thumb ctl) thumb (np-dur ctl) dur (np-time ctl) time (np-play ctl) play) - (setf (height thumb) "100px") + (setf (height thumb) "300px") (set-on-click back 'previous-now-playing) (set-on-click forward 'advance-now-playing) (set-on-click play 'toggle-now-playing))) @@ -420,22 +421,22 @@ (with-clog-create body (div () (navigation-header ()) - (div (:class "row") - (div () - (now-playing-display (ctl))) - (div () - (:span (:bind edit-indicator)) - (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))))) - (span (:content "by ") - (a (:link (url-to-user (playlist-user pl)) - :content (format nil "~a" (user-name (playlist-user pl)))))) - (p (:bind collaborators-elem)) - (track-listing (pl)))) - (div (:class "row") + (div (:class "player") + (now-playing-display (ctl)) + (div (:class "playlist-display") + (:span (:bind edit-indicator)) + (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))))) + (span (:content "by ") + (a (:link (url-to-user (playlist-user pl)) + :content (format nil "~a" (user-name (playlist-user pl)))))) + (p (:bind collaborators-elem)) + (track-listing (pl)))) + + (div (:class "row") (div () (new-track-form (pl)) (editor-managment (pl))))) |