Add: redefined pages with hypnotisml syntax

1 files changed, 11 insertions, 14 deletions

diff --git a/site/login.lisp b/site/login.lisp
index cb1f82f..6a6c8aa 100644
--- a/site/login.lisp
+++ b/site/login.lisp
@@ -6,17 +6,14 @@
   :handle (login-page))
 
 (defun login-page ()
-  (page (:title "V A M P I R E ~ LOGIN")
-    (:div (:h1 "I vant to suck your blood")
-          (:form :method "POST" :action (wknd:route-to 'create.session)
-                 (:input :placeholder "Name" :name "name")
-                 (:br)
-                 (:input :placeholder "Password" :type "password" :name "password")
-                 (:br)
-                 (:button :type "submit" "Click to Login"))
-          (:a :href (wknd:route-to 'new-account.html)
-              "Become Undead"))))
-
-
-
-
+  (page
+   "V A M P I R E ~ LOGIN"
+   (<div> (@ :class "title")
+    (<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"))
+    ($center 
+     (<a> (@ :href (wknd:route-to 'new-account.html))
+	  "Hath thou been bitten? Click here to become one of us...")))))