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