From 23873b455554ba40f79be561b5150b4526a19d3f Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 18 May 2024 07:50:16 -0700 Subject: Remove: Purged CLOG --- explore.lisp | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 explore.lisp (limited to 'explore.lisp') diff --git a/explore.lisp b/explore.lisp deleted file mode 100644 index 5c99fb8..0000000 --- a/explore.lisp +++ /dev/null @@ -1,46 +0,0 @@ -;;; explore.lisp - -(in-package :vampire) - -(defun create-media-search-area (parent) - (with-clog-create parent - (p (:content "media search area")))) - -(defun create-playlist-explore-card (parent pl) - (with-clog-create parent - (div (:bind card :class "card") - (a (:link (url-to-playlist pl) ) - (img (:bind thumb :class "thumb")) - (br ()) - (span (:content (playlist-title pl))) - (span (:content " -- ")) - (span (:content (secs-to-hms (playlist-duration pl)))))) - (when-let (track (first (playlist-tracks pl))) - (setf (url-src thumb) (or (track-thumb-url track) ""))))) - -(defun create-recent-playlists-area (parent) - (let* ((container (create-div parent :class "row"))) - (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 ()) - (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 ())))))) -- cgit v1.2.3