From 5b0c8784305b9a2bf34816b264a8d9c6968d0bcc Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 28 Oct 2022 06:52:51 -0500
Subject: Rem+Add: delete old code; add explore to asd;

---
 vampire.asd  |  1 +
 vampire.lisp | 53 +----------------------------------------------------
 2 files changed, 2 insertions(+), 52 deletions(-)

diff --git a/vampire.asd b/vampire.asd
index 2861383..ccb1df3 100644
--- a/vampire.asd
+++ b/vampire.asd
@@ -21,6 +21,7 @@
                (:file "session")
                (:file "navigation")
                (:file "new-account")
+               (:file "explore")
                (:file "login")
                (:file "home")
                (:file "playlist")
diff --git a/vampire.lisp b/vampire.lisp
index b620a2b..f149255 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -17,58 +17,7 @@
    passing as the keyword arguments to (MAKE-INSTANCE 'CONFIG ...)"
   (apply #'make-instance 'config (read-from-file path)))
 
-;;; RESOURCE MODEL
-
-
-
-;;; TRANSACTIONS
-
-
-
-;;; CLIENT
-
-
-
-
-
-
-
-
-
-(defun create-new-playlist-form (parent &rest args)
-  (declare (ignorable args))
-  (with-clog-create parent
-      (div ()
-           (section (:h2 :content "Create New Playlist"))
-           (label (:content "Playlist Title:"))
-           (form-element (:text :bind pl-title))
-           (button (:content "Create" :bind btn)))
-    (set-on-click
-     btn
-     (thunk*
-       (new-playlist (session-user parent) :title (value pl-title))
-       (reload (location (connection-body parent)))))))
-
-(defun url-to-playlist (pl location)
-  (format nil "~a//~a/playlist/~a"
-          (protocol location)
-          (host location)
-          (key pl)))
-
-(defun create-playlist-listing (parent &rest args)
-  (declare (ignorable args))
-  (dolist (pl (user-playlists (session-user parent)))
-    (let ((url
-            (url-to-playlist pl (location (connection-body parent)))))
-      (with-clog-create parent
-          (div ()
-               (section (:h4)
-                        (a (:link url :content (playlist-title pl) :bind pl-link))))
-        (set-on-click
-         pl-link
-         (thunk*
-           (setf (url (location (connection-body parent)))
-                 url)))))))
+;;; MAIN 
 
 (defun main (body)
   (if (session-user body)
-- 
cgit v1.2.3