From a95cdd714187903ed24e40804c449e8e4737f027 Mon Sep 17 00:00:00 2001 From: Grant Shoshin Shangreaux Date: Sat, 6 Jul 2024 15:44:51 -0500 Subject: Add: redefined pages with hypnotisml syntax --- site/login.lisp | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) (limited to 'site/login.lisp') 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" + (
(@ :class "title") + (

"I vant to suck your blood") + (
(@ :method "POST" :action (wknd:route-to 'create.session)) + ( (@ :placeholder "Name" :name "name")) + ( (@ :placeholder "Password" :type "password" :name "password")) + (