From 0b21729661ed1905eb886b1eba6f8b062305c9a3 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 07:52:50 -0500 Subject: Modify+Add: Added pw hashing stuff to user. Add login file. --- vampire.lisp | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'vampire.lisp') 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") -- cgit v1.2.3