From bd9555ee9881569b5a3c3a17bc30468d79ebddbe Mon Sep 17 00:00:00 2001
From: sweatshirt0 <sweatshirttt@proton.me>
Date: Thu, 23 Feb 2023 16:29:43 -0500
Subject: [PATCH] contact page creation

---
 webserver.lisp | 48 ++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 44 insertions(+), 4 deletions(-)

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"))))))