From d55506fe6181b2e32d4ed940c6a7b44fafc1d66c Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 10 Nov 2022 08:48:30 -0600 Subject: Add: user list to explore page --- explore.lisp | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) (limited to 'explore.lisp') 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"))) -- cgit v1.2.3