diff options
| author | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2024-07-06 21:33:01 -0500 |
|---|---|---|
| committer | Grant Shoshin Shangreaux <shoshin@cicadas.surf> | 2024-07-06 21:33:01 -0500 |
| commit | 9494ccb01b7d7e02ffe92e3a37341e47a2bbfa84 (patch) | |
| tree | 18a922a6cf583a1c037b7ee00863d7dcf5c885db /site/html.lisp | |
| parent | a95cdd714187903ed24e40804c449e8e4737f027 (diff) | |
Add: some more refinement of hypno pages88-user-home-page
Diffstat (limited to 'site/html.lisp')
| -rw-r--r-- | site/html.lisp | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/site/html.lisp b/site/html.lisp index 4fdecd3..eb7bf95 100644 --- a/site/html.lisp +++ b/site/html.lisp @@ -10,7 +10,18 @@ (<meta> (@ :charset "UTF-8")) (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) (<body> - ($center - (<div> (@ :class "container") (apply 'eval body))))) + (<div> ($ :width "777px" :height "899px" :margin "auto" + :display "flex" :justify-content "center") + (apply 'eval body)))) str))) +(defun <navbar> () + (<div> + ($ :height "100px" :width "100%" :display "flex" :justify-content "space-between") + "MENU" + (<linkto> "V A M P I R E" (wknd:route-to 'home.html)) + (<logout>))) + +(defun <logout> () + (<form> (@ :method "POST" :action (wknd:route-to 'destroy.session)) (<submit> "Logout"))) + |