From c45042893905d3ffd227f37a24ad135d766063e1 Mon Sep 17 00:00:00 2001 From: Morgan Astra Date: Wed, 14 Nov 2018 14:39:46 -0800 Subject: [PATCH] Make front page shorter Since this was currently the only place with a full list of all pronouns in the database, we should add a new page to serve that purpose (perhaps formatted into multiple columns so it isn't so incredibly long) --- src/pronouns/pages.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index 2ae6b4e..218caab 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -156,7 +156,7 @@ [:li (href link label)])) (defn front [] - (let [abbreviations (u/abbreviate *pronouns-table*) + (let [abbreviations (take 10 (u/abbreviate *pronouns-table*)) links (map make-link abbreviations) title "Pronoun Island"] (html