summaryrefslogtreecommitdiff
path: root/site/html.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'site/html.lisp')
-rw-r--r--site/html.lisp15
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")))
+