From 9494ccb01b7d7e02ffe92e3a37341e47a2bbfa84 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sat, 6 Jul 2024 21:33:01 -0500
Subject: Add: some more refinement of hypno pages

---
 site/login.lisp | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'site/login.lisp')

diff --git a/site/login.lisp b/site/login.lisp
index 6a6c8aa..cd8edd3 100644
--- a/site/login.lisp
+++ b/site/login.lisp
@@ -8,12 +8,13 @@
 (defun login-page ()
   (page
    "V A M P I R E ~ LOGIN"
-   (<div> (@ :class "title")
+   (<div> 
     (<h1> "I vant to suck your blood")
-     (<form> (@ :method "POST" :action (wknd:route-to 'create.session))
-      (<input> (@ :placeholder "Name" :name "name"))
-      (<input> (@ :placeholder "Password" :type "password" :name "password"))
-      (<button> (@ :type "submit") "Click to Login"))
+    (<form>
+     (@ :method "POST" :action (wknd:route-to 'create.session))
+     (<input> (@ :placeholder "Name" :name "name"))
+     (<password>)
+     (<submit> "Click to Login"))
     ($center 
-     (<a> (@ :href (wknd:route-to 'new-account.html))
-	  "Hath thou been bitten? Click here to become one of us...")))))
+     (<linkto> "Hath thou been bitten? Click here to become one of us..."
+	       (wknd:route-to 'new-account.html))))))
-- 
cgit v1.2.3