1 files changed, 6 insertions, 0 deletions
diff --git a/model.lisp b/model.lisp
index b8f564c..399d018 100644
--- a/model.lisp
+++ b/model.lisp
@@ -156,6 +156,12 @@
   (with-transaction ()
     (make-instance 'playlist :title title :user user)))
 
+(defun destroy-playlist (pl)
+  (with-transaction ()
+    (setf (user-playlists (playlist-user pl))
+          (delete pl (user-playlists (playlist-user pl))))
+    (bknr.datastore:delete-object pl)))
+
 (defun update-playlist-title (playlist title)
   (with-transaction ()
     (setf (playlist-title playlist) title)))