Fix+Move: separate playlist module

1 files changed, 3 insertions, 22 deletions

diff --git a/vampire.lisp b/vampire.lisp
index 8ca4b79..eef75cc 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -19,27 +19,17 @@
 
 ;;; RESOURCE MODEL
 
-
 (defclass/bknr user (keyed)
   ((name :with :std "")
    (playlists :with :std (list))
    (pw pwhash :with)))
 
-;;; RESOURCE ACCESS OPERATIONS 
-
-
 ;;; TRANSACTIONS
 
-
-
 (defun new-user (&key name)
   (with-transaction ()
     (make-instance 'user :name name)))
 
-
-
-
-
 ;;; CLIENT
 
 (defparameter +user-key+ "vampire.userkey")
@@ -88,18 +78,9 @@
            (setf (url (location (connection-body parent)))
                  url)))))))
 
-(defun media-url-path (track)
-  (format nil "/media/~a.~a"
-          (pathname-name (track-file track))
-          (pathname-type (track-file track))))
-
-(defun track-listing-line (track)
-  (with-slots (artist title) track
-    (with-output-to-string (out)
-      (when artist
-        (princ artist out)
-        (princ " - " out))
-      (princ title out))))
+
+
+
 
 
 ;; (defun create-track-form (parent playlist &rest args)