diff options
| author | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-23 16:42:34 -0500 |
|---|---|---|
| committer | Grant Shangreaux <grant@unabridgedsoftware.com> | 2024-06-23 16:42:34 -0500 |
| commit | 68d30b9c81c4e099e0111fe0bbb33715dd572e8c (patch) | |
| tree | efb4c43690494fddb47298f253a05092b2564160 /seed.lisp | |
| parent | ce470567c4421da7d073685cf845fdc4448aadc0 (diff) | |
[109] Add: logout action and some session endpoint refactor
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")))) |