Add: collaborator/editor managment on playlists

1 files changed, 9 insertions, 0 deletions

diff --git a/model.lisp b/model.lisp
index a866088..b8f564c 100644
--- a/model.lisp
+++ b/model.lisp
@@ -110,6 +110,15 @@
               (hash-string pw (user-pwsalt user)))
         user))))
 
+(defun remove-editor (playlist editor)
+  (with-transaction ()
+    (setf (playlist-editors playlist)
+          (delete editor (playlist-editors playlist)))))
+
+(defun add-editor (playlist editor)
+  (with-transaction ()
+    (pushnew editor (playlist-editors playlist) :test #'eq)))
+
 (defun destroy-invite (invite)
   (with-transaction ()
     (bknr.datastore:delete-object invite)))