Modify+Add: Added pw hashing stuff to user. Add login file.

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")