From 68d30b9c81c4e099e0111fe0bbb33715dd572e8c Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Sun, 23 Jun 2024 16:42:34 -0500 Subject: [109] Add: logout action and some session endpoint refactor --- seed.lisp | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 seed.lisp (limited to 'seed.lisp') 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")))) -- cgit v1.2.3