Add all-pronouns page
This commit is contained in:
parent
8628d97055
commit
8238eb6e0c
@ -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 []
|
||||
|
@ -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"}
|
||||
|
Loading…
Reference in New Issue
Block a user