Rem+Add: delete old code; add explore to asd;

1 files changed, 1 insertions, 52 deletions

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)