diff options
Diffstat (limited to 'seed.lisp')
| -rw-r--r-- | seed.lisp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/seed.lisp b/seed.lisp new file mode 100644 index 0000000..40fc653 --- /dev/null +++ b/seed.lisp @@ -0,0 +1,13 @@ +(in-package :vampire) + +(db:with-transaction () + (let ((alucard (make-instance 'user :name "alucard"))) + (setf (user-pwhash alucard) (hash-string "password" (user-pwsalt alucard))) + (make-instance 'invite :maker alucard) + (mapcar + (lambda (s) + (make-instance + 'playlist + :title s :user alucard :editors (list alucard) + :cover-image "https://cicadas.surf/~shoshin/casiopeia/basement%20days/cover.png")) + '("One" "Two" "Three")))) |