aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-10 08:48:30 -0600
committerColin Okay <colin@cicadas.surf>2022-11-10 08:48:30 -0600
commitd55506fe6181b2e32d4ed940c6a7b44fafc1d66c (patch)
tree2f14d7abcbd611d2047a3c5c371aaaa7e74afae1
parentc3e2f343fd7b931c4a6b2b5b945b66a635f516b4 (diff)
Add: user list to explore page
-rw-r--r--explore.lisp21
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")))