make the footer sections 0.8em

2 files changed, 16 insertions, 11 deletions

diff --git a/resources/pronouns.css b/resources/pronouns.css
index 59160b5..c27bd5a 100644
--- a/resources/pronouns.css
+++ b/resources/pronouns.css
@@ -1,12 +1,17 @@
 body {
-	font-family: Futura, sans-serif;
-	background-color: #F6CEFC;
+    font-family: Futura, sans-serif;
+    background-color: #F6CEFC;
+}
+
+footer {
+    font-size: 0.8em;
 }
 
 .section {
-	margin: 8px;
-	padding: 4px 6px 4px 6px;
-	border: 4px solid #eeeeee;
+    margin: 8px;
+    padding: 4px 6px 4px 6px;
+    border: 4px solid #EEEEEE;
+    border-radius: 7px;
 }
 
 .examples {
diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index fe9e2aa..60175c9 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -86,7 +86,7 @@
 (defn contact-block []
   (let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle)
                                        (str "@" handle)))]
-    [:footer {:class "section contact"}
+    [:div {:class "section contact"}
      [:p "Written by "
          (twitter-name "morganastra")
          ", whose "
@@ -97,6 +97,8 @@
          (href "https://github.com/witch-house/pronoun.is" "github")]
      [:p "<3"]]))
 
+(defn footer-block []
+  [:footer (about-block) (contact-block)])
 
 (defn format-pronoun-examples
   [pronoun-declensions]
@@ -110,8 +112,7 @@
       [:body
        (title-block title)
        (map #(apply examples-block %) pronoun-declensions)
-       (about-block)
-       (contact-block)]])))
+       (footer-block)]])))
 
 (defn lookup-pronouns [pronouns-string]
   (let [inputs (s/split pronouns-string #"/")
@@ -141,7 +142,7 @@
        [:p "pronoun.is is a website for personal pronoun usage examples"]
        [:p "here are some pronouns the site knows about:"]
        [:ul links]]]
-      (contact-block)])))
+      (footer-block)])))
 
 (defn not-found []
   (let [title "Pronoun Island: English Language Examples"]
@@ -156,8 +157,7 @@
       [:div {:class "section examples"}
        [:p [:h2 (str "We couldn't find those pronouns in our database."
                      "If you think we should have them, please reach out!")]]]
-       (about-block)
-       (contact-block)]])))
+       (footer-block)]])))
 
 (defn pronouns [params]
   (let [path (params :*)