diff options
Diffstat (limited to 'model.lisp')
| -rw-r--r-- | model.lisp | 14 |
1 files changed, 13 insertions, 1 deletions
@@ -2,6 +2,8 @@ (in-package :vampire) +;;; CLASSES + (defclass/bknr keyed () ((key :r :std (nuid) :index-type string-unique-index @@ -16,7 +18,9 @@ (pwhash :with))) (defclass/bknr invite (keyed) - ((maker :r :std nil) + ((maker :ri :std nil + :index-type hash-index + :index-reader invites-by-maker) (uses-remaining :std nil))) (defclass/bknr playlist (keyed) @@ -106,6 +110,14 @@ (hash-string pw (user-pwsalt user))) user)))) +(defun destroy-invite (invite) + (with-transaction () + (bknr.datastore:delete-object invite))) + +(defun make-invite (user &optional uses) + (with-transaction () + (make-instance 'invite :maker user :uses-remaining uses))) + (defun append-track (pl tr) (with-transaction () (add-track tr pl))) |