diff options
Diffstat (limited to 'vampire.lisp')
| -rw-r--r-- | vampire.lisp | 25 |
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) |