diff options
author | Colin Okay <colin@cicadas.surf> | 2022-10-27 07:52:50 -0500 |
---|---|---|
committer | Colin Okay <colin@cicadas.surf> | 2022-10-27 07:52:50 -0500 |
commit | 0b21729661ed1905eb886b1eba6f8b062305c9a3 (patch) | |
tree | c3071c5238d1dc174bfaf42ccad59a88d710f043 /vampire.lisp | |
parent | 52c0408569a0b1de932d52e71fee5fb0163782e2 (diff) |
Modify+Add: Added pw hashing stuff to user. Add login file.
Diffstat (limited to 'vampire.lisp')
-rw-r--r-- | vampire.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/vampire.lisp b/vampire.lisp index e089b0d..f99d5a3 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -70,20 +70,6 @@ (setf (url (location (connection-body parent))) url))))))) -(defun login-page (body) - (with-clog-create body - (div () - (p (:content "LOGIN")) - (form-element (:text :bind name)) - (button (:bind btn :content "Click here to log in"))) - (set-on-click - btn - (lambda (obj) - (declare (ignore obj)) - (let ((u (new-user :name (value name)))) - (setf (session-key (window body)) (key u)) - (setf (url (location body)) "/")))))) - (defun main (body) (if (session-user body) (setf (url (location body)) "/home") |