From 3a30045c509a9627e15abc9916549df8f3c7b268 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sun, 4 Dec 2022 21:21:42 -0600
Subject: Add: minor improvement of mobile [style]

Add: code review feedback

Fix: unbalanced paren

Fix: all the other stuff
---
 playlist.lisp | 41 +++++++++++++++++++++--------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

(limited to 'playlist.lisp')

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)))))
-- 
cgit v1.2.3