aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--vampire.asd1
-rw-r--r--vampire.lisp53
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)