Remove: Purged CLOG

1 files changed, 0 insertions, 46 deletions

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 ()))))))