diff options
| -rw-r--r-- | explore.lisp | 21 |
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"))) |