Merge pull request #8 from non/topic/pronoun-list

Add support for a global pronoun list at /.

2 files changed, 21 insertions, 4 deletions

diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index f380542..b3ad43a 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -78,8 +78,25 @@
       (take 5 inputs)
       (u/table-lookup inputs pronouns-table))))
 
-(defn front []
-  (str "pronoun.is is a www site for showing people how to use pronouns"))
+;; we could choose to display the entire row for the label.
+;; currently the first two entries are enough to disambiguate the
+;; pronouns -- will that always be true?
+(defn make-link [row]
+  (let [link (str "/" (s/join "/" row))
+        label (str (first row) "/" (first (rest row)))]
+    [:li [:a {:href link} label]]))
+
+(defn front [pronouns-table]
+  (let [links (map make-link (sort pronouns-table))]
+    (html
+     [:html
+      [:head
+       [:title "Main Page"]
+       [:link {:rel "stylesheet" :href "/pronouns.css"}]]
+      [:body
+       [:p "pronoun.is is a www site for showing people how to use pronouns"]
+       [:p "here are some pronouns the site knows about:"]
+       [:ul links]]])))
 
 (defn not-found []
   (str "We couldn't find those pronouns in our database, please ask us to "
diff --git a/src/pronouns/web.clj b/src/pronouns/web.clj
index 646e142..04acd5d 100644
--- a/src/pronouns/web.clj
+++ b/src/pronouns/web.clj
@@ -20,8 +20,8 @@
 (defroutes app-routes
   (GET "/" []
        {:status 200
-        :headers {"Content-Type" "text/plain"}
-        :body (pages/front)})
+        :headers {"Content-Type" "text/html"}
+        :body (pages/front pronouns-table)})
 
   (GET "/pronouns.css" {params :params}
      {:status 200