diff options
| author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2024-07-06 15:44:51 -0500 |
|---|---|---|
| committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2024-07-06 15:44:51 -0500 |
| commit | a95cdd714187903ed24e40804c449e8e4737f027 (patch) | |
| tree | 25c74b9dd88ac43a437df5175a253798a0367f55 /site/home.lisp | |
| parent | 79c8538b90ddb99bf038f1b4daed4d666146c2af (diff) | |
Add: redefined pages with hypnotisml syntax
Diffstat (limited to 'site/home.lisp')
| -rw-r--r-- | site/home.lisp | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/site/home.lisp b/site/home.lisp index 0b02e0c..ebc644b 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -4,20 +4,19 @@ :using user-known :get :route "" :returns "text/html" - :handle (page (:title "V A M P I R E") - (:div :id "main" - (:h1 "hey " (user-name user)) - (:br) - (:div - (:form :method "POST" :action (wknd:route-to 'destroy.session) - (:button :type "submit" "Logout"))) - (:br) - (:br) - (:div - (:form :method "POST" :action (wknd:route-to 'create.invite) - (:p "Initiate an invitation...") - (:button :type "submit" "Bite Someone"))) - (:br) - (:h2 "Outstanding inBites:") - (:ul (dolist (i (invites-by-maker user)) - (:li (key i))))))) + :handle + (page + "V A M P I R E" + (<div> + ($vcenter + (<div> (<h3> "hey " (user-name user)) + (<form> (@ :method "POST" :action (wknd:route-to 'destroy.session)) + (<button> (@ :type "submit") "Logout")))) + (<div> + (<form> (@ :method "POST" :action (wknd:route-to 'create.invite)) + (<p> "Initiate an invitation...") + (<button> (@ :type "submit") "Bite Someone"))) + (<h2> "Outstanding inBites:") + (apply #'<ul> + (mapcar (lambda (i) (<li> (key i))) + (invites-by-maker (user-with-name "alucard"))))))) |