samsepi0l/CommonLispTings
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

contact page creation

Browse Source
This commit is contained in:
sweatshirt0 2023-02-23 16:29:43 -05:00
parent c395899009
commit bd9555ee98
1 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
webserver.lisp
View File

@ -44,7 +44,7 @@
border: 1px solid lightgrey; border: 1px solid lightgrey;
border-radius: 5px; border-radius: 5px;
padding: 15px; padding: 15px;
font-size: 1.2rem; font-size: 1.25rem;
width: 95%; width: 95%;
} }
.nav-wrapper a { .nav-wrapper a {
@ -64,7 +64,16 @@
} }
.content { .content {
font-size: 1.1rem; 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 "/") (tbnl:define-easy-handler (main :uri "/")
() ()
@ -79,7 +88,9 @@
(:a :class "home-link" :href "/" (:a :class "home-link" :href "/"
"Home") "Home")
(:a :class "about-link" :href "/about" (:a :class "about-link" :href "/about"
"About")) "About")
(:a :class "contact-link" :href "/contact"
"Contact"))
(:div :class "title-wrapper" (:div :class "title-wrapper"
(:h1 :class "title" (:h1 :class "title"
"Welcome to my CL server!")) "Welcome to my CL server!"))
@ -102,7 +113,9 @@
(:a :class "home-link" :href "/" (:a :class "home-link" :href "/"
"Home") "Home")
(:a :class "about-link" :href "/about" (:a :class "about-link" :href "/about"
"About")) "About")
(:a :class "contact-link" :href "/contact"
"Contact"))
(:div :class "content-wrapper" (:div :class "content-wrapper"
(:div :clsas "about-title-wrapper" (:div :clsas "about-title-wrapper"
(:h1 "About this site")) (:h1 "About this site"))
@ -114,3 +127,30 @@
request with response, i decided to do the same with common lisp! request with response, i decided to do the same with common lisp!
I will be using hunchentoot, spinneret and lass(maybe?) to create I will be using hunchentoot, spinneret and lass(maybe?) to create
this site; I hope you enjoy :)")))))))) 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"))))))