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. --- login.lisp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 login.lisp (limited to 'login.lisp') diff --git a/login.lisp b/login.lisp new file mode 100644 index 0000000..2e7c652 --- /dev/null +++ b/login.lisp @@ -0,0 +1,21 @@ +;;;; login.lisp + +(in-package :vampire) + +(defun login-page (body) + (with-clog-create body + (div () + (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"))) + -- cgit v1.2.3