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

1 files changed, 21 insertions, 0 deletions

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