about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMorgan Astra <m@morganastra.me>2018-11-14 14:39:46 -0800
committerMorgan Astra <m@morganastra.me>2018-11-14 14:39:46 -0800
commitc45042893905d3ffd227f37a24ad135d766063e1 (patch)
tree2cef7e270152baa18562884025f39a5292c93e41
parent41a9133d3d02c2d2948fbfe7599c10bfbd2aed2d (diff)
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)
-rw-r--r--src/pronouns/pages.clj2
1 files changed, 1 insertions, 1 deletions
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