From b1b3fcf39cdf7bae870d2dbc8eea172ac806f6b2 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 26 Oct 2022 11:44:46 -0500 Subject: Fix+Move: separate playlist module --- vampire.lisp | 25 +++---------------------- 1 file changed, 3 insertions(+), 22 deletions(-) (limited to 'vampire.lisp') 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) -- cgit v1.2.3