From 8274656847a6851cb4073abff9554fc24518c234 Mon Sep 17 00:00:00 2001
From: Thel Seraphim <thel.seraphim@gmail.com>
Date: Sat, 14 Mar 2015 00:57:03 -0700
Subject: [PATCH] add a title block, light refactoring

---
 resources/pronouns.css |  7 +++++++
 src/pronouns/pages.clj | 18 +++++++++++++-----
 2 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/resources/pronouns.css b/resources/pronouns.css
index 5753b25..3ad386d 100644
--- a/resources/pronouns.css
+++ b/resources/pronouns.css
@@ -11,6 +11,13 @@ body {
 	border:4px solid #eeeeee;
 }
 
+.title {
+	font: large;
+	margin: 8px;
+	padding: 4px 6px 4px 6px;
+	border:4px solid #eeeeee;
+}
+
 .about {
 	font: large;
 	margin: 8px;
diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index 7aa2b0f..3404068 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -31,10 +31,14 @@
   [subject reflexive]
   (render-sentence (wrap-pronoun (s/capitalize subject)) " threw the frisbee to " (wrap-pronoun reflexive) "."))
 
+(defn title-block [title]
+  [:div {:class "title"}
+   [:h1 title]])
+
 (defn examples-block
   [subject object possessive-determiner possessive-pronoun reflexive]
   [:div {:class "examples"}
-   [:p [:h1 "Here are some usage examples for my pronouns:"]]
+   [:p [:h2 "Here are some usage examples for my pronouns:"]]
    (subject-example subject)
    (object-example object)
    (posessive-determiner-example subject possessive-determiner)
@@ -60,15 +64,17 @@
 
 (defn format-pronoun-examples
   [subject object possessive-determiner possessive-pronoun reflexive]
+  (let [title "Pronoun Island: Examples"]
   (html
    [:html
     [:head
-     [:title "Pronoun Island: Examples"]
+     [:title title]
      [:link {:rel "stylesheet" :href "/pronouns.css"}]]
     [:body
+     (title-block title)
      (examples-block subject object possessive-determiner possessive-pronoun reflexive)
      (about-block)
-     (contact-block)]]))
+     (contact-block)]])))
 
 
 (defn parse-pronouns-with-lookup [pronouns-string pronouns-table]
@@ -87,13 +93,15 @@
     [:li [:a {:href link} label]]))
 
 (defn front [pronouns-table]
-  (let [links (map make-link (sort pronouns-table))]
+  (let [links (map make-link (sort pronouns-table))
+        title "Pronoun Island"]
     (html
      [:html
       [:head
-       [:title "Pronoun Island"]
+       [:title title]
        [:link {:rel "stylesheet" :href "/pronouns.css"}]]
       [:body
+       (title-block title)
        [:div {:class "table"}
        [:p "pronoun.is is a www site for showing people how to use pronouns"]
        [:p "here are some pronouns the site knows about:"]