about summary refs log tree commit diff
path: root/src/pronouns/pages.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/pronouns/pages.clj')
-rw-r--r--src/pronouns/pages.clj12
1 files changed, 6 insertions, 6 deletions
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 :*)