From f0eff7d9c69de2e6c7257b8d94e7deb7b89becdf Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 27 Oct 2022 06:57:19 -0500
Subject: Add+Move: user and model files, moved code into files

---
 playlist.lisp | 72 -----------------------------------------------------------
 1 file changed, 72 deletions(-)

(limited to 'playlist.lisp')

diff --git a/playlist.lisp b/playlist.lisp
index 64b03ef..82b796f 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -2,78 +2,6 @@
 
 (in-package :vampire)
 
-;;; MODEL
-
-(defclass/bknr playlist (keyed)
-  ((title :with :std (default-name "playlist"))
-   (tracks editors :with :std (list))
-   (cover-image :with :std nil :doc "A url to the cover of this album.")
-   (user :with
-         :std (error "A USER is required to have created the content."))))
-
-(defmethod initialize-instance :after ((pl playlist) &key)
-  (pushnew pl (user-playlists (playlist-user pl)) :test #'eq))
-
-(defclass/bknr track (keyed)
-  ((source file title artist album thumb-url duration codec :with)
-   (playlists :with :std (list) :doc "A list of playlists in which this track appears")))
-
-;;; OPERATIONS
-
-(defun playlist-duration (pl)
-  (reduce #'+
-          (playlist-tracks pl)
-          :key 'track-duration 
-          :initial-value 0))
-
-(defun add-track (tr pl &optional (n -1))
-  (setf (playlist-tracks pl)
-        (insert-nth tr n (playlist-tracks pl))))
-
-(defun remove-nth-from-playlist (pl n)
-  (multiple-value-bind (newlist track)
-      (remove-nth n (playlist-tracks pl) t) 
-    (setf (playlist-tracks pl) newlist
-          (track-playlists track) (delete pl (track-playlists track)
-                                          :test #'eq :count 1))))
-
-(defun track-with-source (source)
-  (find source (store-objects-with-class 'track) :test #'string-equal :key 'track-source))
-;;; TRANSACTIONS
-
-(defun append-track (pl tr)
-  (with-transaction ()
-    (add-track tr pl)))
-
-(defun delete-track-at (pl pos)
-  (when-let (tr (nth pos (playlist-tracks pl)))
-    (with-transaction ()
-      (setf (playlist-tracks pl)
-            (delete tr (playlist-tracks pl)))
-      t)))
-
-(defun swap-tracks (pl n m)
-  (unless (or (minusp (min m n))
-              (>= (max m n) (length (playlist-tracks pl)) ))
-    (with-transaction ()
-      (setf (playlist-tracks pl)
-            (nswap (playlist-tracks pl) n m)))))
-
-(defun new-track (file trackinfo)
-  "Trackinfo is a plist containing information about the track to create."
-  (with-transaction ()
-    (let ((track (apply #'make-instance 'track trackinfo)))
-      (setf (track-file track) (namestring file))
-      track)))
-
-(defun new-playlist (user &key title)
-  (with-transaction ()
-    (make-instance 'playlist :title title :user user)))
-
-(defun update-playlist-title (playlist title)
-  (with-transaction ()
-    (setf (playlist-title playlist) title)))
-
 ;;; CLIENT STATE 
 
 (defclass/std playlist-ctl ()
-- 
cgit v1.2.3