diff options
| author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2022-12-04 21:21:42 -0600 |
|---|---|---|
| committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2022-12-05 21:21:44 -0600 |
| commit | 3a30045c509a9627e15abc9916549df8f3c7b268 (patch) | |
| tree | dfeef3a253610724e03786a1bf034d3da36b84b4 /playlist.lisp | |
| parent | 7dda4c7a59a89729fbe1da145e51bfba664cfb46 (diff) | |
Add: minor improvement of mobile [style]
Add: code review feedback
Fix: unbalanced paren
Fix: all the other stuff
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))))) |