From 8238eb6e0cbf71db6f2efe86ed4942253ebab9b6 Mon Sep 17 00:00:00 2001 From: Morgan Astra 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"}