"Outstanding inBites:") + ( user))))) + +(defun (user) + (apply #'
+ (mapcar (lambda (i) (
(key i))) + (invites-by-maker user)))) 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 @@ ( (@ :charset "UTF-8")) ( (@ :name "viewport" :content "width=device-width, initial-scale=1.0"))) ( - ($center - (
(@ :class "container") (apply 'eval body))))) + (
($ :width "777px" :height "899px" :margin "auto" + :display "flex" :justify-content "center") + (apply 'eval body)))) str))) +(defun () + (
+ ($ :height "100px" :width "100%" :display "flex" :justify-content "space-between") + "MENU" + ( "V A M P I R E" (wknd:route-to 'home.html)) + ())) + +(defun () + ( (@ :method "POST" :action (wknd:route-to 'destroy.session)) ( "Logout"))) + diff --git a/site/login.lisp b/site/login.lisp index 6a6c8aa..cd8edd3 100644 --- a/site/login.lisp +++ b/site/login.lisp @@ -8,12 +8,13 @@ (defun login-page () (page "V A M P I R E ~ LOGIN" - (
(@ :class "title") + (
(
"I vant to suck your blood") - ( (@ :method "POST" :action (wknd:route-to 'create.session)) - ( (@ :placeholder "Name" :name "name")) - ( (@ :placeholder "Password" :type "password" :name "password")) - (

"I vant to suck your blood") - ( (@ :method "POST" :action (wknd:route-to 'create.session)) - ( (@ :placeholder "Name" :name "name")) - ( (@ :placeholder "Password" :type "password" :name "password")) - (