title) (<meta> (@ :charset "UTF-8")) (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) (<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")))

(in-package #:vampire) (defun page (title &rest body) (with-output-to-string (str) (html ( ( ( title) (<meta> (@ :charset "UTF-8")) (<meta> (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) (<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")))