Add: user list to explore page

1 files changed, 18 insertions, 3 deletions

diff --git a/explore.lisp b/explore.lisp
index dcaeb1e..1774a2d 100644
--- a/explore.lisp
+++ b/explore.lisp
@@ -25,11 +25,26 @@
     (dolist (pl (recent-playlists 100))
       (create-playlist-explore-card container pl))))
 
+(defun create-user-list (parent)
+  (with-clog-create parent
+      (unordered-list (:bind user-container))
+    (dolist (user (store-objects-with-class 'user))
+      (with-clog-create user-container 
+          (list-item () 
+                     (a (:link (url-to-user user)
+                         :content (format nil " ~a " (user-name user)))))))))
+
 (defun explore-page (body)
   (include-style body)
   (with-clog-create body
       (div ()
            (navigation-header ())
-                                        ;(media-search-area ())
-           (section (:h2 :content "Recent Playlists" :class "center"))
-           (recent-playlists-area ()))))
+           (div (:class "row")
+                (div (:bind playlist-area)
+                     (section (:h2 :content "Recent Playlists" :class "center"))
+                     (recent-playlists-area ()))
+                (div ()
+                     (section (:h3 :content "Who uses this?" :class "center"))
+                     (user-list ()))))
+    (setf (maximum-width playlist-area) "80%"
+          (minimum-width playlist-area) "500px")))