diff options
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"))) + |