diff --git a/webserver.lisp b/webserver.lisp index 905d512..95c92fc 100644 --- a/webserver.lisp +++ b/webserver.lisp @@ -44,7 +44,7 @@ border: 1px solid lightgrey; border-radius: 5px; padding: 15px; - font-size: 1.2rem; + font-size: 1.25rem; width: 95%; } .nav-wrapper a { @@ -64,7 +64,16 @@ } .content { font-size: 1.1rem; - }") + } + .contact-content-subtitle { + font-size: 1.1rem; + } + .contact-content-irc { + font-size: 1.1rem; + } + .contact-content-xmpp { + font-size: 1.1rem; +}") (tbnl:define-easy-handler (main :uri "/") () @@ -79,7 +88,9 @@ (:a :class "home-link" :href "/" "Home") (:a :class "about-link" :href "/about" - "About")) + "About") + (:a :class "contact-link" :href "/contact" + "Contact")) (:div :class "title-wrapper" (:h1 :class "title" "Welcome to my CL server!")) @@ -102,7 +113,9 @@ (:a :class "home-link" :href "/" "Home") (:a :class "about-link" :href "/about" - "About")) + "About") + (:a :class "contact-link" :href "/contact" + "Contact")) (:div :class "content-wrapper" (:div :clsas "about-title-wrapper" (:h1 "About this site")) @@ -114,3 +127,30 @@ request with response, i decided to do the same with common lisp! I will be using hunchentoot, spinneret and lass(maybe?) to create this site; I hope you enjoy :)")))))))) + +(tbnl:define-easy-handler (contact :uri "/contact") + () + (spinneret:with-html-string + (:head + (:style + *css*)) + (:body + (:div :class "whole-wrapper" + (:div :class "nav-wrapper" + (:a :class "home-link" :href "/" + "Home") + (:a :class "about-link" :href "/about" + "About") + (:a :class "contact-link" :href "/contact" + "Contact")) + (:div :class "content-wrapper" + (:h1 :class "contact-content-title" + "Contact") + (:h3 :class "contact-content-subtitle" + "IRC") + (:p :class "contact-content-irc" + "sweatshirt, samsepi0l") + (:h3 :class "contact-content-subtitle" + "XMPP") + (:p :class "contact-content-xmpp" + "sweatshirt@xmpp.jp"))))))