From 8238eb6e0cbf71db6f2efe86ed4942253ebab9b6 Mon Sep 17 00:00:00 2001
From: Morgan Astra <m@morganastra.me>
Date: Wed, 14 Nov 2018 22:22:15 -0800
Subject: [PATCH] Add all-pronouns page

---
 src/pronouns/pages.clj | 24 +++++++++++++++++++++---
 src/pronouns/web.clj   |  6 ++++++
 2 files changed, 27 insertions(+), 3 deletions(-)

diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj
index 6d08519..3b808fb 100644
--- a/src/pronouns/pages.clj
+++ b/src/pronouns/pages.clj
@@ -168,9 +168,27 @@
       [:body
        (header-block title)
        [:div {:class "section table"}
-       [:p "pronoun.is is a website for personal pronoun usage examples"]
-       [:p "here are some pronouns the site knows about:"]
-       [:ul links]]]
+        [:p "pronoun.is is a website for personal pronoun usage examples"]
+        [:p "here are some pronouns the site knows about:"]
+        [:ul links]
+        [:p [:small (href "all-pronouns" "see all pronouns in the database")]]]]
+      (footer-block)])))
+
+(defn all-pronouns []
+  (let [abbreviations (u/abbreviate *pronouns-table*)
+        links (map make-link abbreviations)
+        title "Pronoun Island"]
+    (html
+     [:html
+      [:head
+       [:title title]
+       [:meta {:name "viewport" :content "width=device-width"}]
+       [:link {:rel "stylesheet" :href "/pronouns.css"}]]
+      [:body
+       (header-block title)
+       [:div {:class "section table"}
+        [:p "All pronouns the site knows about:"]
+        [:ul links]]]
       (footer-block)])))
 
 (defn not-found []
diff --git a/src/pronouns/web.clj b/src/pronouns/web.clj
index 15057c2..ab887d0 100644
--- a/src/pronouns/web.clj
+++ b/src/pronouns/web.clj
@@ -39,6 +39,12 @@
         :headers {"Content-Type" "text/html"}
         :body (pages/front)})
 
+  (GET "/all-pronouns" []
+       {:status 200
+        :headers {"Content-Type" "text/html"}
+        :body (pages/all-pronouns)})
+
+
   (GET "/pronouns.css" []
      {:status 200
      :headers {"Content-Type" "text/css"}