diff options
Diffstat (limited to 'login.lisp')
| -rw-r--r-- | login.lisp | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/login.lisp b/login.lisp deleted file mode 100644 index 0cf08b5..0000000 --- a/login.lisp +++ /dev/null @@ -1,32 +0,0 @@ -;;;; login.lisp - -(in-package :vampire) - -(defun login-page (body) - (include-style body) - (with-clog-create body - (div (:class "login") - (div () - (section (:h3 :content "LOGIN")) - (form () - (form-element (:text :bind name-input)) - (br ()) - (form-element (:password :bind pw-input)) - (br ()) - (button (:bind btn :content "Click here to log in")))) - (div () - (:p () - (:a (:link "/new-account" :content "Create an account"))))) - (setf (place-holder name-input) "Name" - (place-holder pw-input) "Password") - (set-on-click - btn - (thunk* - (let ((user - (login-user (value name-input) (value pw-input)))) - (if user - (let ((session (make-session user))) - (setf (session-key (window body)) (key session) - (url (location body)) "/home")) - (alert (window body) "Error logging in."))))))) - |