zo/pronoun.fyi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a title block, light refactoring

Browse Source
This commit is contained in:
Thel Seraphim 2015-03-14 00:57:03 -07:00
parent 46d62f4ae7
commit 8274656847
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
resources/pronouns.css
View File

@ -11,6 +11,13 @@ body {
border:4px solid #eeeeee;
}
.title {
font: large;
margin: 8px;
padding: 4px 6px 4px 6px;
border:4px solid #eeeeee;
}
.about {
font: large;
margin: 8px;

18
src/pronouns/pages.clj
View File

@ -31,10 +31,14 @@
[subject reflexive]
(render-sentence (wrap-pronoun (s/capitalize subject)) " threw the frisbee to " (wrap-pronoun reflexive) "."))
(defn title-block [title]
[:div {:class "title"}
[:h1 title]])
(defn examples-block
[subject object possessive-determiner possessive-pronoun reflexive]
[:div {:class "examples"}
[:p [:h1 "Here are some usage examples for my pronouns:"]]
[:p [:h2 "Here are some usage examples for my pronouns:"]]
(subject-example subject)
(object-example object)
(posessive-determiner-example subject possessive-determiner)
@ -60,15 +64,17 @@
(defn format-pronoun-examples
[subject object possessive-determiner possessive-pronoun reflexive]
(let [title "Pronoun Island: Examples"]
(html
[:html
[:head
[:title "Pronoun Island: Examples"]
[:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body
(title-block title)
(examples-block subject object possessive-determiner possessive-pronoun reflexive)
(about-block)
(contact-block)]]))
(contact-block)]])))
(defn parse-pronouns-with-lookup [pronouns-string pronouns-table]
@ -87,13 +93,15 @@
[:li [:a {:href link} label]]))
(defn front [pronouns-table]
(let [links (map make-link (sort pronouns-table))]
(let [links (map make-link (sort pronouns-table))
title "Pronoun Island"]
(html
[:html
[:head
[:title "Pronoun Island"]
[:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body
(title-block title)
[:div {:class "table"}
[:p "pronoun.is is a www site for showing people how to use pronouns"]
[:p "here are some pronouns the site knows about:"]