diff options
Diffstat (limited to 'site')
| -rw-r--r-- | site/css.lisp | 29 | ||||
| -rw-r--r-- | site/home.lisp | 8 | ||||
| -rw-r--r-- | site/html.lisp | 14 | ||||
| -rw-r--r-- | site/login.lisp | 35 |
4 files changed, 63 insertions, 23 deletions
diff --git a/site/css.lisp b/site/css.lisp new file mode 100644 index 0000000..ab01990 --- /dev/null +++ b/site/css.lisp @@ -0,0 +1,29 @@ +(in-package #:vampire) + +(defparameter +main-style+ + (lass:compile-and-write + ;; Add variables here, not just for reuse, but also for at-a-glance + ;; documentation and easy-of-fiddling + '(:let ((main-bg "#1c1c1c") + (secondary-bg "#2e2e2e") + (tertiary-bg "#cccccc") + (main-color "#e8e7d5") + (secondary-color "#ffffff") + (tertiary-color "#000000")) + (body + :background #(main-bg) + :color #(main-color) + :justify-content center + :display flex + :width 90vw + :margin auto) + + ;;(button) + + ;;((and button :hover)) + ))) + +(wknd:defendpoint style.css + :get :route "css" "style.css" + :returns "text/css" + :handle +main-style+) diff --git a/site/home.lisp b/site/home.lisp index b96b52e..dcf929a 100644 --- a/site/home.lisp +++ b/site/home.lisp @@ -1,10 +1,8 @@ (in-package #:vampire) -(defun home-page (user) - (format nil "hey ~a" (user-name user))) - -(wknd:defendpoint home +(wknd:defendpoint home.html :using user-known :get :route "" :returns "text/html" - :handle (home-page user)) + :handle (page (:title "V A M P I R E") + (:p "hey " (user-name user)))) diff --git a/site/html.lisp b/site/html.lisp new file mode 100644 index 0000000..d1d0f1a --- /dev/null +++ b/site/html.lisp @@ -0,0 +1,14 @@ +(in-package #:vampire) + + +(defmacro page ((&key (title "") (csspath "/css/style.css")) &body body) + `(spinneret:with-html-string + (:doctype) + (:head + (:title ,title) + (:meta :charset "UTF-8") + (:meta :name "viewport" :content "width=device-width, initial-scale=1.0") + (:link :rel "stylesheet" :href ,csspath)) + (:body + ,@body))) + diff --git a/site/login.lisp b/site/login.lisp index 14852c3..0310fe8 100644 --- a/site/login.lisp +++ b/site/login.lisp @@ -1,6 +1,6 @@ (in-package #:vampire) -(wknd:defendpoint login +(wknd:defendpoint login.html :get :route "login" :returns "text/html" :handle (login-page)) @@ -13,7 +13,7 @@ :properties (user user) :authenticate (authenticate-login-user name password) - :handle (wknd:endpoint-redirect 'home)) + :handle (wknd:endpoint-redirect 'home.html)) (defun authenticate-login-user (name password) (do> @@ -23,7 +23,7 @@ session := (db:with-transaction () (make-instance 'session :user found-user)) (wknd:set-cookie +session-cookie+ :value (key session)))) -(wknd:defendpoint new-account-page +(wknd:defendpoint new-account.html :get :route "new-account" :returns "text/html" :handle (new-account-page)) @@ -47,26 +47,25 @@ (decf (uses-remaining invite))) (let ((user (make-instance 'user :name username))) (setf (user-pwhash user) (hash-string password (user-pwsalt user))))) - (wknd:endpoint-redirect 'login))) + (wknd:endpoint-redirect 'login.html))) (defun login-page () - (with-html-string + (page (:title "V A M P I R E ~ LOGIN") (:div (:h1 "I vant to suck your blood") - (:form :method "POST" :action "/login" - (:input :placeholder "Name" :name "name") - (:br) - (:input :placeholder "Password" :type "password" :name "password") - (:br) - (:button :type "submit" "Click to Login"))) - (:a :href "/new-account" "Come to the Dark Side"))) + (:form :method "POST" :action "/login" + (:input :placeholder "Name" :name "name") + (:br) + (:input :placeholder "Password" :type "password" :name "password") + (:br) + (:button :type "submit" "Click to Login"))))) (defun new-account-page () - (with-html-string + (page (:title "V A M P I R E ~ JOIN") (:form :method "POST" :action "/new-account" - (:input :placeholder "Invite Code" :name "invite-code")(:br) - (:input :placeholder "Username" :name "username")(:br) - (:input :placeholder "Password" :name "password" :type "password")(:br) - (:input :placeholder "Repeat Password" :name "password2" :type "password")(:br) - (:button :type "submit" "Become Undead")))) + (:input :placeholder "Invite Code" :name "invite-code")(:br) + (:input :placeholder "Username" :name "username")(:br) + (:input :placeholder "Password" :name "password" :type "password")(:br) + (:input :placeholder "Repeat Password" :name "password2" :type "password")(:br) + (:button :type "submit" "Become Undead")))) |