about summary refs log tree commit diff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/pronouns/pages.clj45
1 files changed, 15 insertions, 30 deletions
diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index 0d96e76..6d1fdb7 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -3,55 +3,47 @@
             [pronouns.util :as u]
             [hiccup.core :refer :all]))
 
-
 (defn wrap-pronoun
   [pronoun]
   [:b pronoun])
 
 (defn wrap-para
   [whatever]
-  [:p whatever]
-  )
+  [:p whatever])
 
 (defn subject-example
   [subject]
   (wrap-para
-  [:span#sentence (wrap-pronoun subject) " went to the park."]))
+   [:span#sentence (wrap-pronoun subject) " went to the park."]))
 
 (defn object-example
   [object]
   (wrap-para
-  [:span#sentence "I went with " (wrap-pronoun object) "."]
-  ))
+   [:span#sentence "I went with " (wrap-pronoun object) "."]))
 
 (defn posessive-determiner-example
   [subject possessive-determiner]
   (wrap-para
-  [:span#sentence (wrap-pronoun subject) " brought " (wrap-pronoun possessive-determiner) " frisbee."]
-  ))
+   [:span#sentence (wrap-pronoun subject) " brought " (wrap-pronoun possessive-determiner) " frisbee."]))
 
 (defn possessive-pronoun-example
   [possessive-pronoun]
   (wrap-para
-  [:span#sentence "At least I think it was " (wrap-pronoun possessive-pronoun) "."]
-  ))
+   [:span#sentence "At least I think it was " (wrap-pronoun possessive-pronoun) "."]))
 
 (defn reflexive-example
   [subject reflexive]
   (wrap-para
-  [:span#sentence (wrap-pronoun subject) " threw it to " (wrap-pronoun reflexive)]
-  ))
+   [:span#sentence (wrap-pronoun subject) " threw it to " (wrap-pronoun reflexive)]))
 
 
 (defn twitter-name [name]
-  [:a {:href (str "https://www.twitter.com/" name)} (str "@" name)]
-)
+  [:a {:href (str "https://www.twitter.com/" name)} (str "@" name)])
 
 (defn contact-block []
   [:div {:class "contact"}
    [:p "Written by " (twitter-name "morganastra") " and " (twitter-name "thelseraphim") "."]
-   [:p "visit the project on " [:a {:href "https://github.com/witch-house/pronoun.is"} "github."]]]
-)
+   [:p "visit the project on " [:a {:href "https://github.com/witch-house/pronoun.is"} "github."]]])
 
 
 (defn about-block []
@@ -61,10 +53,8 @@
     [:tt "http://pronoun.is/subject-pronoun/object-pronoun/possessive-determiner/possessive-pronoun/reflexive"]
     " displays examples of your pronouns. If we have a good guess we'll let you use just the first one or two."]
    [:p "Quick examples:"]
-   [:p "My name is Thel Seraphim, my " [:a {:href "http://pronoun.is/she"} "http://pronoun.is/she"] "."]
-   [:p "My name is Morgan Astra, my " [:a {:href "http://pronoun.is/ze/zir"} "http://pronoun.is/ze/zir"] "."]
-   ]
-)
+   [:p "My name is Thel Seraphim, my " [:a {:href "http://pronoun.is/she"} "pronoun.is/she"] "."]
+   [:p "My name is Morgan, my " [:a {:href "http://pronoun.is/ze/zir"} "pronoun.is/ze/zir"] "."]])
 
 
 
@@ -78,20 +68,15 @@
    (possessive-pronoun-example possessive-pronoun)
    (reflexive-example subject reflexive)])
 
-
-
 (defn format-pronoun-examples
   [subject object possessive-determiner possessive-pronoun reflexive]
   (html
    [:html
-   [:head ""]
-   [:body
-    (examples-block subject object possessive-determiner possessive-pronoun reflexive)
-    (about-block)
-    (contact-block)]
-    ]
-   )
- )
+    [:head ""]
+    [:body
+     (examples-block subject object possessive-determiner possessive-pronoun reflexive)
+     (about-block)
+     (contact-block)]]))
 
 
 (defn parse-pronouns-with-lookup [pronouns-string pronouns-table]