diff options
| author | Morgan Astra <m@morganastra.me> | 2018-11-14 14:39:46 -0800 |
|---|---|---|
| committer | Morgan Astra <m@morganastra.me> | 2018-11-14 14:39:46 -0800 |
| commit | c45042893905d3ffd227f37a24ad135d766063e1 (patch) | |
| tree | 2cef7e270152baa18562884025f39a5292c93e41 | |
| parent | 41a9133d3d02c2d2948fbfe7599c10bfbd2aed2d (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.clj | 2 |
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 |